Merge branch 'fixes_1.4'HEADmaster

3 files changed, 260 insertions, 52 deletions

diff --git a/examples/gui/colorwheel/frm_main.pas b/examples/gui/colorwheel/frm_main.pas
index 612ea6c1..1cde9cdf 100644
--- a/examples/gui/colorwheel/frm_main.pas
+++ b/examples/gui/colorwheel/frm_main.pas
@@ -7,7 +7,7 @@ interface
 uses
   SysUtils, Classes, fpg_base, fpg_main, fpg_widget,
   fpg_edit, fpg_form, fpg_label, fpg_button,
-  fpg_dialogs, fpg_menu, fpg_checkbox,
+  fpg_dialogs, fpg_menu, fpg_checkbox, fpg_listbox, fpg_combobox,
   fpg_panel, fpg_ColorWheel, fpg_spinedit;
 
 type
@@ -55,7 +55,11 @@ type
     edR: TfpgSpinEdit;
     edG: TfpgSpinEdit;
     edB: TfpgSpinEdit;
+    Label10: TfpgLabel;
+    cbColors: TfpgComboBox;
+    lbColors: TfpgColorListBox;
     lblHex: TfpgLabel;
+    eHex: TfpgEdit;
     Label7: TfpgLabel;
     Label8: TfpgLabel;
     Bevel2: TfpgBevel;
@@ -76,6 +80,14 @@ type
     procedure   UpdateRGBComponents;
     procedure   ColorChanged(Sender: TObject);
     procedure   RGBChanged(Sender: TObject);
+    procedure   RGBChanging;
+    procedure   ConvertToInt(Value: string);
+    procedure   eHexKeyChar(Sender: TObject; AChar: TfpgChar; var Consumed: boolean);
+    procedure   eHexKeyPress(Sender: TObject; var KeyCode: word; var ShiftState: TShiftState;
+      var Consumed: boolean);
+    procedure   PopulatePaletteColorCombo;
+    procedure   cbColorsChange(Sender: TObject);
+    procedure   lbColorsChange(Sender: TObject);
   public
     constructor Create(AOwner: TComponent); override;
     procedure   AfterCreate; override;
@@ -87,6 +99,52 @@ implementation
 
 {@VFD_NEWFORM_IMPL}
 
+procedure TMainForm.ConvertToInt(Value: string);
+var
+  iRed, iGreen, iBlue: integer;
+  i, iTemp : integer;
+  HexVal: string;
+begin
+  for i:= 2 to 7 do
+  begin
+    HexVal:= Copy(Value,i,1);
+    case Uppercase(HexVal) of
+      'F':
+        iTemp:= 15;
+      'E':
+        iTemp:= 14;
+      'D':
+        iTemp:= 13;
+      'C':
+        iTemp:= 12;
+      'B':
+        iTemp:= 11;
+      'A':
+        iTemp:= 10
+      else
+        if (HexVal>= '0') and (HexVal<= '9') then
+          iTemp:= StrToInt(HexVal);
+    end;
+    case i of
+      2:
+        iRed:= iTemp;
+      3:
+        iRed:= iRed * 16 +iTemp;
+      4:
+        iGreen:= iTemp;
+      5:
+        iGreen:= iGreen * 16 +iTemp;
+      6:
+        iBlue:= iTemp;
+      7:
+        iBlue:= iBlue * 16 +iTemp;
+    end;
+  end;
+  edR.Value := iRed;
+  edG.Value := iGreen;
+  edB.Value := iBlue;
+end;
+
 function ConvertToHexa(Value: Integer): string;
 var
   ValH,ValL: Integer;
@@ -188,6 +246,11 @@ begin
 end;
 
 procedure TMainForm.RGBChanged(Sender: TObject);
+begin
+  RGBChanging;
+end;
+
+procedure TMainForm.RGBChanging;
 var
   rgb: TRGBTriple;
   c: TfpgColor;
@@ -199,7 +262,7 @@ begin
   c := RGBTripleTofpgColor(rgb);
   ColorWheel1.SetSelectedColor(c);  // This will trigger ColorWheel and ValueBar OnChange event
   FViaRGB := False;
