Fensterform bestimmen

[Mysterious Spirit]

Hallo, ich will das Formularfenster meines Programmes wie die Form eines bestimmten Bitmaps aussehen lassen. Dazu ahbe ich folgendes gefudnen

http://www.swissdelphicenter.ch/de/showcode.php?id=582

Schön und gut, funktioniert auch einwandfrei. Nur ich will bei dem programm nciht das Bitmap bei packen, deshalb ahbe ich es versucht in einer Imagelist zu hinterlegen, was aber das programm so groß amcht dass ich es weder speichern noch kompilieren lassne kann. Kann ich soetwas auch mit JPGs oder Gifs realisieren, da diese ja kleiner sind, oder gibt es einen Umweg wie ich ohne ein Bild immer zu laden die Fensterform bestimmen kann

[Nothine]

mit diesem auch bei swissdelphicenter gefundenen code ( http://www.swissdelphicenter.ch/de/showcode.php?id=1774 ) lässt sich eine Grafik (TGraphic) in ein TBitmap umwandeln, daraus ergäbe sich dann (angelehnt an den link von dir) in etwa folgender code fürs FormCreate:

Delphi-Quellcode:

function GraphicToBMP(Graphic: TGraphic): TBitmap;
begin
  Result        := TBitmap.Create;
  Result.Width  := Graphic.Width;
  Result.Height := Graphic.Height;
  Result.Canvas.Draw(0,0,Graphic);
end;

procedure TForm1.FormCreate(Sender: TObject);
var Picture: TPicture;
begin
  Picture := TPicture.Create;
  try
    Picture.LoadFromFile('...'); {JPG- und BMP-Dateien, GIF sind in Delphi nicht standartmäßig implementiert}
    FRegion := CreateRegion( GraphicToBMP(Picture.Graphic) );
    SetWindowRgn(Handle,FRegion,True);
  finally
    Picture.Free;
  end;
end;

[Mysterious Spirit]

Ersteinmal danke für den Tipp, aber dann müsste ich das Bild immernoch extern laden oder kann man irgendwo eine TGrafik Datei hinterlegenen, TIMage und Timagelist sind ja halt, wie der Name schon sagt von einem anderen Typ

[Dax]

Wenn du die Bitmaps nicht veränderst, könntest du doch aus den Outlines der Bitmap ein Array erstellen, dass die begrentenden Punkte enthält, und dann mit CreatePolygonRgn eine Window-Region erstellen.
Dann rufst du SetWindowRgn(DeineRgn) auf, und dein Problem sollte gelöst sein.

Die andere Möglichkeit wäre, die Bitmaps ZLib-komprimiert zu speichern und zu laden.

BtW: Sind deine Bitmaps monochrom?

[Mysterious Spirit]

Ja die Bitmaps sind manochrom, da ich sie ja nur als Formvorlage brauche, wie komm ich den an das Array dran und dann an den dazu passenden Befehl?

[Nothine]

Zitat von Mysterious Spirit:

Ersteinmal danke für den Tipp, aber dann müsste ich das Bild immernoch extern laden oder kann man irgendwo eine TGrafik Datei hinterlegenen, TIMage und Timagelist sind ja halt, wie der Name schon sagt von einem anderen Typ

ein TImage besitzt eine property Picture: TPicture die wiederum ihrerseits ein Graphic (TGraphic) objekt enthält, dementsprechend ist es nicht direkt ein anderer typ

[Mysterious Spirit]

Danke erstmal,d as ahbe ich auchgesehen, ich hatte den code an eienr stelle falsch angewandr. Jetzt funzt aber alles. Danke für eure Hilfe.