feststellen ob TImage/TPicture leer ist

[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 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;

[Helmi]

Zitat von 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;

[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 von himitsu:

Delphi-Quellcode:

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

War auch meine Idee - nur leider immer false

[himitsu]

Zitat von Helmi:

- nur leider immer false

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


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.

[Helmi]

Was ich feststellen musste ist, dass sich Bitmaps anders verhalten als Graphic (Jpg, png).

Deswegen werd ich grundsätzlich nur noch Bmp´s in die Images laden. Zuvor jpg und png in bmp wandeln