* 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.

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