-  lblHex.Text:= 'Hex = '+ Hexa(rgb.Red,rgb.Green,rgb.Blue);
+  eHex.Text:= Hexa(rgb.Red,rgb.Green,rgb.Blue);
 end;
 
 constructor TMainForm.Create(AOwner: TComponent);
@@ -249,8 +312,8 @@ end;
 procedure TMainForm.UpdateHSVComponents;
 begin
   edH.Text := IntToStr(ColorWheel1.Hue);
-  edS.Text := FormatFloat('0.000', ColorWheel1.Saturation);
-  edV.Text := FormatFloat('0.000', ValueBar1.Value);
+  edS.Text := FormatFloat('##0.0', ColorWheel1.Saturation * 100);
+  edV.Text := FormatFloat('##0.0', ValueBar1.Value * 100);
   Bevel1.BackgroundColor := ValueBar1.SelectedColor;
 end;
 
@@ -264,17 +327,78 @@ begin
   edR.Value := rgb.Red;
   edG.Value := rgb.Green;
   edB.Value := rgb.Blue;
-  lblHex.Text:= 'Hex = '+ Hexa(rgb.Red,rgb.Green,rgb.Blue);
+  eHex.Text:= Hexa(rgb.Red,rgb.Green,rgb.Blue);
+end;
+
+procedure TMainForm.eHexKeyChar(Sender: TObject; AChar: TfpgChar; var Consumed: boolean);
+begin
+if Length(eHex.Text)= 0 then
+begin
+  if AChar<> '$' then
+    Consumed:= True;
+end
+else
+  if ((AChar< '0') or (AChar> '9')) and ((AChar< 'A') or (AChar> 'F')) and ((AChar< 'a') or (AChar> 'f')) then
+    Consumed:= True;
+end;
+
+procedure TMainForm.eHexKeyPress(Sender: TObject; var KeyCode: word; var ShiftState: TShiftState;
+          var Consumed: boolean);
+begin
+  if ((KeyCode= KeyReturn) or (KeyCode= KeyPEnter)) and (Length(eHex.Text)= 7) then
+  begin
+    ConvertToInt(eHex.Text);
+    RGBChanging;
+  end;
+end;
+
+procedure TMainForm.PopulatePaletteColorCombo;
+begin
+  with cbColors do
+  begin
+    Items.Clear;
+    Items.Add('cpStandardColors');
+    Items.Add('cpSystemColors');
+    Items.Add('cpWebColors');
+    FocusItem := 0;
+    OnChange := @cbColorsChange;
+  end;
+end;
+
+procedure TMainForm.cbColorsChange(Sender: TObject);
+begin
+  if cbColors.Text = 'cpStandardColors' then
+    lbColors.ColorPalette := cpStandardColors
+  else if cbColors.Text = 'cpSystemColors' then
+    lbColors.ColorPalette := cpSystemColors
+  else
+    lbColors.ColorPalette := cpWebColors;
+end;
+
+procedure TMainForm.lbColorsChange(Sender: TObject);
+var
+  rgb: TRGBTriple;
+  c: TfpgColor;
+begin
+  c := lbColors.Color;
+  rgb := fpgColorToRGBTriple(c);
+  edR.Value := rgb.Red;
+  edG.Value := rgb.Green;
+  edB.Value := rgb.Blue;
+  eHex.Text:= Hexa(rgb.Red,rgb.Green,rgb.Blue);
+  ConvertToInt(eHex.Text);
+  RGBChanging;
 end;
 
 procedure TMainForm.AfterCreate;
 begin
   {@VFD_BODY_BEGIN: MainForm}
   Name := 'MainForm';
-  SetPosition(349, 242, 537, 411);
+  SetPosition(0, 0, 540, 420);
   WindowTitle := 'ColorWheel test app';
   Hint := '';
-  WindowPosition := wpUser;
+  IconName := '';
+  WindowPosition := wpScreenCenter;
 
   Button1 := TfpgButton.Create(self);
   with Button1 do
@@ -294,14 +418,14 @@ begin
   with ColorWheel1 do
   begin
     Name := 'ColorWheel1';
-    SetPosition(20, 20, 272, 244);
+    SetPosition(12, 20, 272, 244);
   end;
 
   ValueBar1 := TfpgValueBar.Create(self);
   with ValueBar1 do
   begin
     Name := 'ValueBar1';
-    SetPosition(304, 20, 52, 244);
+    SetPosition(290, 20, 52, 244);
     Value := 1;
     OnChange  := @ColorChanged;
   end;
@@ -318,7 +442,7 @@ begin
   with Label1 do
   begin
     Name := 'Label1';
-    SetPosition(116, 284, 52, 18);
+    SetPosition(108, 284, 64, 16);
     Alignment := taRightJustify;
     FontDesc := '#Label1';
     Hint := '';
@@ -329,62 +453,68 @@ begin
   with Label2 do
   begin
     Name := 'Label2';
-    SetPosition(116, 316, 52, 18);
+    SetPosition(108, 312, 64, 16);
     Alignment := taRightJustify;
     FontDesc := '#Label1';
     Hint := '';
-    Text := 'Sat';
+    Text := 'Saturation';
   end;
 
   Label3 := TfpgLabel.Create(self);
   with Label3 do
   begin
     Name := 'Label3';
-    SetPosition(116, 344, 52, 18);
+    SetPosition(108, 340, 64, 16);
     Alignment := taRightJustify;
     FontDesc := '#Label1';
     Hint := '';
-    Text := 'Val';
+    Text := 'Brightness';
   end;
 
   edH := TfpgEdit.Create(self);
   with edH do
   begin
     Name := 'edH';
-    SetPosition(172, 280, 56, 26);
+    SetPosition(176, 280, 44, 24);
+    BackgroundColor := clWindowBackground;
+    ExtraHint := '';
+    FontDesc := '#Edit1';
+    Hint := '';
     TabOrder := 8;
     Text := '';
-    FontDesc := '#Edit1';
-    BackgroundColor := clWindowBackground;
   end;
 
   edS := TfpgEdit.Create(self);
   with edS do
   begin
     Name := 'edS';
-    SetPosition(172, 308, 56, 26);
+    SetPosition(176, 308, 44, 24);
+    BackgroundColor := clWindowBackground;
+    ExtraHint := '';
+    FontDesc := '#Edit1';
+    Hint := '';
     TabOrder := 9;
     Text := '';
-    FontDesc := '#Edit1';
-    BackgroundColor := clWindowBackground;
   end;
 
   edV := TfpgEdit.Create(self);
   with edV do
   begin
     Name := 'edV';
-    SetPosition(172, 336, 56, 26);
+    SetPosition(176, 336, 44, 24);
+    BackgroundColor := clWindowBackground;
+    ExtraHint := '';
+    FontDesc := '#Edit1';
+    Hint := '';
     TabOrder := 10;
     Text := '';
-    FontDesc := '#Edit1';
-    BackgroundColor := clWindowBackground;
   end;
 
   Label4 := TfpgLabel.Create(self);
   with Label4 do
   begin
     Name := 'Label4';
-    SetPosition(236, 284, 56, 18);
+    SetPosition(230, 284, 56, 16);
     Alignment := taRightJustify;
     FontDesc := '#Label1';
     Hint := '';
@@ -395,7 +525,7 @@ begin
   with Label5 do
   begin
     Name := 'Label5';
-    SetPosition(236, 316, 56, 18);
+    SetPosition(230, 312, 56, 16);
     Alignment := taRightJustify;
     FontDesc := '#Label1';
     Hint := '';
@@ -406,7 +536,7 @@ begin
   with Label6 do
   begin
     Name := 'Label6';
-    SetPosition(236, 344, 56, 18);
+    SetPosition(230, 340, 56, 16);
     Alignment := taRightJustify;
     FontDesc := '#Label1';
     Hint := '';
@@ -417,12 +547,13 @@ begin
   with edR do
   begin
     Name := 'edR';
-    SetPosition(296, 280, 44, 26);
+    SetPosition(290, 280, 44, 24);
     TabOrder := 13;
     MinValue := 0;
     MaxValue := 255;
     Value := 255;
     FontDesc := '#Edit1';
+    OnChange := @RGBChanged;
     OnExit  := @RGBChanged;
   end;
 
@@ -430,12 +561,13 @@ begin
   with edG do
   begin
     Name := 'edG';
-    SetPosition(296, 308, 44, 26);
+    SetPosition(290, 308, 44, 24);
     TabOrder := 14;
     MinValue := 0;
     MaxValue := 255;
     Value := 255;
     FontDesc := '#Edit1';
+    OnChange := @RGBChanged;
     OnExit := @RGBChanged;
   end;
 
@@ -443,25 +575,76 @@ begin
   with edB do
   begin
     Name := 'edB';
-    SetPosition(296, 336, 44, 26);
+    SetPosition(290, 336, 44, 24);
     TabOrder := 15;
     MinValue := 0;
     MaxValue := 255;
     Value := 255;
     FontDesc := '#Edit1';
+    OnChange := @RGBChanged;
     OnExit := @RGBChanged;
   end;
 
+  Label10 := TfpgLabel.Create(self);
+  with Label10 do
+  begin
+    Name := 'Label10';
+    SetPosition(352, 100, 180, 16);
+    FontDesc := '#Label1';
+    Hint := '';
+    Text := 'Predefined Color Palettes';
+  end;
+
+  cbColors := TfpgComboBox.Create(self);
+  with cbColors do
+  begin
+    Name := 'cbColors';
+    SetPosition(352, 120, 180, 22);
+    ExtraHint := '';
+    FontDesc := '#List';
+    Hint := '';
+    FocusItem := -1;
+    TabOrder := 18;
+  end;
+
+  lbColors := TfpgColorListBox.Create(self);
+  with lbColors do
+  begin
+    Name := 'lbColors';
+    SetPosition(352, 150, 180, 160);
+    Color := TfpgColor($FF00FFFF);
+    FontDesc := '#List';
+    Hint := '';
+    TabOrder := 19;
+    ScrollbarPage := VisibleItems;
+    OnChange := @lbColorsChange;
+  end;
+
   lblHex := TfpgLabel.Create(self);
   with lblHex do
   begin
     Name := 'lblHex';
-    SetPosition(380, 316, 120, 16);
+    SetPosition(375, 340, 120, 16);
     FontDesc := '#Label2';
     Hint := '';
     Text := 'Hex = ';
   end;
 
+  eHex := TfpgEdit.Create(self);
+  with eHex do
+  begin
+    Name := 'eHex';
+    SetPosition(420, 336, 65, 24);
+    ExtraHint := '';
+    FontDesc := '#Label2';
+    Hint := '';
+    TabOrder := 21;
+    Text := '';
+    MaxLength:= 7;
+    OnKeyChar:= @eHexKeyChar;
+    OnKeyPress:= @eHexKeyPress;
+  end;
+
   Label7 := TfpgLabel.Create(self);
   with Label7 do
   begin
@@ -476,7 +659,7 @@ begin
   with Label8 do
   begin
     Name := 'Label8';
-    SetPosition(304, 3, 64, 16);
+    SetPosition(290, 3, 64, 16);
     FontDesc := '#Label2';
     Hint := '';
     Text := 'ValueBar';
@@ -486,7 +669,7 @@ begin
   with Bevel2 do
   begin
     Name := 'Bevel2';
-    SetPosition(388, 8, 2, 260);
+    SetPosition(388, 8, 2, 80);
     Hint := '';
     Style := bsLowered;
   end;
@@ -542,17 +725,18 @@ begin
   chkContinuous := TfpgCheckBox.Create(self);
   with chkContinuous do
   begin
-    Name := 'chkContinous';
+    Name := 'chkContinuous';
     SetPosition(205, 375, 90, 19);
     FontDesc := '#Label1';
     Hint := '';
     TabOrder := 25;
-    Text := 'Continous';
+    Text := 'Continuous';
     OnChange := @chkContinuousChanged;
   end;
 
   {@VFD_BODY_END: MainForm}
 
+  PopulatePaletteColorCombo;
   // link the two components
   ColorWheel1.ValueBar := ValueBar1;
 //  ColorWheel1.BackgroundColor := clFuchsia;
diff --git a/examples/gui/dbtest/frm_main.pas b/examples/gui/dbtest/frm_main.pas
index 70ca7964..2061f09e 100644
--- a/examples/gui/dbtest/frm_main.pas
+++ b/examples/gui/dbtest/frm_main.pas
@@ -7,7 +7,7 @@ interface
 uses
   SysUtils, Classes, fpg_main,
   fpg_widget, fpg_form, fpg_label, fpg_button,
-  fpg_listbox, fpg_panel, fpgui_db, db, dbf{, dbf_fields};
+  fpg_listbox, fpg_panel, fpgui_db, db, dbf, u_reportimages;
 
 type
 
@@ -114,6 +114,7 @@ constructor TMainForm.Create(AOwner: TComponent);
 //  fields: TDbfFieldDefs;
 begin
   inherited Create(AOwner);
+  CreateReportImages;
   DataSet             := TDBF.Create(Self);
   DataSet.TableName   := 'test.dbf';
   
@@ -150,10 +151,11 @@ procedure TMainForm.AfterCreate;
 begin
   {@VFD_BODY_BEGIN: MainForm}
   Name := 'MainForm';
-  SetPosition(225, 208, 417, 315);
+  SetPosition(461, 212, 417, 315);
   WindowTitle := 'fpGUI DB controls test';
-  WindowPosition := wpScreenCenter;
-  Sizeable := False;
+  Hint := '';
+  IconName := '';
+  WindowPosition := wpOneThirdDown;
 
   btnQuit := TfpgButton.Create(self);
   with btnQuit do
@@ -162,7 +164,9 @@ begin
     SetPosition(332, 264, 75, 24);
     Text := 'Quit';
     FontDesc := '#Label1';
+    Hint := '';
     ImageName := 'stdimg.quit';
+    TabOrder := 1;
     OnClick := @btnQuitClicked;
   end;
 
@@ -171,10 +175,11 @@ begin
   begin
     Name := 'btnFirst';
     SetPosition(8, 264, 30, 24);
-    Text := '<<';
+    Text := '';
     FontDesc := '#Label1';
-    ImageName := '';
     Hint := 'First record';
+    ImageName := 'repimg.first';
+    TabOrder := 2;
     OnClick := @btnFirstClick;
     OnMouseEnter := @ButtonEnter;
     OnMouseExit := @ButtonExit;
@@ -185,10 +190,11 @@ begin
   begin
     Name := 'btnPrev';
     SetPosition(40, 264, 30, 24);
-    Text := '<';
+    Text := '';
     FontDesc := '#Label1';
-    ImageName := '';
     Hint := 'Previous record';
+    ImageName := 'repimg.previous';
+    TabOrder := 3;
     OnClick := @btnPrevClick;
     OnMouseEnter := @ButtonEnter;
     OnMouseExit := @ButtonExit;
@@ -199,10 +205,11 @@ begin
   begin
     Name := 'btnNext';
     SetPosition(72, 264, 30, 24);
-    Text := '>';
+    Text := '';
     FontDesc := '#Label1';
-    ImageName := '';
     Hint := 'Next record';
+    ImageName := 'repimg.next';
+    TabOrder := 4;
     OnClick := @btnNextClick;
     OnMouseEnter := @ButtonEnter;
     OnMouseExit := @ButtonExit;
@@ -213,10 +220,11 @@ begin
   begin
     Name := 'btnLast';
     SetPosition(104, 264, 30, 24);
-    Text := '>>';
+    Text := '';
     FontDesc := '#Label1';
-    ImageName := '';
     Hint := 'Last record';
+    ImageName := 'repimg.last';
+    TabOrder := 5;
     OnClick := @btnLastClick;
     OnMouseEnter := @ButtonEnter;
     OnMouseExit := @ButtonExit;
@@ -228,6 +236,8 @@ begin
     Name := 'lstName1';
     SetPosition(8, 24, 400, 156);
     FontDesc := '#List';
+    Hint := '';
+    TabOrder := 6;
   end;
 
   dblblName := TfpgDBLabel.Create(self);
