VCL zu Non-VCL

[EWeiss]

Habe ein paar fragen zur Konvertierung von VCL zu NON-VCL
Da es einige sind habe ich diesen Thread Titel gewählt.

Delphi-Quellcode:

FillRect(FWindowDC, Rect(0, 0, FForm.Width, FForm.Height), FForm.Brush.Handle);

Delphi-Quellcode:

FForm.Width, FForm.Height

Kann ich mir über GetClientRect holen denke das ist OK!

Meine erste Frage.

Delphi-Quellcode:

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

[EWeiss]

Will wohl niemand Antworten.. ;) Egal!

gruss

[haentschman]

:roll: nach 3 Stunden. Hast du heute noch was vor?

[EWeiss]

Zitat:

Zitat von haentschman (Beitrag 1377245)

:roll: nach 3 Stunden. Hast du heute noch was vor?

Nun zumindest hat jetzt einer geantwortet Danke.
Auch wenn es nichts zum Thema beiträgt.

gruss

[Delphi-Laie]

Der Delphi-Non-VCL-Papst ist Luckie. Zur Not mal per PN bei ihm nachfragen, ob er das ggf. übersah. Ist bei seiner aufmerksamen bis pflichtbewußten Moderation allerdings eher unwahrscheinlich.

[EWeiss]

Zitat:

Zitat von Delphi-Laie (Beitrag 1377256)

Der Delphi-Non-VCL-Papst ist Luckie. Zur Not mal per PN bei ihm nachfragen, ob er das ggf. übersah. Ist bei seiner aufmerksamen bis pflichtbewußten Moderation allerdings eher unwahrscheinlich.

Du weist aber schon das es hier um VCL geht?

Zitat:

Wenn ja welche Farbe wird dann bei der Form übergeben? (NULL_BRUSH) ?

wie das in NON-VCL umgesetzt wird ist mir schon klar ;)

Delphi-Quellcode:

var
   Brush: HBrush;
begin
   Brush := CreateSolidBrush(myColor);
   SelectObject(FWindowDC, Brush);
   FillRect(FWindowDC, Rect(0, 0, ClientWidth, ClientHeight), Brush);
   DeleteObject(Brush);
end;

Aber seltsamer weise ist der Effekt etwas anders als unter VCL warum auch immer.
Ich denke da hängen noch andere Sachen dran.

Unter VCL kann ich den Ausgeschnittenen Teil der Form als clFuchsia sehen unter NON-VCL nicht.
Das ist schon etwas seltsam.

gruss

[TBx]

Zitat:

Zitat von EWeiss (Beitrag 1377253)

Auch wenn es nichts zum Thema beiträgt.

Ich denke mal, wenn Dich ein User dezent darauf hinweist, dass Pushen nicht gern gesehen ist, dann mußt Du ihn nicht auch noch treten.

Zitat:

Zitat von EWeiss

Habe ein paar fragen zur Konvertierung von VCL zu NON-VCL

und

Zitat:

Zitat von EWeiss

Du weist aber schon das es hier um VCL geht? ... wie das in NON-VCL umgesetzt wird ist mir schon klar

passt irgendwie auch nicht so ganz zusammen :gruebel:

[EWeiss]

Zitat:

passt irgendwie auch nicht so ganz zusammen

Dann erkläre mir mal warum nicht?

Ich habe versucht eine Lösung zu bekommen wie ich

Delphi-Quellcode:

FForm.Brush.Handle

nach NON-VCL umsetzen kann die Lösung habe ich dann selbst erarbeitet.
Das zu punkt NON-VCL

Zitat:

Du weist aber schon das es hier um VCL geht?

Bezog sich auf die Frage VCL!

Auf was sich dann meine Frage bezog war welche Farbe dem FForm.Brush zugewiesen wird wenn man es nicht explicit selbst tut.
Denn irgendwo her muss das Handle ja zugewiesen werden mit der dafür erstellten Farbe vom Brush.

Das zu Punkt VCL

Nun was passt hier nicht zusammen ?
Ich dachte eigentlich das mir jemand der ausschließlich mit der VCL arbeitet mir das sagen könnte.
Dem scheint wohl nicht so.

gruss

[mensch72]

Mindesten fehlt "OldBrush" zum retten des vorherigen Brushs, denn man löscht kein noch selktiertes Handle...
(ob man den Brush selektieren muss, wenn er bei FillRect mit übergeben wird, das weiß ich aus dem Kopf nicht mehr, aber schaden kann es nicht)

Delphi-Quellcode:

var
   Brush: HBrush;
   OldBrush: HBrush;
begin
   Brush := CreateSolidBrush(myColor);
   OldBrush:=SelectObject(FWindowDC, Brush);
   FillRect(FWindowDC, Rect(0, 0, ClientWidth, ClientHeight), Brush);
   SelectObject(FWindowDC, OldBrush);
   DeleteObject(Brush);
end;

[EWeiss]

Zitat:

ob man den Brush selektieren muss

Ja muss man Danke ;)

Edit:
Aber OldBrush benötigt man nicht.

Hier ein Beispiel:
http://www.functionx.com/win32/Lesson17.htm

gruss