WM_NCPAINT - Rahmen selber Zeichnen klappt nicht so recht...

[turboPASCAL]

Zitat:

Zitat von Christian Seehase

Moin Matti,

schau Dir doch mal die Funktion GetDCEx an.
Bei mir bringt die im WMNCPAINT-Event zwar immer 0 zurück (obwohl die übergebenen Werte eigentlich stimmen sollten), aber vielleicht funktioniert es ja bei Dir.
(GetLastError meldet mir auch "Der Vorgang wurde erfolgreich durchgeführt" :gruebel:)

Mein Aufruf:

Delphi-Quellcode:

hdc := GetDCEx(self.Handle,msg.RGN,DCX_WINDOW or DCX_INTERSECTRGN);

Jupp, hab ich schon. Du bekommst ein gültigen DCdurch das hinzufügen des Flags DCX_USERSTYLE.

Delphi-Quellcode:

DCX_USERSTYLE = $10000; // oder war es $100000 *grübel*

//...
hdc := GetDCEx(Handle, msg.RGN, DCX_WINDOW or DCX_INTERSECTRGN or USERSTYLE);
// zur sicherheit mach ich dann noch:
if hdc  = 0 then hdc := GetWindowDC(Handle);

Das Problem ist das der Rahmen zwar gezeichnet wird aber beim ändern der Grösse des Fensters nicht exakt gezeichnet wird.

[Vjay]

Also ich habe mir mal dein Beispiel aus dem ersten Post geladen und gestartet.
Man hat doch garnicht die Möglichkeit die Grösse zu ändern, oder meinst du per width:= etc. ?
Ansonsten schaue dir nochmal die WM_NCCALCSIZE, vermute auf den ersten Gedanken, dass dort das Progblem liegt.

[Christian Seehase]

Moin Matti,

ein Stück weiter gekommen bin ich ja.
Schau's Dir doch mal an, ob es weiterhilft.

Delphi-Quellcode:

procedure TForm1.WMNCPAINT(var Msg: TWMNCPaint);

const
  DCX_USESTYLE = $10000;

var
  aCanvas: TCanvas;

begin
  inherited;
  aCanvas := TCanvas.Create;
  try
    aCanvas.Handle      := GetDCEx(self.Handle,Msg.RGN,DCX_WINDOW or DCX_INTERSECTRGN or DCX_USESTYLE);
    aCanvas.Pen.Color   := clLime;
    aCanvas.Brush.Style := bsFDiagonal {bsSolid};
    aCanvas.Brush.Color := clBlack;
    aCanvas.Rectangle(0, 0, Width, Height);
    Msg.Result := 0;
  finally
    ReleaseDC(Handle, aCanvas.Handle);
    aCanvas.Free;
  end;
end;

procedure TForm1.WMPAINT(var Msg: TWMPaint);

var
  aCanvas : TCanvas;

begin
  inherited;
  aCanvas := TCanvas.Create;
  try
    aCanvas.Handle      := Msg.DC;
    aCanvas.Pen.Color   := clBtnFace;
    self.DoubleBuffered := true;
  finally
    aCanvas.Free;
  end;
  Msg.Result := 1;
end;

[TAC]

Moin zusammen,

ich habe, glaube ich zumindest, so etwas mal mit dem Real-Player gesehen. Und irgendwie auch mal über Titelleist und real-player gegooglet und auch was gefunden, weiß jeodch leider nicht mehr, wie es hieß. Vielleicht hilfst ja weiter.
Was ist sonst mit dem BoundsRect, könnte das vielleicht weiterhelfen, um den CLientbereich einzugrenzen?


LG
Der TAC