Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by bitsetter,
15. Feb 2007
Du benutzt für das Hoch- und Runterscrollen anscheinend 2 verschiedene Proceduren. Wenn man bei dir erst runterscrollt, und dann wieder hochscrollt, dann macht deine Trackbar einen großen Sprung.
Hast du schon einmal versucht, für das Hoch- und Runterscrollen, die gleiche Procedur zu nehmen?
Ich habe noch ein primitives Beispiel geschrieben, da ich nicht deine Listbox habe, musste ich mich...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by bitsetter,
14. Feb 2007
Stell doch mal deine neue Demo zum Download bereit, will mal sehen wie es jetzt aussieht.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by bitsetter,
13. Feb 2007
Ja genau das meinte ich, das ist was die procedure ausgerechnet hat.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by bitsetter,
13. Feb 2007
Versuche erst einmal Trackbar1.Position:= lbList.Count- //Items unterhalb der Listbox(also die nicht mehr sichtbar sind)
Ansonsten so:
var
Rect: TRect;
WinInfo: TWindowInfo;
iHeight: integer;
begin
if listbox1.Count> 0 then
begin
ZeroMemory(@WinInfo, sizeOf(WinInfo));
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by bitsetter,
13. Feb 2007
Welchen Wert hat bei dir Trackbar1.Max ?
Die Procedure erechnet praktisch, wieviel Items nicht mehr sichtbar sind, also unterhalb der Listbox sind.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by bitsetter,
13. Feb 2007
Ich hoffe mal, dass dieser Code beim Hochscrollen funktioniert.
procedure TForm1.Button2Click(Sender: TObject);
var
Rect: TRect;
WinInfo: TWindowInfo;
iHeight: integer;
begin
Caption:= '0';
if listbox1.Count> 0 then
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by bitsetter,
12. Feb 2007
Ich weis zwar nicht, ab du sowas meinst, aber kannst ja mal versuchen.
var
Rect: TRect;
begin
if listbox1.Count> 0 then
begin
Rect:= listbox1.ItemRect(0) ;
caption:= inttostr(Rect.Top div listbox1.ItemHeight* -1);//Beispiel
Trackbar1.Position:= (Rect.Top div listbox1.ItemHeight* -1)
end;