diff options
| author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-07-09 10:29:20 +0000 |
|---|---|---|
| committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-07-09 10:29:20 +0000 |
| commit | 8b09ec918496c7e44c2a71f8fc000076f8847204 (patch) | |
| tree | 69b240ebeb51e5270f5c97bd66595a25d0d769bf | |
| parent | d49777ea0ba70640d6ca0b9aeb8fa461c51a0cc0 (diff) | |
| download | fpGUI-8b09ec918496c7e44c2a71f8fc000076f8847204.tar.xz | |
EventTest: added more debug information in the paint event.
| -rw-r--r-- | examples/gfx/eventtest/eventtest.pas | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/examples/gfx/eventtest/eventtest.pas b/examples/gfx/eventtest/eventtest.pas index 6a049fac..8a19ef7d 100644 --- a/examples/gfx/eventtest/eventtest.pas +++ b/examples/gfx/eventtest/eventtest.pas @@ -211,11 +211,12 @@ end; procedure TMainWindow.Paint(Sender: TObject; const ARect: TRect); begin - writeln('Paint event'); + writeln(Format('Paint event rect(%d, %d, %d, %d)', [ARect.Left, ARect.Top, + ARect.Right, ARect.Bottom])); with Canvas do begin SetColor(colWhite); - FillRect(Rect(0, 0, Width, Height)); + FillRect(ARect); SetColor(colBlack); TextOut(Point(0, 0), 'Event test'); |