feststellen ob TImage/TPicture leer ist

[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