Zeichnen auf MDI-Form...

[Progman]

vielleicht das ganze auch in Resize der TreeView ausführen, sofern die auch dieses Ereignis hat? Ich kann im Moment nicht nachschauen.

[bingo72]

Danke aber ändert nichts am Effekt...

[shmia]

Zitat:

Zitat von bingo72

Ich habe eine MDI-Form auf der links ein MenüTree ist, der in seiner Breite verschiebbar ist. Auf der verbleibenden Fläche der Applikation, soll ein Hintergrundlogo mittig zentriert plaziert werden und die Fläche selbst eine Hintergrundfarbe bekommen.
Die Applikation selbst ist in seiner Größe ebenfalls veränderbar.

Du brauchst die Komponente MDIWallPaper.
Ansonsten hast du zu viel Stress und dein MDI Hauptformular wird mit Low-Level Code zugemüllt.
http://www.fortunecity.com/skyscrape...86/downdir.htm

[bingo72]

Hallo!!

Ich hab mir die Komponente angesehen, aber nichts gefunden, was ich nicht ohnedies jetzt schon mache. Mir geht es momentan nicht darum, einen möglichst schlanken Code zu erzeugen, sondern eher mal das Problem zu lösen....trozdem danke!!

LG
Thomas

[bingo72]

Ich habs dann so gelöst, daß ich auf meiner Form im OnPaint und OnResize die DrawBackground-Methode auslöse und die MainClientWndProc hab ich folgendermaßen abgeändert:

Delphi-Quellcode:

case Msg of WM_ERASEBKGND:
      begin
        lDC := TWMEraseBkGnd(Message).DC;
        lBrushOld := SelectObject(lDC, fBkBrush);
        FillRect(lDC, ClientRect, fBkBrush);
        SelectObject(lDC, lBrushOld);
        Result := 1;
        DrawBackground;
      end;
      WM_SIZE:
        begin
          lDC := TWMSize(Message).Msg;
          lBrushOld := SelectObject(lDC, fBkBrush);
          FillRect(lDC, ClientRect, fBkBrush);
          SelectObject(lDC, lBrushOld);
          Result := 1;
        end;
      WM_PAINT:
        begin
          lDC := TWMPaint(Message).DC;
          lBrushOld := SelectObject(lDC, fBkBrush);
          FillRect(lDC, ClientRect, fBkBrush);
          SelectObject(lDC, lBrushOld);
          Result := 1;
        end else begin
        Result := CallWindowProc (fPrevClientProc, ClientHandle, Msg, wParam, lParam);
      end;
    end;

Damit sieht es sehr gut aus... :thumb:

[Sidorion]

Mal ganz blöd gefragt: Warum setzt Du die TImage-Komponente nicht auf alClient, stretch=false und lädst Dein Bild da rein? Da muss prinzipiell keine Zeile extra Code geschrieben werden und du löst ganz nebenbei auch dein MDI-Child-Zeichenproblem.