From f742b03ed3afc5b55df65a6bb8a3e2984479ac4b Mon Sep 17 00:00:00 2001
From: graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>
Date: Thu, 3 Jul 2008 13:33:37 +0000
Subject: * EditTest in the prototypes directory now tests Button ImageLayout
 property. * TfpgBevel has been added to the UI Designer component palette. *
 TfpgBevel is used in the UI Designer and Shape=Spacer it paints itself
 different in the UI Designer, so it's more visible. At runtime it doesn't
 paint like that.

---
 src/corelib/gfx_widget.pas | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/corelib')

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
-- 
cgit v1.2.3-70-g09d2