BMP als Formularhintergrund

[AlexanderBrade]

Wie definiere ih eine BMP-Datei als Hintergund für mein Formular?

[blawen]

Nimm z.B. von den JVCL-Komponenten das JvFormWallpaper.

[taaktaak]

... oder selber machen
Stichwort: WM_ERASEBKGND nutzen

[AlexanderBrade]

Kann mir jemand eine Art Pseudocode liefern? Zumindest einen Ansatz, denn bisherige Hilfen/Stichwörter liefern weder in der Hilfe noch über Google brauchbare Resultate.

[Die Muhkuh]

Zitat:

Zitat von AlexanderBrade

Das ist nich wahr, allerdings musst du konkrete Probleme aufzeigen und nicht daher kommen und einen fertigen Anatz verlangen!

:zwinker:

[haentschman]

Zitat:

Nimm z.B. von den JVCL-Komponenten das JvFormWallpaper.

...ist ein Ansatz und noch dazu völlig unkompliziert.

:hi:

[blawen]

Zitat:

Zitat von AlexanderBrade

Kann mir jemand eine Art Pseudocode liefern? Zumindest einen Ansatz, denn bisherige Hilfen/Stichwörter liefern weder in der Hilfe noch über Google brauchbare Resultate.

Schaue Dich mal hier um.

Wenn Du damit nichts anfangen kannst, empfehle ich Dir die JVCL-Komponente (s.o.)

[taaktaak]

Delphi-Quellcode:

type
TForm1 = class(TForm)
  Image1: TImage;
  private
    procedure WMEraseBkgnd (var Msg:TMessage); message WM_ERASEBKGND;
//..

procedure TForm1.WMEraseBkGnd;
var Rect    : TRect;
    MyBrush : THandle;
begin
  Rect.Left  :=0;
  Rect.Top   :=0;
  Rect.Right :=ClientWidth;
  Rect.Bottom:=ClientHeight;

  MyBrush:=CreatePatternBrush(Image1.Picture.Bitmap.Handle);
  FillRect(Canvas.Handle,Rect,MyBrush);
  DeleteObject(MyBrush);

  Msg.Result:=0
end;

Nur getippt, nicht getestet.

Anmerkung: Dein Bild muss in Image1 verfügbar sein. Zum Füllen von Hintergründen werden aber besser kleine Bitmaps verwendet, die mehrfach nebeneinander eingeblendet werden können, deren Muster also zueinander passen müssen. Ob der Vorschlag für ein großes Bild taugt, probiere bitte selbst aus.

[AlexanderBrade]

Das ganze soll darauf hinauslaufen, dass ich mein Formularlayout optisch etwas aufpolieren kann. Das mit den Skin-Komponenten ist mir zu undurchsichtig, außerdem kosten die alle was(jedes Mal wenn ich compilieren will blockiert er aufgrund der "Demo-Version").
So dachte ich einfach ein Bitmap-File im Hintergrund und es sähe auch schon ganz gut aus...
siehe folgendem Link:
http://www.delphipraxis.net/internal...kinkomponenten

Wie kriegt man so etwas hin?(siehe Bild im vorigen Link) Das scheint so einfach zu sein!

[taaktaak]

Funktioniert mein Vorschlag nicht?

[AlexanderBrade]

Nein an der ein oder anderen Stelle hängt sich der Compiler auf...

[taaktaak]

an welcher Stelle?

[AlexanderBrade]

"Image1 besitz keine entsprehende Komponente(Ich galube ich weiß nicht wie ich mein Bild in Image1 "verfügbar mache")!

[taaktaak]

Na, du musst ein Image aus der Komponentenpalette auf's Form ziehen (oder selbst erzeugen/löschen) und in dieses Image ein Bild laden. Erst dann kann das funktionieren.

[blawen]

Zitat:

mit den Skin-Komponenten ist mir zu undurchsichtig, außerdem kosten die alle was(jedes Mal wenn ich compilieren will blockiert er aufgrund der "Demo-Version").

Siehe mal hier skin da findest Du doch einige kostenlose Varianten.

Oder aber auch hier.
Die SXSkin-Komponenten z.B. sin gar nicht so übel.

[AlexanderBrade]

Zitat:

und in dieses Image ein Bild laden

Aber wie?
P.S. Der Rest läuft...

[taaktaak]

Schau dir mal Image.Picture.LoadFromFile() an

PS: Ich finde eine schlechte, aber selbst erstellte Funktionalität, grundsätzlich wertvoller als eine nicht verstandene Fremdkomponente zu nutzen. Insofern, immer erst 'mal selbst versuchen!

