Registriert seit: 18. Aug 2004
Ort: Brackenheim VS08 Pro
2.876 Beiträge
|
Re: OnMouseOver bei selbst erzeugtem TPicture
27. Okt 2005, 20:30
So?
Delphi-Quellcode:
//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[1].Graphic);
Exit
end
else
if InRange(x, 190 + 220, 190 + 220 + 120) then
begin
PreviewBox.Canvas.Draw(0, 0, Entry.Picture[2].Graphic);
Exit
end;
PreviewBox.Canvas.FillRect(...); // gesamte Paintbox mit weiß füllen
end;
Sebastian Moderator in der EE
|
|
Zitat
|