Forum: Win32/Win64 API (native code)
Delphi
by _frank_,
1. Jul 2007
danke hawkeye,
die Lösung ist natürlich das i-tüpfelchen ;) (spar ich mir die separate procedure inkl. rekursion).
Frank
Forum: Win32/Win64 API (native code)
Delphi
by _frank_,
1. Jul 2007
danke bitsetter.
wenn man das ganze noch rekursiv baut funktioniert es auch super:
procedure InvalidateControl(control:TWincontrol);
var i:integer;
begin
control.Invalidate;
for i:=0 to control.ControlCount-1 do
if (control.Controls is TWinControl) then
Forum: Win32/Win64 API (native code)
Delphi
by _frank_,
1. Jul 2007
nicht ganz, es wird nur das form selbst refresht, aber die darauf befindlichen TWinControls nicht
Gruß Frank
Forum: Win32/Win64 API (native code)
Delphi
by _frank_,
1. Jul 2007
Hallo,
ich versuche folgendes zu realisieren:
ich möchte auf meinem Formular ein Grid malen (Hilflinien zur orientierung), aber über alle Controls hinweg. Somit nützt mir TForm.Canvas nicht wirklich etwas.
Also male ich direkt auf dem Screen-Canvas (getDC(0)), funktioniert problemlos.
Um dies zu löschen verwende ich aktuelle diesen code:
var r:Trect;
begin
if cfg.DrawAlignGrid then
...