[Die Muhkuh]

Blawe, der erste Suchlink verweist auf Deine Search-ID, welcher mittlerweile nicht mehr aktuell ist, Du musst den Link mit Suchtags posten ;)

[AlexanderBrade]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
begin
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;
end;

Dieser Quelltext funktioniert. Nur wie passiert das automatisch mit einer speziell definieren BMP-Datei, wenn das Programm ausgeführt wird?

[blawen]

Zitat:

Zitat von Die Muhkuh

Blawe, der erste Suchlink verweist auf Deine Search-ID, welcher mittlerweile nicht mehr aktuell ist, Du musst den Link mit Suchtags posten ;)

Hallo Muhku - Danke für den Hinweis, ich hab's angepasst.

[taaktaak]

Nun, du übergibst einen festen Pfad (d.h. verwendest nicht OpenPictureDialog) und rufst die Methode an geeigneter Stelle auf. Ob das im OnCreate() möglich ist, musst du testen, sonst z.B. im OnShow().

[blawen]

Zitat:

Zitat von AlexanderBrade

Dieser Quelltext funktioniert. Nur wie passiert das automatisch mit einer speziell definieren BMP-Datei, wenn das Programm ausgeführt wird?

Du meinst beim starten des Programms? -> Einfach z.B. "OnCreate" verwenden.

Zitat:

Zitat von taaktaak

Nun, du übergibst einen festen Pfad

Feste Pfade sollten NIE verwendet werden! Nimm relative Pfade, ansonsten wirst Du unweigerlich Probleme bekommen, wenn Du das Programm auf einem anderen Computer startest.

[AlexanderBrade]

Wie schreibt man relative Pfade? Bzw. wie sehen solche z.B. aus?

[taaktaak]

Zitat:

Feste Pfade sollten NIE verwendet werden!

Autsch, du hast ja Recht!
Das war natürlich dämlich!
:duck:

[AlexanderBrade]

Hab's raus! Vielen Dank

Delphi-Quellcode:

Image1.Picture.LoadFromFile(ExtractFilePath(ParamStr(0))+'abi.bmp');

[blawen]

Zitat:

Zitat von AlexanderBrade

Hab's raus! Vielen Dank

Delphi-Quellcode:

Image1.Picture.LoadFromFile(ExtractFilePath(ParamStr(0))+'abi.bmp');

:thumb:

[taaktaak]

Können wir das Formular mal ansehen, wenn's funktioniert hat?

[AlexanderBrade]

Ja natürlich:


Aber irgendwie habe ich dabei deine Pozedur garnicht verwendet, sodern einfach TImage der Größe des Formulars angepasst...
Außerdem sieht das auch noch nicht so aus, wie in dem anderen Programm(siehe vorigem Link)!

[taaktaak]

Ja, ich muss zugeben, das schaut gut aus!
Und welche Controls kommen jetzt noch auf das Formular?

[AlexanderBrade]

Es soll ja eigentlich so aussehen:
siehe Anhang!

[taaktaak]

Hmmm, verstehe ich jetzt nicht
:roll:

[AlexanderBrade]

Naja das mit dem BMP als Hintergrund ist ein Anfang, aber das erfasst ja wirklich nur den "TImage-bereich". Nicht z.B. den Steuerbereich mit Maximieren, Minimieren, usw.
Mein BMP sollte das ganze Formular "ausfüllen". Es wäre eben so noch besser. Das ist alles was ich möchte.

hedie, der dieses Programm geschrieben hat sagt:

Zitat:

Die lösung heisst: Microsoft Powerpoint 2007

Damit lassen sich schnell und einfach 3D Effekte und vieles mehr erzeugen
Screenshot --> Paint ausgeschnitten --> BMP einbinden und fertig ist das spitzen design

Aber wie binde ich die BMP-Datei SO ein???

[blawen]

Genau gleich. Beim Formular musst Du einfach die Ränder weglassen. Die entsprechenden Funktionen (schliessen, etc.) musst Du dann aber selber nachbilden.

Bei einem meiner Projekte habe ich es ähnlich gemacht (s. Anhang)

[AlexanderBrade]

Wie lässt man denn die Ränder weg?
und wie bekommt man solche "Windows"-Buttons?
Diese Schattierung ist mir auch noch ein Rätsel(oder ist das ganze einfach das BMP?)

[Klaus01]

Zitat:

Zitat von AlexanderBrade

Wie lässt man denn die Ränder weg?

Bei der Form
borderStyle = bsNone stellen

Grüße
Klaus