Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by RobertP,
18. Sep 2006
War vielleicht net so klug des in alten Thread zu posten, da habens denk ich viele übersehen. Aber weiß denn niemand ne Lösung um die Layer mitscrollen zu lassen? Wäre recht wichtig....
PS: nochn Problem :roll:
Wenn ich auf des Image klick wird ja im onMouseDown das Layer übergeben. Wenn ich nu neinmal ein Layer angeklickt habe dann ist dieses irgendwie so groß wie die ganze Grafik,...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by RobertP,
17. Sep 2006
Schon wieder ein Problem:
In des ImgView32 lad ich ne Grafik, da drauf mach ich ein Layer, wo ich was reinzeichne. Wenn ich jetzt scrolle scrollt zwar die Grafik aber das gezeichnete, also das Layer, bleibt am selben Fleck. Wie krieg ich das Layer dazu dass es mitscrollt?
Mein Versuch war leider net so erfolgreich:
procedure TEditorForm.mapImageScroll(Sender: TObject);
var
P : TPoint;...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by RobertP,
16. Sep 2006
Jup Problem gelöst, Danke!
Falls es jemand interessiert:
P := ScreenToClient(Mouse.CursorPos);
P := mapImage.ControlToBitmap(P);
P.X := P.X - mapImage.Left;
P.Y := P.Y - mapImage.Top;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by RobertP,
16. Sep 2006
Moin,
ich möchte wenn jemand auf das Bild (mit ImgView32) klickt, die Mausposition auf dem Bild haben.
procedure TEditorForm.mapImageClick(Sender: TObject);
var
x, y : Integer;
P : TPoint;
begin
P := ScreenToClient(Mouse.CursorPos);
x := P.X;