summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--examples/gui/colorwheel/frm_main.pas71
1 files changed, 42 insertions, 29 deletions
diff --git a/examples/gui/colorwheel/frm_main.pas b/examples/gui/colorwheel/frm_main.pas
index 9c383f1f..1cde9cdf 100644
--- a/examples/gui/colorwheel/frm_main.pas
+++ b/examples/gui/colorwheel/frm_main.pas
@@ -397,6 +397,7 @@ begin
SetPosition(0, 0, 540, 420);
WindowTitle := 'ColorWheel test app';
Hint := '';
+ IconName := '';
WindowPosition := wpScreenCenter;
Button1 := TfpgButton.Create(self);
@@ -441,7 +442,7 @@ begin
with Label1 do
begin
Name := 'Label1';
- SetPosition(108, 284, 64, 18);
+ SetPosition(108, 284, 64, 16);
Alignment := taRightJustify;
FontDesc := '#Label1';
Hint := '';
@@ -452,7 +453,7 @@ begin
with Label2 do
begin
Name := 'Label2';
- SetPosition(108, 312, 64, 18);
+ SetPosition(108, 312, 64, 16);
Alignment := taRightJustify;
FontDesc := '#Label1';
Hint := '';
@@ -463,7 +464,7 @@ begin
with Label3 do
begin
Name := 'Label3';
- SetPosition(108, 340, 64, 18);
+ SetPosition(108, 340, 64, 16);
Alignment := taRightJustify;
FontDesc := '#Label1';
Hint := '';
@@ -474,40 +475,46 @@ begin
with edH do
begin
Name := 'edH';
- SetPosition(176, 280, 44, 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(176, 308, 44, 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(176, 336, 44, 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(230, 284, 56, 18);
+ SetPosition(230, 284, 56, 16);
Alignment := taRightJustify;
FontDesc := '#Label1';
Hint := '';
@@ -518,7 +525,7 @@ begin
with Label5 do
begin
Name := 'Label5';
- SetPosition(230, 316, 56, 18);
+ SetPosition(230, 312, 56, 16);
Alignment := taRightJustify;
FontDesc := '#Label1';
Hint := '';
@@ -529,7 +536,7 @@ begin
with Label6 do
begin
Name := 'Label6';
- SetPosition(230, 344, 56, 18);
+ SetPosition(230, 340, 56, 16);
Alignment := taRightJustify;
FontDesc := '#Label1';
Hint := '';
@@ -540,7 +547,7 @@ begin
with edR do
begin
Name := 'edR';
- SetPosition(290, 280, 44, 26);
+ SetPosition(290, 280, 44, 24);
TabOrder := 13;
MinValue := 0;
MaxValue := 255;
@@ -554,7 +561,7 @@ begin
with edG do
begin
Name := 'edG';
- SetPosition(290, 308, 44, 26);
+ SetPosition(290, 308, 44, 24);
TabOrder := 14;
MinValue := 0;
MaxValue := 255;
@@ -568,7 +575,7 @@ begin
with edB do
begin
Name := 'edB';
- SetPosition(290, 336, 44, 26);
+ SetPosition(290, 336, 44, 24);
TabOrder := 15;
MinValue := 0;
MaxValue := 255;
@@ -578,33 +585,37 @@ begin
OnExit := @RGBChanged;
end;
- Label10 := TfpgLabel.Create(Self);
+ Label10 := TfpgLabel.Create(self);
with Label10 do
begin
Name := 'Label10';
- Setposition(352,100,180,16);
+ SetPosition(352, 100, 180, 16);
FontDesc := '#Label1';
Hint := '';
Text := 'Predefined Color Palettes';
end;
- cbColors := TfpgComboBox.Create(Self);
+ cbColors := TfpgComboBox.Create(self);
with cbColors do
begin
Name := 'cbColors';
- SetPosition(352,120,180,22);
+ SetPosition(352, 120, 180, 22);
+ ExtraHint := '';
FontDesc := '#List';
Hint := '';
+ FocusItem := -1;
+ TabOrder := 18;
end;
- lbColors := TfpgColorListBox.Create(Self);
+ lbColors := TfpgColorListBox.Create(self);
with lbColors do
begin
Name := 'lbColors';
- SetPosition(352,150,180,160);
+ SetPosition(352, 150, 180, 160);
+ Color := TfpgColor($FF00FFFF);
FontDesc := '#List';
Hint := '';
- ScrollbarWidth := 12;
+ TabOrder := 19;
ScrollbarPage := VisibleItems;
OnChange := @lbColorsChange;
end;
@@ -622,10 +633,12 @@ begin
eHex := TfpgEdit.Create(self);
with eHex do
begin
- Name := 'E_Hexa';
- SetPosition(420, 336, 65, 26);
+ Name := 'eHex';
+ SetPosition(420, 336, 65, 24);
+ ExtraHint := '';
FontDesc := '#Label2';
Hint := '';
+ TabOrder := 21;
Text := '';
MaxLength:= 7;
OnKeyChar:= @eHexKeyChar;
@@ -712,12 +725,12 @@ 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;