feststellen ob TImage/TPicture leer ist

[Helmi]

Hallo,

wie kann ich feststellen ob ein TPicture (was ja auch von TImage benutzt wird) leer ist?

Hintergrund:
Ich lade in ein TPicture (TImage) mal ein bmp, jpg oder png.

Bei einem Bitmap kann man

Delphi-Quellcode:

Picture.Bitmap.Empty;

abfragen.
Ich dachte jetzt dass man bei einem jpg oder png

Delphi-Quellcode:

Picture.Graphic.Empty;

nutzen könnte, aber eigenartigerweise wird beim Bitmap alles richtig gemacht, also wenn ein Bitmap vorhanden ist dann ist empty false, ansonsten true. aber bei JPG oder PNG ist Bitmap.Empty immer true und Graphic.Empty ebenfalls.

Gibt es eine sauber funktionierende Möglichkeit festzustellen, ob ein Bild egal welchen Typs vorhanden ist und falls nicht, ob es TImage/TPicture leer ist?

[DeddyH]

Vielleicht

Delphi-Quellcode:

if Assigned(Image.Picture) then

:?:

[freeway]

das sollte so gehen: Picture.Bitmap.Empty

[himitsu]

@freeway: Siehe Post #1 vorletzer Abschnitt.


Der Zugriff auf TPicture.Bitmap erstellt ein Bitmap, wenn nichts oder eine anderer Grafiktyp in TPicture.Graphic enthalten ist.


PS:

Zitat:

TBitmap.Empty

function IsEmpty: Boolean;

Verifies whether the current TBitmap is empty.

Note: A TBitmap is empty if either its Width or Height is equal to 0.

Nicht jedes Grafikformat kann eine Größe von null haben.

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

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.

[Helmi]

Zitat:

Zitat von himitsu (Beitrag 1176746)

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:

Zitat von himitsu (Beitrag 1176746)

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;

[Helmi]

Zitat:

Zitat von Helmi (Beitrag 1176748)

Zitat:

Zitat von himitsu (Beitrag 1176746)

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:

Zitat von himitsu (Beitrag 1176746)

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;

[Edit]
Wenn ein TImage ein Jpg oder Png beinhaltet, dann ist sowohl Bitmap.Empty, als auch Graphic.Empty true

[Helmi]

[Edit2]
Interessant ist Graphic.Emtpy leer bei Drag.
Frag ich aber über einen normalen Button Graphic.Empty ist, ist es false.
Es hat also mit Drag&Drop zu tun


(Mist, "Zitat" und "Bearbeiten" verwechselt, deshalb so schnell ein Post hintereinander)

[himitsu]

Nochmals:

Delphi-Quellcode:

property Bitmap: TBitmap read GetBitmap write SetBitmap;
property Graphic: TGraphic read FGraphic write SetGraphic;

procedure TPicture.ForceType(GraphicType: TGraphicClass);
begin
  if not (Graphic is GraphicType) then
  begin
    FGraphic.Free;
    FGraphic := nil;
    FGraphic := GraphicType.Create;
    FGraphic.OnChange := Changed;
    FGraphic.OnProgress := Progress;
    Changed(Self);
  end;
end;

function TPicture.GetBitmap: TBitmap;
begin
  ForceType(TBitmap);  // ändert den Typ, aber kopiert nicht den Bildinhalt
  Result := TBitmap(Graphic);
end;

.Bitmap greift intern auf .Graphic zu, es bringt also nichts, auf beides mit dem selben Befehl zuzugreifen.
Mit dem Unterschied, daß die der Zugriff auf .Bitmap das Bild zerstören kann, wenn kein TBitmap enthalten ist.

Delphi-Quellcode:

if not Assigned(Picture.Graphic) then
  // nichts drin

Ansonsten kannst du noch prüfen, wenn doch ein "Bild" vorhanden ist ob Pixel vorhanden sind (isEmpty = in X und/oder Y nur 0 Pixel) und ob das "Bild" ein "Bild" enthält (z.B. all Pixel in nur einer Farbe ... z.B. Schwarz oder Weiß)

[Helmi]

Zitat:

Zitat von himitsu (Beitrag 1176752)

Delphi-Quellcode:

if not Assigned(Picture.Graphic) then
  // nichts drin

War auch meine Idee - nur leider immer false

[himitsu]

Zitat:

Zitat von Helmi (Beitrag 1176754)

- nur leider immer false

Dann ist auch ein "Bild" (eine Instanz eines Grafiktyps) in Graphic enthalten. :angle:


Man kann Bilder auf Papier, Pappe, Stoff, Holz oder Stein draufmalen.
Aber nur weil grade ein "Stein" in Graphic drin ist, muß da noch lange kein "Bild" draufgemalt sein.