Transparenz? Richedit,listbox, edit

[Pseudemys Nelsoni]

hi, ich hatte zwar schonmal solchnen thread offen, aber komplett geholfen hats nicht also ich habe eine Form wo man nur das Hintergrundbild sieht, also formstyle clnone...aber wie kriege ich die komponenten (siehe topic) transparent? ich zeig nochmal das bild als beispiel:

http://www.angelfire.com/bug/delphi/ts.jpg

[alcaeus]

Es gibt mehrere Fragen die zuerst beantwortet werden müssen:
1. was genau willst du transparent haben? Die Listen sehen nämlich schon halb-transparent aus.
2. Sollen die Komponenten ganz oder nur halb-transparent sein?

Wenn du diese Fragen beantworten könntest, kann ich weitersehen...

[Pseudemys Nelsoni]

moin

die listen sehen deshalb so aus, da es der original spiel chat von Tiberian Sun ist ...leider wurde der chat deaktiviert und ich mache nun ein für die ts leute... der funzt zwar auch schon aber bei mir scheint das hintergrundbild eben nicht durch die edits etc, siehe hier(Bild im Anhang):

[Pseudemys Nelsoni]

btw: die transparent menge ist egal, hauptsache es scheint irgendwie durch

[alcaeus]

aha,ok, ich habe mir schon gedacht wieso du was fragst wenn es ja schon geht... also, so auf die schnelle weiß ich nicht wie du eine liste transparent machen könntest, aber es gibt andere Lösungsansätze:
1. Du programmierst eine Komponente, um der du dich ums Zeichnen kümmerst.
2. Du verwendest die TWebBrowser-Komponente und legs das alles in einer HTML-Datei ab. Dann schneidest du diesen Teil als Bild aus, und fügst ihn mit CSS in di HTML-Datei ein. Natürlich sind dann HTML, JS und CSS-Kenntnisse notwendig, aber da lässt sich schon was machen falls du interessiert bist...

[Pseudemys Nelsoni]

HTML/CSS hab ich leider keinen funken ahnung, wäre es auch mögliche mit canvas drüber zu zeichnen?

[neolithos]

Schon mal daran gedacht den Control-Hintergrund selbst zu Zeichnen?

via der Windows-Nachricht WM_ERASEBKGND

Dazu müsstest du jedes Control über WindowProc Hooken oder gleich ableiten.

genaures falls Interesse

[alcaeus]

Mit Canvas was zeichnen dürfte gehen, du kannst es ja mal probieren, nimm einfach in JPG und lade es in den Canvas der Liste.. (z.B.

Code:

ListBox1.Canvas.Draw(Bitmap1);

[neolithos]

Im Paint solche Aktionen zu starten wird ein häßliches Flackern starten.

Am Flackerfreisten und elegantesten ist diese Methode für den Hintergrund:

Delphi-Quellcode:

  procedure WM_EraseBkGnd(var Message : TWMEraseBkgnd); message WM_ERASEBKGND;


procedure T???.WMEraseBkGnd(var Message: TWMEraseBkgnd);
begin
  with Message do
    begin
      BitBlt(hDC, ??????); // Bitmap reinkopieren
      // oder mittels AlphaBlend-effect
      Result := 1; // Hintergrund gezeichnet!
    end;
end;

Die einzelnen Items mittels Owner-Draw anpassen