feststellen ob TImage/TPicture leer ist

[Helmi]

Zitat von himitsu:

Und was für dich "leer" ist, hast du auch nicht definiert.

Die Frage ist gut und berechtigt.
Leer ist für mich wenn nichts drin ist, also kein bmp, jpg oder png

Zitat von himitsu:

Merk dir einfach in einer anderen Variable ob und was DU dort reingeladen hast.
PS: Es ist eh keine sonderlich gute Idee die Logik in die GUI zu legen.

Ja - ich geb dir ja recht, aber in dem Falle muss es so sein.

Ich bewege den Inhalt eines TImages via Drag&Drop in ein anderes TImage.
(Insgesamt sind es 30 Images zwischen dene man die Bilder hin und herschieben kann).

Wenn man aber nun auf ein Image drauf klickt dass leer ist, so soll das gesourcte TImage dieses nicht akzeptieren.

Delphi-Quellcode:

procedure TSymboleForm.Image_DragOver(Sender, Source: TObject; X,
  Y: Integer; State: TDragState; var Accept: Boolean);
var
  Picture_leer: Boolean;

begin
  //Variable vordefinieren
  Picture_leer := false;

  //prüfen ob Image leer ist
  If Source is TImage then
    Picture_leer := TImage(Source).Picture.Graphic.Empty or TImage(Source).Picture.Bitmap.Empty;

  //Drag akzeptieren wenn es von TShellListView oder TImage kommt
  //Wenn Sender und Source das gleiche Image sind (Bild wird wieder zurück-
  //bewegt), dann Accept = false
  //Wenn Original-Picture leer ist, dann Accept = false
  Accept := (Source is TShellListView) or ((Source is TImage) and
            not (Sender = Source)) and not Picture_leer;
end;