Delphi-PRAXiS
Seite 1 von 4  1 23     Letzte »    

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi In Image zeichnen (https://www.delphipraxis.net/37202-image-zeichnen.html)

maximus Caesar 2. Jan 2005 14:13


In Image zeichnen
 
Hallo!
Ich versuche, in ein Image zu zeichnen, in das ich zuvor mit canvas.draw ein jpg geladen habe.
Nun kommt eine meldung, dass ich nur in Bitmaps zeichnen kann!
Muss ich jetzt das Jpg in ein Bitmap umwandeln? Wenn ja, wie mache ich das?

Sharky 2. Jan 2005 14:56

Re: In Image zeichnen
 
Hai Caesar :stupid:

ich habe das jetzt mal mit diesem Code gemacht:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  jpeg : TJPEGImage;
begin
  if (OpenPictureDialog1.Execute) then
  begin
    jpeg := TJPEGImage.Create;
    try
     jpeg.LoadFromFile(OpenPictureDialog1.FileName);
     Image1.Canvas.Draw(0,0,jpeg);
    finally
      jpeg.Free;
    end;
    Image1.Canvas.MoveTo(10,10);
    Image1.Canvas.Pen.Width := 10;
    Image1.Canvas.LineTo(100,100);
  end;
end;
Oder meintest Du etwas ganz anderes?

maximus Caesar 2. Jan 2005 15:03

Re: In Image zeichnen
 
Also, ich habe ohne irgendeinen Dialog ein jpg bild in Image2 geladen.
Jetzt will ich ein Rechteck mit Canvas. Retagle (oder so ähnlich) da hinein zeichnen.
Sobald ich es versuche bekomme ich eine Meldung, dassich nicht in jpg's, sondern nur in bmp's zeichnen kann!
und jetzt möchte ich wissen, wie ich in das jpg zeichnen kann, oder dieses in ein bmp umwandeln!

Wuaegner 2. Jan 2005 15:36

Re: In Image zeichnen
 
Wie versuchst du denn da rein zu zeichnen?
Wenn du auf Image1.Canvas zeichnest müsste es doch gehen.

maximus Caesar 2. Jan 2005 15:42

Re: In Image zeichnen
 
Dann kommt die besagte Meldung, dass ich nur in Bitmaps, und nicht in Jpegs zeichnen kann!
Ich versuche es mit:
Delphi-Quellcode:
Form1.Image2.Canvas.Rectangle(x1,y1,x2,y2);

Sharky 2. Jan 2005 15:44

Re: In Image zeichnen
 
Hmm...
wenn ich das mit meinem Code oben mache geht es. Den Dialog zum öffnen habe ich nur drinnen um nicht den Pfad zum Bild tippen zu müssen.

maximus Caesar 2. Jan 2005 15:49

Re: In Image zeichnen
 
Hier jetzt mal der genaue Text der Meldung:

Project Project1.exe raised exception class EInvalidOperation with message 'Can only modify an image if it contais a bitmap'. Process stopped. Use Step or Run to continue.

Sharky 2. Jan 2005 15:52

Re: In Image zeichnen
 
Hai maximus,

hast Du in dem Image schon etwas zur Entwurfszeit geladen? Wenn Ja -> Lösche es mal.

maximus Caesar 2. Jan 2005 15:55

Re: In Image zeichnen
 
Hab ich leider nicht!

maximus Caesar 2. Jan 2005 15:57

Re: In Image zeichnen
 
Hab jetzt den Code oben nochmal ausprobiert!
Die Meldug erscheint immernoch...


Alle Zeitangaben in WEZ +1. Es ist jetzt 19:52 Uhr.
Seite 1 von 4  1 23     Letzte »    

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz