+ Enhanced testall-app with demo for TPanel, stoppok

git-svn-id: trunk@1540 -

examples/testallform.pp

@@ -82,7 +82,7 @@ type
     //PageControl1      : TPageControl;
     //TabSheet1, TabSheet2, TabSheet3 : TTabSheet;
       PaintBox1         : TPaintBox;
-    //Panel1            : TPanel;
+      Panel1            : TPanel;
       PixMap1           : TPixMap;
       PopupMenu1        : TPopupMenu;
       Hello, Doctor, FName, Yesterday, Tomorrow : TMenuItem;
@@ -220,6 +220,16 @@ type
 
 //+++++++++++++ TPaintBox +++++++++++++++++++++++++++++ 
       pntCount : integer;
+//+++++++++++++ TPanel ++++++++++++++++++++++++++++++++ 
+      Panel2         : TPanel;
+      btPanelNorm    : TButton;
+      rgPanelInBevel,
+      rgPanelOutBevel,
+      rgPanelAlign   : TRadioGroup;
+      procedure PanelInBevelClick(Sender: TObject);
+      procedure PanelOutBevelClick(Sender: TObject);
+      procedure PanelAlignClick(Sender: TObject);
+      procedure PanelNormClick(Sender:TObject);
 //+++++++++++++ TProgressBar ++++++++++++++++++++++++++
       chbProgText, chbProgDirect, chbProgOrient, chbProgEnable, chbSmooth : TCheckBox;
       ProgTime : TTimer;
@@ -667,7 +677,7 @@ begin
 
   TPan := TMenuItem.Create(Self);
   TPan.Caption := 'TPanel';
-  TPan.OnClick := @ShowMessage0;          //++ Do not exist yet ++
+  TPan.OnClick := @ShowMessage1;
 
   TPop := TMenuItem.Create(Self);
   TPop.Caption := 'TPopupMenu';
@@ -2041,7 +2051,23 @@ PaintBox1 := TPaintBox.Create(Self); //Gives Access violation !!!
     Width          := 100;
   end;
 //++++++++++++++++++++++++++++++++++++ Panel1 +++++++++++++++++++++++++++++++++++++++
-
+benchform[33].width := 550;
+Panel1 := TPanel.Create (Form1);
+  with Panel1 do
+  begin
+    Parent         := BenchForm[33];
+    PanelNormClick (self);
+  end;
+Panel2 := TPanel.Create (Form1);
+  with Panel2 do
+  begin
+    Parent         := BenchForm[33];
+    Align          := alBottom;
+    Height := 150;
+    Ctl3D := False;
+    Caption := 'Panel1';
+    Visible := True;
+  end;
 //++++++++++++++++++++++++++++++++++++ PopupMenu1 +++++++++++++++++++++++++++++++++++
 Hello := TMenuItem.Create(PopupMenu1);
 Hello.Caption := 'Hello';