@@ -249,8 +259,9 @@ begin
   begin
     Name := 'lblName1';
     SetPosition(20, 208, 80, 16);
-    Text := 'Name:';
     FontDesc := '#Label1';
+    Hint := '';
+    Text := 'Name:';
   end;
 
   lblName2 := TfpgLabel.Create(self);
@@ -258,8 +269,9 @@ begin
   begin
     Name := 'lblName2';
     SetPosition(20, 228, 80, 16);
-    Text := 'E-mail:';
     FontDesc := '#Label1';
+    Hint := '';
+    Text := 'E-mail:';
   end;
 
   pnlName1 := TfpgBevel.Create(self);
@@ -268,6 +280,7 @@ begin
     Name := 'pnlName1';
     SetPosition(0, 296, 416, 18);
     Anchors := [anLeft,anRight,anBottom];
+    Hint := '';
     Style := bsLowered;
   end;
 
@@ -276,8 +289,9 @@ begin
   begin
     Name := 'lblName3';
     SetPosition(8, 4, 400, 16);
-    Text := 'Available DB Records:';
     FontDesc := '#Label1';
+    Hint := '';
+    Text := 'Available DB Records:';
   end;
 
   lblName4 := TfpgLabel.Create(self);
@@ -285,8 +299,9 @@ begin
   begin
     Name := 'lblName4';
     SetPosition(8, 188, 168, 16);
-    Text := 'Current record:';
     FontDesc := '#Label2';
+    Hint := '';
+    Text := 'Current record:';
   end;
 
   lblStatusBar := TfpgLabel.Create(pnlName1);
@@ -295,8 +310,9 @@ begin
     Name := 'lblStatusBar';
     SetPosition(5, 1, 404, 16);
     Anchors := [anLeft,anRight,anTop];
-    Text := '';
     FontDesc := '#Label1';
+    Hint := '';
+    Text := '';
   end;
 
   {@VFD_BODY_END: MainForm}
diff --git a/examples/gui/tabtest/tabtest.lpr b/examples/gui/tabtest/tabtest.lpr
index 3675e29a..d5bac5b9 100644
--- a/examples/gui/tabtest/tabtest.lpr
+++ b/examples/gui/tabtest/tabtest.lpr
@@ -22,6 +22,7 @@ type
     btn2, btn3: TfpgButton;
     chkSort: TfpgCheckBox;
     cbTabPos: TfpgComboBox;
+    lblHeight: TfpgLabel;
     edtHeight: TfpgEditInteger;
     lbl: TfpgLabel;
     procedure   TabSheet4Painting(Sender: TObject);
@@ -106,6 +107,8 @@ begin
   pcMain.Width    := Width - 20;
   pcMain.Height   := 300;
   pcMain.Anchors  := [anLeft, anTop, anRight, anBottom];
+  pcMain.ActiveTabColor:= clOrangeRed;
+  pcMain.ActiveTabTextColor:= clYellow;
 //  pcMain.FixedTabWidth:=150;
 
   // Tab One
@@ -124,6 +127,9 @@ begin
   // Tab Three
   tsThree := TfpgTabSheet.Create(pcMain);
   tsThree.Text := 'Tab Three';
+  tsThree.BackgroundColor:= clWheat;
+  tsThree.TabColor:= clLightBlue;
+  tsThree.TabTextColor:= clWhite;
   CreateLabel(tsThree, 80, 50, 'TabSheet Three');
   
   // Tab Four
@@ -156,9 +162,11 @@ begin
   cbTabPos.Hint := 'Tab position';
   cbTabPos.OnChange := @cbTabPosChanged;
 
-  CreateLabel(self, 390, 325, 'Height:');
+  lblHeight := CreateLabel(self, 390, 325, 'Height:');
+  lblHeight.Anchors := [anBottom, anLeft];
   edtHeight := CreateEditInteger(self, 435, 320, 30, 24, False);
   edtHeight.Value := 0;
+  edtHeight.Anchors := [anBottom, anLeft];
   edtHeight.Hint := 'Tab height';
   edtHeight.OnChange := @edtHeightChanged;
 end;