paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-23 11:41:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Usability improvement of colorboxes in combodemo.

Browse Source 
git-svn-id: trunk@54126 -
This commit is contained in:
wp 2017-02-08 21:21:05 +00:00
parent 8e3611d3c1
commit 53007bd715
2 changed files with 19 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
components/tachart/demo/combobox/main.lfm
View File

@ -6,6 +6,7 @@ object Form1: TForm1
Caption = 'Form1'
ClientHeight = 444
ClientWidth = 803
OnCreate = FormCreate
OnShow = FormShow
LCLVersion = '1.7'
object Chart1: TChart
@ -206,8 +207,7 @@ object Form1: TForm1
Height = 22
Top = 74
Width = 118
Selected = 394758
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbPrettyNames]
Style = [cbStandardColors, cbExtendedColors, cbCustomColor, cbPrettyNames]
Anchors = [akTop, akRight]
BorderSpacing.Top = 8
BorderSpacing.Bottom = 10
@ -325,8 +325,7 @@ object Form1: TForm1
Height = 22
Top = 74
Width = 118
Selected = 263172
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbPrettyNames]
Style = [cbStandardColors, cbExtendedColors, cbCustomColor, cbPrettyNames]
Anchors = [akTop, akRight]
BorderSpacing.Top = 8
ItemHeight = 16
@ -344,7 +343,7 @@ object Form1: TForm1
Height = 22
Top = 44
Width = 118
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbPrettyNames]
Style = [cbStandardColors, cbExtendedColors, cbCustomColor, cbPrettyNames]
Anchors = [akTop, akRight]
BorderSpacing.Top = 8
ItemHeight = 16
@ -483,7 +482,7 @@ object Form1: TForm1
Top = 60
Width = 118
DefaultColorColor = 460551
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbPrettyNames]
Style = [cbStandardColors, cbExtendedColors, cbCustomColor, cbPrettyNames]
Anchors = [akTop, akRight]
BorderSpacing.Top = 8
BorderSpacing.Bottom = 10
@ -542,7 +541,7 @@ object Form1: TForm1
Top = 30
Width = 118
DefaultColorColor = 263172
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbPrettyNames]
Style = [cbStandardColors, cbExtendedColors, cbCustomColor, cbPrettyNames]
Anchors = [akTop, akRight]
BorderSpacing.Top = 8
BorderSpacing.Bottom = 10
@ -619,7 +618,7 @@ object Form1: TForm1
Height = 22
Top = 30
Width = 118
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbPrettyNames]
Style = [cbStandardColors, cbExtendedColors, cbCustomColor, cbPrettyNames]
Anchors = [akTop, akRight]
BorderSpacing.Top = 8
BorderSpacing.Bottom = 10
@ -741,7 +740,7 @@ object Form1: TForm1
Height = 22
Top = 60
Width = 118
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbPrettyNames]
Style = [cbStandardColors, cbExtendedColors, cbCustomColor, cbPrettyNames]
Anchors = [akTop, akRight]
BorderSpacing.Top = 8
BorderSpacing.Bottom = 10
@ -846,7 +845,7 @@ object Form1: TForm1
Height = 22
Top = 60
Width = 118
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbPrettyNames]
Style = [cbStandardColors, cbExtendedColors, cbCustomColor, cbPrettyNames]
Anchors = [akTop, akRight]
BorderSpacing.Top = 8
BorderSpacing.Bottom = 10

10
components/tachart/demo/combobox/main.pas
View File

@ -88,6 +88,7 @@ type
procedure AreaLinesChange(Sender: TObject);
procedure BarBrushChange(Sender: TObject);
procedure BarPenChange(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure LinePenChange(Sender: TObject);
procedure LinePointerChange(Sender: TObject);
procedure CbShowChange(Sender: TObject);
@ -292,6 +293,15 @@ begin
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
begin
for i:=0 to ComponentCount - 1 do
if Components[i] is TCustomCombobox then
TCustomCombobox(Components[i]).DropDownCount := DEFAULT_DROPDOWN_COUNT;
end;
procedure TForm1.FormShow(Sender: TObject);
const
DEFAULT_PATTERN = '2|1|1|1|1|1|1|1';