@@ -2540,6 +2566,9 @@ END.
 
 {
   $Log$
+  Revision 1.7  2002/03/23 21:02:02  lazarus
+  + Enhanced testall-app with demo for TPanel, stoppok
+
   Revision 1.6  2002/02/03 00:24:00  lazarus
   TPanel implemented.
   Basic graphic primitives split into GraphType package, so that we can

examples/testtools.inc

@@ -1125,7 +1125,78 @@ btnOpen := TBitBtn.Create(Self); //Button Open
 //+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 //+++++++++++++++++++++++++++++++++++ TPanel Tools ++++++++++++++++++++++++++++++++++
 //+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
-//             ADD Panel CompTools HERE !!!!!!!!!
+
+  rgPanelOutBevel := TRadioGroup.Create (self);
+  with rgPanelOutBevel do
+  begin
+     Parent := Panel2;
+     OnClick := @PanelOutBevelClick;
+     Top    := 10;
+     Left   := 250;
+     Height := 100;
+     Width  := 100;
+     Items.Add ('lowered');
+     Items.Add ('raised');
+     Items.Add ('none');
+     Items.Add ('(!)space');
+     Hint := 'Change style (lowered/raised..)';
+     ShowHint := True;
+     ItemIndex := 1;
+     Show;
+     Caption := 'Outer-Bevel';
+  End;
+  rgPanelInBevel := TRadioGroup.Create (self);
+  with rgPanelInBevel do
+  begin
+     Parent := Panel2;
+     OnClick := @PanelInBevelClick;
+     Top    := 10;
+     Left   := 140;
+     Height := 100;
+     Width  := 100;
+     Items.Add ('lowered');
+     Items.Add ('raised');
+     Items.Add ('none');
+     Items.Add ('(!)space');
+     Hint := 'Change style (lowered/raised..)';
+     ShowHint := True;
+     ItemIndex := 2;
+     Show;
+     Caption := 'Inner-Bevel';
+  End;
+  rgPanelAlign := TRadioGroup.Create (self);
+  with rgPanelAlign do
+  begin
+     Parent := Panel2;
+     OnClick := @PanelAlignClick;
+     top    := 10;
+     left   := 10;
+     Height := 130;
+     Width  := 120;
+     Items.Add ('alNone');
+     Items.Add ('alBottom');
+     Items.Add ('alClient');
+     Items.Add ('alLeft');
+     Items.Add ('alRight');
+     Items.Add ('alTop');
+     ItemIndex := 0;
+     Show;
+     Caption := 'Alignment';
+  end;
+  btPanelNorm := TButton.Create(self);
+  with btPanelNorm do
+  begin
+     Parent := Panel2;
+     OnClick:= @PanelNormClick; 
+     top    := 10;
+     left   := 360;
+     Height := 30;
+     Width  := 50;
+     Show;
+     Caption := 'Norm';
+  end;
+
+
 //+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 //+++++++++++++++++++++++++++++++++++ TPopupMenu Tools ++++++++++++++++++++++++++++++
 //+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
@@ -2080,6 +2151,66 @@ begin
 
 end;
 
+
+//++++++++++++++++++++++++++++++++ TPanel +++++++++++++++++++++++++++++++++++++++++++
+procedure TForm1.PanelInBevelClick(Sender: TObject);
+begin
+  case rgPanelInBevel.ItemIndex of
+     0 : Panel1.BevelInner := bvLowered;
+     1 : Panel1.BevelInner := bvRaised;
+     2 : Panel1.BevelInner := bvNone;
+     3 : Panel1.BevelInner := bvNone;
+  else
+     Panel1.BevelInner := bvNone;
+  end;
+  Panel1.Show;
+end;
+
+procedure TForm1.PanelOutBevelClick(Sender: TObject);
+begin
+  case rgPanelInBevel.ItemIndex of
+     0 : Panel1.BevelOuter := bvLowered;
+     1 : Panel1.BevelOuter := bvRaised;
+     2 : Panel1.BevelOuter := bvNone;
+     3 : Panel1.BevelOuter := bvNone;
+  else
+     Panel1.BevelOuter := bvNone;
+  end;
+  Panel1.Show;
+end;
+
+procedure TForm1.PanelAlignClick(Sender: TObject);
+begin
+  case rgPanelAlign.ItemIndex of
+     0 : Panel1.Align := alNone;
+     1 : Panel1.Align := alBottom;
+     2 : Panel1.Align := alClient;
+     3 : Panel1.Align := alLeft;
+     4 : Panel1.Align := alRight;
+     5 : Panel1.Align := alTop;
+  else
+     Panel1.Align := alNone;
+  end;
+  Panel1.Show;
+end;
+
+procedure TForm1.PanelNormClick(Sender:TObject);
+begin
+   with Panel1 do
+   begin
+      Left   := 10;
+      Top    := 10;
+      Width  := 300;
+      Height := 100;
+      Ctl3D  := False;
+      Caption := 'Panel1';
+      Visible := True;
+      Align   := alNone;
+      BevelOuter := bvRaised;
+      BevelInner := bvNone;
+   end;
+end;
+//++++++++++++++++++++++++++++++++ TBevel +++++++++++++++++++++++++++++++++++++++++++
 procedure TForm1.BevelSettings(Sender : TObject);
 begin
    case chbBevelShape.ItemIndex of
@@ -2602,6 +2733,12 @@ begin
     EventForm.Caption := EventForm.Caption+' TPaintBox';
     Assert(False, 'Trace: >>> TPaintBox TEST');
   end;
+  if Sender=TPan then
+  begin
+    BenchForm[33].Show;
+    EventForm.Caption := EventForm.Caption+' TPanel';
+    Assert(False, 'Trace: >>> TPanel TEST');
+  end;
   If Sender=TPop then
   begin
     BenchForm[34].Show;
@@ -2723,6 +2860,9 @@ begin
 end;
 {
   $Log$
+  Revision 1.6  2002/03/23 21:02:02  lazarus
+  + Enhanced testall-app with demo for TPanel, stoppok
+
   Revision 1.5  2001/04/17 21:36:15  lazarus
   * enhanced testdialog for TBevel
   * basic test for TPaintBox