Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Prototypjack,
10. Mai 2005
Perfekt! So funktioniert es.
Danke an euch, für die Hilfe.
Gruß,
Max
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Prototypjack,
9. Mai 2005
Hmm scheitn immer noch nicht richtig zu funktionieren :(
Hier einfach mal der gesamte "Bewegungs"-Code
procedure TPic_chldfrm.ImageMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
begin
IsMoved := True;
StartX := X;
StartY := Y;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Prototypjack,
8. Mai 2005
Hallo,
Erstmal Sry für die Ungenaue Beschreibung ;)
X stellt den Punkt dar an dem die Maus gedrückt wurde und MoveX den Punkt zu dem die Maus bewegt wurde(Wegen der Berechnung der Differenz).
Mein Code funktioniert eigentlich schon aber man kann das Bild nicht ziehen sondern wenn man die Maus in eine Richtung bewegt scrollt es blitzschnell in die Richtung und nicht in dieser...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Prototypjack,
8. Mai 2005
Hallo,
Ich habe in einer Scrollbox ein Bild das dei Scrollbox überschreitet.
ICh will jetzt per Onmousemove auf dem Image die Scrollbars der Scrollbox beeinflussen
Mein bisheriger Code funzt aber nicht so richtig:
if (X <> MoveX) then
scrollbox1.horzScrollBar.Position :=scrollbox1.horzScrollBar.Position+ (X - StartX);
if (Y <> MoveY) then
scrollbox1.VertScrollBar.Position...