WICImage

[TiGü]

Zitat von Willie1:

]Der Rest ist einfach. Button, OpenPictureDialog und Image, das ist es!

Das sind fünf Minuten, die von meiner Zeit/die der anderen drauf gehen.
Fertiges Beispielprojekt mit den Bildern dazu, zippen und hochladen.
Sonst keine Hilfe.

Warum? Wieso? Weshalb?
https://stackoverflow.com/help/minim...ucible-example
http://sscce.org/

[Willie1]

Hallo,
siehe Anhang!
Willie.

[Willie1]

Ich wollte noch eine von Ballast befreite Datei hochladen, geht aber nicht! Obwohl sie innerhalb der Grenze 5 MB liegt. W.

[mmw]

hallo,
bei mir funktioniert es so

Delphi-Quellcode:

procedure ClearImage(im: TImage);

var
  Rec: TRect;
begin
    im.Picture:=nil;// <-----

    Im.Canvas.Brush.Color:=clBtnFace;
    Rec:=Rect(0, 0, Im.Width, Im.Height);
    Im.Canvas.FillRect(Rec);
end;

Delphi-Quellcode:

   try
       GPGraphics:=TGPGraphics.Create(img.Canvas.Handle);
       GPGraphics.DrawImage(GPImage, (img.Width - W) shr 1, (img.Height - H) shr 1, W, H)

vielleicht lieber so

Delphi-Quellcode:

GPGraphics:=TGPGraphics.Create(img.Canvas.Handle);

try
GPGraphics.DrawImage(GPImage, (img.Width - W) shr 1, (img.Height - H) shr 1, W, H)

Gruß

[TiGü]

So umsetzen wie mmw schrieb, dann geht das.

[himitsu]

Zitat von mmw:

vielleicht lieber so

siehe https://www.delphipraxis.net/154794-...en-nutzen.html
bzw. https://www.delphipraxis.net/205627-...stoeren-2.html

Zitat von mmw:

im.Picture:=nil;// <-----

Das ganze Picture löschen, anstatt nur die Graphic? (wüsste garnicht dass das geht)

aber im.Picture.Graphic := nil;

[Willie1]

Ja, Danke Freunde, das klappt im Testprogramm. Ich muss es noch auf das Projekt umsetzen.
Willie.