diff options
Diffstat (limited to 'src/corelib/gfx_widget.pas')
-rw-r--r-- | src/corelib/gfx_widget.pas | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/corelib/gfx_widget.pas b/src/corelib/gfx_widget.pas index a49f3cca..7c46c6d1 100644 --- a/src/corelib/gfx_widget.pas +++ b/src/corelib/gfx_widget.pas @@ -575,6 +575,7 @@ var n: integer; c: TComponent; begin +// writeln('Widget.HandleShow - ', ClassName, ' x:', Left, ' y:', Top, ' w:', Width, ' h:', Height); FOnScreen := True; // FVisible := True; @@ -897,6 +898,7 @@ end; procedure TfpgWidget.MsgPaint(var msg: TfpgMessageRec); begin +// writeln('TfpgWidget.MsgPaint - ', Classname); Canvas.BeginDraw; HandlePaint; if Assigned(FOnPaint) then |