Einzelnen Beitrag anzeigen

Benutzerbild von Khabarakh
Khabarakh

Registriert seit: 18. Aug 2004
Ort: Brackenheim VS08 Pro
2.876 Beiträge
 
#12

Re: OnMouseOver bei selbst erzeugtem TPicture

  Alt 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
  Mit Zitat antworten Zitat