summaryrefslogtreecommitdiff
path: root/examples
diff options
context:
space:
mode:
authorJean-Marc.Levecque <jmarc.levecque@bbox.fr>2015-07-10 21:49:56 +0200
committerJean-Marc.Levecque <jmarc.levecque@bbox.fr>2015-07-10 21:49:56 +0200
commit7261d5c605fca90c1a85e6a84a4fbf0eec7412a7 (patch)
treec12f990df937f5cbfd75c1367d167d98ddc8e7fa /examples
parent3828f49d6ce3bdca0c6c3415f8e026b395038a7d (diff)
downloadfpGUI-7261d5c605fca90c1a85e6a84a4fbf0eec7412a7.tar.xz
Add selection of predefined colors using colorlistbox
Signed-off-by: Jean-Marc.Levecque <jmarc.levecque@bbox.fr>
Diffstat (limited to 'examples')
-rw-r--r--examples/gui/colorwheel/frm_main.pas105
1 files changed, 90 insertions, 15 deletions
diff --git a/examples/gui/colorwheel/frm_main.pas b/examples/gui/colorwheel/frm_main.pas
index d01cedd0..362c0aeb 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,6 +55,9 @@ type
edR: TfpgSpinEdit;
edG: TfpgSpinEdit;
edB: TfpgSpinEdit;
+ Label10: TfpgLabel;
+ cbColors: TfpgComboBox;
+ lbColors: TfpgColorListBox;
lblHex: TfpgLabel;
eHex: TfpgEdit;
Label7: TfpgLabel;
@@ -83,6 +86,9 @@ type
procedure eHexKeyPress(Sender: TObject; var KeyCode: word; var ShiftState: TShiftState;
var Consumed: boolean);
procedure eHexMouseExit(Sender: TObject);
+ procedure PopulatePaletteColorCombo;
+ procedure cbColorsChange(Sender: TObject);
+ procedure lbColorsChange(Sender: TObject);
public
constructor Create(AOwner: TComponent); override;
procedure AfterCreate; override;
@@ -356,14 +362,51 @@ begin
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);
+ ColorWheel1.SetSelectedColor(c); // This will trigger ColorWheel and ValueBar OnChange event
+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;
+ WindowPosition := wpScreenCenter;
Button1 := TfpgButton.Create(self);
with Button1 do
@@ -383,14 +426,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;
@@ -473,7 +516,7 @@ begin
with Label4 do
begin
Name := 'Label4';
- SetPosition(236, 284, 56, 18);
+ SetPosition(230, 284, 56, 18);
Alignment := taRightJustify;
FontDesc := '#Label1';
Hint := '';
@@ -484,7 +527,7 @@ begin
with Label5 do
begin
Name := 'Label5';
- SetPosition(236, 316, 56, 18);
+ SetPosition(230, 316, 56, 18);
Alignment := taRightJustify;
FontDesc := '#Label1';
Hint := '';
@@ -495,7 +538,7 @@ begin
with Label6 do
begin
Name := 'Label6';
- SetPosition(236, 344, 56, 18);
+ SetPosition(230, 344, 56, 18);
Alignment := taRightJustify;
FontDesc := '#Label1';
Hint := '';
@@ -506,7 +549,7 @@ begin
with edR do
begin
Name := 'edR';
- SetPosition(296, 280, 44, 26);
+ SetPosition(290, 280, 44, 26);
TabOrder := 13;
MinValue := 0;
MaxValue := 255;
@@ -520,7 +563,7 @@ begin
with edG do
begin
Name := 'edG';
- SetPosition(296, 308, 44, 26);
+ SetPosition(290, 308, 44, 26);
TabOrder := 14;
MinValue := 0;
MaxValue := 255;
@@ -534,7 +577,7 @@ begin
with edB do
begin
Name := 'edB';
- SetPosition(296, 336, 44, 26);
+ SetPosition(290, 336, 44, 26);
TabOrder := 15;
MinValue := 0;
MaxValue := 255;
@@ -544,11 +587,42 @@ begin
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);
+ FontDesc := '#List';
+ Hint := '';
+ end;
+
+ lbColors := TfpgColorListBox.Create(Self);
+ with lbColors do
+ begin
+ Name := 'lbColors';
+ SetPosition(352,150,180,160);
+ FontDesc := '#List';
+ Hint := '';
+ ScrollbarWidth := 12;
+ ScrollbarPage := VisibleItems;
+ OnChange := @lbColorsChange;
+ end;
+
lblHex := TfpgLabel.Create(self);
with lblHex do
begin
Name := 'lblHex';
- SetPosition(375, 320, 120, 16);
+ SetPosition(375, 340, 120, 16);
FontDesc := '#Label2';
Hint := '';
Text := 'Hex = ';
@@ -558,7 +632,7 @@ begin
with eHex do
begin
Name := 'E_Hexa';
- SetPosition(420, 316, 65, 26);
+ SetPosition(420, 336, 65, 26);
FontDesc := '#Label2';
Hint := '';
Text := '';
@@ -582,7 +656,7 @@ begin
with Label8 do
begin
Name := 'Label8';
- SetPosition(304, 3, 64, 16);
+ SetPosition(290, 3, 64, 16);
FontDesc := '#Label2';
Hint := '';
Text := 'ValueBar';
@@ -592,7 +666,7 @@ begin
with Bevel2 do
begin
Name := 'Bevel2';
- SetPosition(388, 8, 2, 260);
+ SetPosition(388, 8, 2, 80);
Hint := '';
Style := bsLowered;
end;
@@ -659,6 +733,7 @@ begin
{@VFD_BODY_END: MainForm}
+ PopulatePaletteColorCombo;
// link the two components
ColorWheel1.ValueBar := ValueBar1;
// ColorWheel1.BackgroundColor := clFuchsia;