Habe ein paar fragen zur Konvertierung von
VCL zu NON-
VCL
Da es einige sind habe ich diesen Thread Titel gewählt.
FillRect(FWindowDC, Rect(0, 0, FForm.Width, FForm.Height), FForm.Brush.Handle);
FForm.Width, FForm.Height
Kann ich mir über GetClientRect holen denke das ist OK!
Meine erste Frage.
FForm.Brush.Handle
Wann wird das Brush
Handle erstellt und wie kann ich das umsetzen zu Non-
VCL
Das einzige das ich meiner Funktion übergebe ist das Window
Handle der NON-
VCL Anwendung.
Delphi-Quellcode:
var
Brush: HBrush;
begin
Brush := CreateSolidBrush(myColor);
SelectObject(FWindowDC, Brush);
FillRect(FWindowDC, Rect(0, 0, ClientWidth, ClientHeight), Brush);
DeleteObject(Brush);
end;
Kommt das in etwa hin?
Wenn ja welche Farbe wird dann bei der Form übergeben? (NULL_BRUSH) ?
Keine selbst definierte sondern die Standard Farbe.
gruss