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:

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

Delphi-Quellcode:

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:

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.

[pmc]

Alles klar es funktioniert.

Danke!!!

[pmc]

Kann mir jdm sagen wie ich einen Bluebox effekt machen kann???
Das ich z.b. einen pfeil als bitmap zeichen und dann alles um den pfeil herum automatisch die hintergrundfarbe der form annimmt!?!?!!

So wie ein Skin wie z.b. bei winamp oder so...

Kann mir da jdm helfen????

[neolithos]

Ergänzen...

Delphi-Quellcode:

bmp.TransparentColor := clFuchsia; // $FF00FF
bmp.Transparent := true;

Man nimmt für die Transparentfarbe eine Farbe die so egelig ist das man sie nie in einer Grafik verwenden würde.

[pmc]

Dann leuchtet da bei mir aber der Desktop durch!!!
Und alles ander zeug sieht man aber nicht den pfeil!!!

Was mach ich falsch???

[neolithos]

Zeig mal deine Zeichen Funktion und das Bild des Pfeils,
wenn dir wichtig ist schick es als PM an mich.

Und Prüf mal den Brush vom Fenster.