Einzelnen Beitrag anzeigen

Benutzerbild von Khabarakh
Khabarakh

Registriert seit: 18. Aug 2004
Ort: Brackenheim VS08 Pro
2.876 Beiträge
 
#5

Re: Öffnen im Paint-Programm ohne Image

  Alt 2. Apr 2005, 18:14
Es heißt zwar "eine Frage - ein Thread", aber du musst den zweiten nicht auch noch im falschen Bereich starten .
Delphi-Quellcode:
var Bit: TBitmap;
begin
  Bit := TBitmap.Create;
  OpenDialog.Options := [ofFileMustExist];
  if OpenDialog.Execute then
    try
      Bit.LoadfromFile(OpenDialog.FileName);
      Form1.Canvas.Draw(0, 0, Bit);
      SaveDialog.Filename := OpenDialog.FileName;
      FormFile.Caption := ExtractFileName (OpenDialog.FileName);
    except
      Application.MessageBox ('Datei konnte nicht geladen werden!',
        'Fehler', MB_OK);
    end; {Try}
  Bit.Free;
end;
Sebastian
Moderator in der EE
  Mit Zitat antworten Zitat