Autor Beitrag
Bronstein
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 578
Erhaltene Danke: 1

WIN XP
Delphi 6 / Delphi 2006 / Delphi XE
BeitragVerfasst: Mo 11.10.10 11:51 
Hallo,
ich habe eine Anwendung gemacht, die mit einem Touch Screen bedient werden soll.

Jetzt habe ich das Problem, dass man nur sehr schlecht scrollen kann. Deshalb möchte ich diese breiter machen.

Habe jetzt schon unter Windows->Anzeige die größe der Scrollbar geändert, jedoch hat das keinen Einfluss auf meine Anwendung (StringGrid, WebBrowser).
hat jemand eine Idee?

_________________
Es gibt keine dummen Fragen nur dumme Antworten!!!
chrisw
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 439
Erhaltene Danke: 3

W2K
D7
BeitragVerfasst: Mo 11.10.10 14:54 
Viellecht mal mit TScrollbox versuchen !

_________________
Man sollte keine Dummheit zweimal begehen, die Auswahl ist schließlich groß genug.
Bronstein Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 578
Erhaltene Danke: 1

WIN XP
Delphi 6 / Delphi 2006 / Delphi XE
BeitragVerfasst: Mo 11.10.10 15:53 
bei der TSrollbox ist es auch nicht anderst

_________________
Es gibt keine dummen Fragen nur dumme Antworten!!!
FinnO
ontopic starontopic starontopic starontopic starontopic starontopic starofftopic starofftopic star
Beiträge: 1331
Erhaltene Danke: 123

Mac OSX, Arch
TypeScript (Webstorm), Kotlin, Clojure (IDEA), Golang (VSCode)
BeitragVerfasst: Mo 11.10.10 16:42 
Welches Delphi verwendest du denn? Delphi 2010 z.B. unterstützt für soetwas auch multitouch und Gestures...

LG
chrisw
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 439
Erhaltene Danke: 3

W2K
D7
BeitragVerfasst: Di 12.10.10 07:26 
Ich weiss ja nicht, wie es bei dir ist, aber bei mir kann ich in einer Scrollbox (TScrollBox) mit Buttonsize die Höhe bzw. Breite der Scrollbar verändern !!

_________________
Man sollte keine Dummheit zweimal begehen, die Auswahl ist schließlich groß genug.
Bronstein Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 578
Erhaltene Danke: 1

WIN XP
Delphi 6 / Delphi 2006 / Delphi XE
BeitragVerfasst: Di 12.10.10 14:16 
Hallo,
ich verwende Delphi 2006.

Ich habe mal folgendes versucht, dass die Balkengröße immer verdoppeln sollte:
ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.ScrollBox2.VertScrollBar.ButtonSize := Form1.ScrollBox2.VertScrollBar.ButtonSize + Form1.ScrollBox2.VertScrollBar.ButtonSize;
  Form1.ScrollBox2.HorzScrollBar.ButtonSize := Form1.ScrollBox2.HorzScrollBar.ButtonSize + Form1.ScrollBox2.HorzScrollBar.ButtonSize;
  Form1.VertScrollBar.ButtonSize := Form1.VertScrollBar.ButtonSize + Form1.VertScrollBar.ButtonSize;
  Form1.HorzScrollBar.ButtonSize := Form1.HorzScrollBar.ButtonSize + Form1.HorzScrollBar.ButtonSize;
  Form1.Refresh;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.ScrollBox2.VertScrollBar.ButtonSize := 20;
  Form1.ScrollBox2.HorzScrollBar.ButtonSize := 20;
  Form1.VertScrollBar.ButtonSize := 20;
  Form1.HorzScrollBar.ButtonSize := 20;
end;

Es funktioniert aber nicht, sprich die größe ändert sich nicht!

_________________
Es gibt keine dummen Fragen nur dumme Antworten!!!
Bronstein Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 578
Erhaltene Danke: 1

WIN XP
Delphi 6 / Delphi 2006 / Delphi XE
BeitragVerfasst: Do 21.10.10 15:45 
Hat jemand noch eine Idee wie man das Problem lösen könnte?

_________________
Es gibt keine dummen Fragen nur dumme Antworten!!!
FinnO
ontopic starontopic starontopic starontopic starontopic starontopic starofftopic starofftopic star
Beiträge: 1331
Erhaltene Danke: 123

Mac OSX, Arch
TypeScript (Webstorm), Kotlin, Clojure (IDEA), Golang (VSCode)
BeitragVerfasst: Do 21.10.10 16:14 
Moin,

vielleicht geht o.g. Variante nur bei deaktivierten Laufzeit-Themes.?!

LG
Tropby
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 71
Erhaltene Danke: 4

Vista, Win XP, Win 89
Turbo Delphi Ex.
BeitragVerfasst: Do 21.10.10 16:17 
Hallo,

es gibt noch die Möglichkeit hiermit was zu machen.

Dies Funktioniert jedoch nicht im TWebBrowser und ändert auch Systemweit die Einstellung. Also alle Scrollbalken auch in anderen Programmen werden dadurch größer:

ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
var
  ncm: TNonClientMetrics;
  ....
  ncm.cbSize := SizeOf(TNonClientMetrics);
  SystemParametersInfo(SPI_GETNONCLIENTMETRICS, 0, @ncm, 0);

  Label1.Caption := IntToStr(ncm.iScrollWidth);
  ncm.iScrollWidth := ncm.iScrollWidth + 5;
  SystemParametersInfo(SPI_SETNONCLIENTMETRICS, SizeOf(ncm), @ncm, SPIF_SENDCHANGE);


Wenn das auch nicht geht, dann kann ich nur Sagen, dass da wohl ein eigenes Control her muss

_________________
Tropby
jaenicke
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 19312
Erhaltene Danke: 1747

W11 x64 (Chrome, Edge)
Delphi 11 Pro, Oxygene, C# (VS 2022), JS/HTML, Java (NB), PHP, Lazarus
BeitragVerfasst: Do 21.10.10 16:47 
Hier habe ich mal eine eigene Komponente veröffentlicht, da kannst du alles anpassen:
www.delphi-forum.de/viewtopic.php?t=64090