Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Khabarakh,
10. Nov 2005
Du könntest jedes Control ableiten und TControl.MouseMove überschreiben. Willst du aber wohl eher nicht :mrgreen: .
Oder:
// in einer Methode der Form, z.B. im OnCreate-Eventhandler
for i := 0 to ComponentCount do
if Components is TControl then
TControl(Components).OnMouseMove := MyEventHandler;
MyEventHandler muss natürlich die Parameter von TMouseMoveEvent besitzen.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Khabarakh,
27. Okt 2005
So?
//EventHandler für PreviewBox.OnMouseMove
begin
if InRange(y div 101, 10, 100) then
if InRange(x, 50 + 220, 50 + 220 + 120) then
begin
PreviewBox.Canvas.Draw(0, 0, Entry.Picture.Graphic);
Exit
end
else
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Khabarakh,
27. Okt 2005
Du solltest eben die Klassennamen nicht so umeinander werfen :stupid: .
Was denn nun :gruebel: ? :mrgreen:
Wie zeigst du die thumbnails in der Paintbox an? Auf jeden Fall musst du bei deren OnMouseMove aus den Koordinaten den Index des Bildes errechnen und dieses dann in der zweiten Paintbox anzeigen.
Sind im Record die Thumbnails oder die Original-Bilder enthalten?