Bilder und Delphi, wie ???

[pmc]

Hallo erstmal ,

ich möchte gerne auf die grunform ein bild als hintergrund machen,
aber irgendwie scheine ich da ein bissel begrifsstutzig zu sein.

Kann mir irgendjemand sagen wie ich das machen muss???

Danke im vorraus,

PMC

[Tpercon]

Am einfachsten geht's wenn du dir nen Image auf die Form plazierst, align auf clClient und stretch auf true.

[pmc]

Das Problem ist das ich so ne art Blue-Box machen will.
Die Form ist auch nicht zu sehen.

Ein bissel Quellcode dazu wäre nicht schlecht!!!

PMC

[jbg]

Zitat von pmc:

Ein bissel Quellcode dazu wäre nicht schlecht!!!

Es ist ein wenig kompliziert, aber ich versuche es mal:

Delphi-Quellcode:

var
  Image: TImage;
begin
  Image := DelphiIDE.ToolBar.ComponentPalette['Additional'].Create('TImage');
  DelphiIDE.Formular.AddComponent(Image);

  Image.Align := alClient;
  Image.Stretch := True;
end;

[pmc]

Schönen Dank auch,

Aber geht das auch direkt auf die Form???

[jbg]

Das Formular hat ein OnPaint Ereignis. Dort kannst du dein Bitmap mit
Canvas.StretchDraw(ClientRect, Bmp, Rect(0, 0, Bmp.Width, Bmp.Height)); auf die gesamte Fläche malen.

[pmc]

Also irgendwie bin ich wohl zu dumm dafür !!!
Ich habe eine Bitmap mit dem namen back.bmp(liegt direkt auf c wie muss ich die denn da
reinladen???
Ist das dann auch direk tvon anfang an????

[Sharky]

Zitat von pmc:

Also irgendwie bin ich wohl zu dumm dafür !!!
Ich habe eine Bitmap mit dem namen back.bmp(liegt direkt auf c wie muss ich die denn da
reinladen???
Ist das dann auch direk tvon anfang an????

Zu dumm ist keiner!

Delphi-Quellcode:

procedure TForm1.FormActivate(Sender: TObject);
begin
 Image1.Picture.LoadFromFile('c:\meinbild.bmp');
end;

[pmc]

Das muss aber direkt auf die Zeichfläche der From das darf kein extra
Object sein.

[Tpercon]

Schua mal was man in der OH findet:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

var
  Bitmap : TBitMap;
begin
  Bitmap := TBitmap.Create;
  try
    with Bitmap do begin
      LoadFromFile('C:\Program Files\Common Files\Borland Shared\Images\Splash\256color\factory.bmp');
      Transparent := True;
      TransParentColor := BitMap.canvas.pixels[50,50];
      Form1.Canvas.Draw(0,0,BitMap);
      TransparentMode := tmAuto;
      Form1.Canvas.Draw(50,50,BitMap);
    end;
  finally
    Bitmap.Free;

  end;
end;

Das kombinierst du jetzt mit der Lösung von jbg.