You've already forked lazarus-ccr
ExCtrls: Add ButtonEx demo
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7485 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
82
components/exctrls/examples/ButtonEx/demo.lpi
Normal file
82
components/exctrls/examples/ButtonEx/demo.lpi
Normal file
@ -0,0 +1,82 @@
|
|||||||
|
<?xml version="1.0" encoding="UTF-8"?>
|
||||||
|
<CONFIG>
|
||||||
|
<ProjectOptions>
|
||||||
|
<Version Value="12"/>
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<General>
|
||||||
|
<Flags>
|
||||||
|
<CompatibilityMode Value="True"/>
|
||||||
|
</Flags>
|
||||||
|
<SessionStorage Value="InProjectDir"/>
|
||||||
|
<Title Value="demo"/>
|
||||||
|
<Scaled Value="True"/>
|
||||||
|
<ResourceType Value="res"/>
|
||||||
|
<XPManifest>
|
||||||
|
<DpiAware Value="True"/>
|
||||||
|
</XPManifest>
|
||||||
|
<Icon Value="0"/>
|
||||||
|
</General>
|
||||||
|
<BuildModes Count="1">
|
||||||
|
<Item1 Name="Default" Default="True"/>
|
||||||
|
</BuildModes>
|
||||||
|
<PublishOptions>
|
||||||
|
<Version Value="2"/>
|
||||||
|
<UseFileFilters Value="True"/>
|
||||||
|
</PublishOptions>
|
||||||
|
<RunParams>
|
||||||
|
<FormatVersion Value="2"/>
|
||||||
|
</RunParams>
|
||||||
|
<RequiredPackages Count="2">
|
||||||
|
<Item1>
|
||||||
|
<PackageName Value="ExCtrlsPkg"/>
|
||||||
|
</Item1>
|
||||||
|
<Item2>
|
||||||
|
<PackageName Value="LCL"/>
|
||||||
|
</Item2>
|
||||||
|
</RequiredPackages>
|
||||||
|
<Units Count="3">
|
||||||
|
<Unit0>
|
||||||
|
<Filename Value="demo.lpr"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
</Unit0>
|
||||||
|
<Unit1>
|
||||||
|
<Filename Value="main.pas"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
<ComponentName Value="Form1"/>
|
||||||
|
<HasResources Value="True"/>
|
||||||
|
<ResourceBaseClass Value="Form"/>
|
||||||
|
</Unit1>
|
||||||
|
<Unit2>
|
||||||
|
<Filename Value="unit2.pas"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
<ComponentName Value="Form2"/>
|
||||||
|
<HasResources Value="True"/>
|
||||||
|
<ResourceBaseClass Value="Form"/>
|
||||||
|
</Unit2>
|
||||||
|
</Units>
|
||||||
|
</ProjectOptions>
|
||||||
|
<CompilerOptions>
|
||||||
|
<Version Value="11"/>
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<Target>
|
||||||
|
<Filename Value="demo"/>
|
||||||
|
</Target>
|
||||||
|
<SearchPaths>
|
||||||
|
<IncludeFiles Value="$(ProjOutDir)"/>
|
||||||
|
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
|
||||||
|
</SearchPaths>
|
||||||
|
</CompilerOptions>
|
||||||
|
<Debugging>
|
||||||
|
<Exceptions Count="3">
|
||||||
|
<Item1>
|
||||||
|
<Name Value="EAbort"/>
|
||||||
|
</Item1>
|
||||||
|
<Item2>
|
||||||
|
<Name Value="ECodetoolError"/>
|
||||||
|
</Item2>
|
||||||
|
<Item3>
|
||||||
|
<Name Value="EFOpenError"/>
|
||||||
|
</Item3>
|
||||||
|
</Exceptions>
|
||||||
|
</Debugging>
|
||||||
|
</CONFIG>
|
||||||
26
components/exctrls/examples/ButtonEx/demo.lpr
Normal file
26
components/exctrls/examples/ButtonEx/demo.lpr
Normal file
@ -0,0 +1,26 @@
|
|||||||
|
program demo;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
uses
|
||||||
|
{$IFDEF UNIX}
|
||||||
|
cthreads,
|
||||||
|
{$ENDIF}
|
||||||
|
{$IFDEF HASAMIGA}
|
||||||
|
athreads,
|
||||||
|
{$ENDIF}
|
||||||
|
Interfaces, // this includes the LCL widgetset
|
||||||
|
Forms, main, unit2
|
||||||
|
{ you can add units after this };
|
||||||
|
|
||||||
|
{$R *.res}
|
||||||
|
|
||||||
|
begin
|
||||||
|
RequireDerivedFormResource:=True;
|
||||||
|
Application.Scaled:=True;
|
||||||
|
Application.Initialize;
|
||||||
|
Application.CreateForm(TForm1, Form1);
|
||||||
|
Application.CreateForm(TForm2, Form2);
|
||||||
|
Application.Run;
|
||||||
|
end.
|
||||||
|
|
||||||
777
components/exctrls/examples/ButtonEx/main.lfm
Normal file
777
components/exctrls/examples/ButtonEx/main.lfm
Normal file
@ -0,0 +1,777 @@
|
|||||||
|
object Form1: TForm1
|
||||||
|
Left = 353
|
||||||
|
Height = 294
|
||||||
|
Top = 130
|
||||||
|
Width = 838
|
||||||
|
Caption = 'Form1'
|
||||||
|
ClientHeight = 294
|
||||||
|
ClientWidth = 838
|
||||||
|
OnCreate = FormCreate
|
||||||
|
OnShow = FormShow
|
||||||
|
LCLVersion = '2.1.0.0'
|
||||||
|
object Button1: TButton
|
||||||
|
Left = 160
|
||||||
|
Height = 25
|
||||||
|
Top = 61
|
||||||
|
Width = 75
|
||||||
|
Caption = 'TButton'
|
||||||
|
ModalResult = 11
|
||||||
|
OnClick = ButtonClick
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object GroupBox1: TGroupBox
|
||||||
|
Left = 304
|
||||||
|
Height = 267
|
||||||
|
Top = 12
|
||||||
|
Width = 520
|
||||||
|
Caption = 'TButtonEx Appearance'
|
||||||
|
ClientHeight = 247
|
||||||
|
ClientWidth = 516
|
||||||
|
TabOrder = 6
|
||||||
|
object cbColorNormalFrom: TColorButton
|
||||||
|
AnchorSideTop.Control = Label6
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
Left = 88
|
||||||
|
Height = 25
|
||||||
|
Top = 26
|
||||||
|
Width = 65
|
||||||
|
BorderSpacing.Top = 3
|
||||||
|
BorderWidth = 2
|
||||||
|
ButtonColorAutoSize = False
|
||||||
|
ButtonColorSize = 16
|
||||||
|
ButtonColor = clBlack
|
||||||
|
Caption = 'From'
|
||||||
|
Margin = 4
|
||||||
|
OnColorChanged = cbColorNormalFromToChanged
|
||||||
|
end
|
||||||
|
object cbColorNormalTo: TColorButton
|
||||||
|
AnchorSideLeft.Control = cbColorNormalFrom
|
||||||
|
AnchorSideLeft.Side = asrBottom
|
||||||
|
AnchorSideTop.Control = cbColorNormalFrom
|
||||||
|
Left = 157
|
||||||
|
Height = 25
|
||||||
|
Top = 26
|
||||||
|
Width = 65
|
||||||
|
BorderSpacing.Left = 4
|
||||||
|
BorderWidth = 2
|
||||||
|
ButtonColorAutoSize = False
|
||||||
|
ButtonColorSize = 16
|
||||||
|
ButtonColor = clBlack
|
||||||
|
Caption = 'To'
|
||||||
|
Margin = 4
|
||||||
|
OnColorChanged = cbColorNormalFromToChanged
|
||||||
|
end
|
||||||
|
object Label1: TLabel
|
||||||
|
AnchorSideTop.Control = cbColorNormalFrom
|
||||||
|
AnchorSideTop.Side = asrCenter
|
||||||
|
Left = 18
|
||||||
|
Height = 15
|
||||||
|
Top = 31
|
||||||
|
Width = 40
|
||||||
|
Caption = 'Normal'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label2: TLabel
|
||||||
|
AnchorSideTop.Control = cbColorHotFrom
|
||||||
|
AnchorSideTop.Side = asrCenter
|
||||||
|
Left = 18
|
||||||
|
Height = 15
|
||||||
|
Top = 60
|
||||||
|
Width = 20
|
||||||
|
Caption = 'Hot'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label3: TLabel
|
||||||
|
AnchorSideTop.Control = cbColorDisabledFrom
|
||||||
|
AnchorSideTop.Side = asrCenter
|
||||||
|
Left = 18
|
||||||
|
Height = 15
|
||||||
|
Top = 89
|
||||||
|
Width = 45
|
||||||
|
Caption = 'Disabled'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label4: TLabel
|
||||||
|
AnchorSideTop.Control = cbColorFocusedFrom
|
||||||
|
AnchorSideTop.Side = asrCenter
|
||||||
|
Left = 18
|
||||||
|
Height = 15
|
||||||
|
Top = 118
|
||||||
|
Width = 44
|
||||||
|
Caption = 'Focused'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object cbColorHotFrom: TColorButton
|
||||||
|
AnchorSideLeft.Control = cbColorNormalFrom
|
||||||
|
AnchorSideTop.Control = cbColorNormalFrom
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
Left = 88
|
||||||
|
Height = 25
|
||||||
|
Top = 55
|
||||||
|
Width = 65
|
||||||
|
BorderSpacing.Top = 4
|
||||||
|
BorderWidth = 2
|
||||||
|
ButtonColorAutoSize = False
|
||||||
|
ButtonColorSize = 16
|
||||||
|
ButtonColor = clBlack
|
||||||
|
Caption = 'From'
|
||||||
|
Margin = 4
|
||||||
|
OnColorChanged = cbColorHotFromToChanged
|
||||||
|
end
|
||||||
|
object cbColorHotTo: TColorButton
|
||||||
|
AnchorSideLeft.Control = cbColorNormalTo
|
||||||
|
AnchorSideTop.Control = cbColorHotFrom
|
||||||
|
Left = 157
|
||||||
|
Height = 25
|
||||||
|
Top = 55
|
||||||
|
Width = 65
|
||||||
|
BorderWidth = 2
|
||||||
|
ButtonColorAutoSize = False
|
||||||
|
ButtonColorSize = 16
|
||||||
|
ButtonColor = clBlack
|
||||||
|
Caption = 'To'
|
||||||
|
Margin = 4
|
||||||
|
OnColorChanged = cbColorHotFromToChanged
|
||||||
|
end
|
||||||
|
object cbColorDisabledFrom: TColorButton
|
||||||
|
AnchorSideLeft.Control = cbColorNormalFrom
|
||||||
|
AnchorSideTop.Control = cbColorHotFrom
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
Left = 88
|
||||||
|
Height = 25
|
||||||
|
Top = 84
|
||||||
|
Width = 65
|
||||||
|
BorderSpacing.Top = 4
|
||||||
|
BorderWidth = 2
|
||||||
|
ButtonColorAutoSize = False
|
||||||
|
ButtonColorSize = 16
|
||||||
|
ButtonColor = clBlack
|
||||||
|
Caption = 'From'
|
||||||
|
Margin = 4
|
||||||
|
OnColorChanged = cbColorDisabledFromToChanged
|
||||||
|
end
|
||||||
|
object cbColorDisabledTo: TColorButton
|
||||||
|
AnchorSideLeft.Control = cbColorNormalTo
|
||||||
|
AnchorSideTop.Control = cbColorDisabledFrom
|
||||||
|
Left = 157
|
||||||
|
Height = 25
|
||||||
|
Top = 84
|
||||||
|
Width = 65
|
||||||
|
BorderWidth = 2
|
||||||
|
ButtonColorAutoSize = False
|
||||||
|
ButtonColorSize = 16
|
||||||
|
ButtonColor = clBlack
|
||||||
|
Caption = 'To'
|
||||||
|
Margin = 4
|
||||||
|
OnColorChanged = cbColorDisabledFromToChanged
|
||||||
|
end
|
||||||
|
object cbColorFocusedFrom: TColorButton
|
||||||
|
AnchorSideLeft.Control = cbColorNormalFrom
|
||||||
|
AnchorSideTop.Control = cbColorDisabledFrom
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
Left = 88
|
||||||
|
Height = 25
|
||||||
|
Top = 113
|
||||||
|
Width = 65
|
||||||
|
BorderSpacing.Top = 4
|
||||||
|
BorderWidth = 2
|
||||||
|
ButtonColorAutoSize = False
|
||||||
|
ButtonColorSize = 16
|
||||||
|
ButtonColor = clBlack
|
||||||
|
Caption = 'From'
|
||||||
|
Margin = 4
|
||||||
|
OnColorChanged = cbColorFocusedFromToChanged
|
||||||
|
end
|
||||||
|
object cbColorFocusedTo: TColorButton
|
||||||
|
AnchorSideLeft.Control = cbColorNormalTo
|
||||||
|
AnchorSideTop.Control = cbColorFocusedFrom
|
||||||
|
Left = 157
|
||||||
|
Height = 25
|
||||||
|
Top = 113
|
||||||
|
Width = 65
|
||||||
|
BorderWidth = 2
|
||||||
|
ButtonColorAutoSize = False
|
||||||
|
ButtonColorSize = 16
|
||||||
|
ButtonColor = clBlack
|
||||||
|
Caption = 'To'
|
||||||
|
Margin = 4
|
||||||
|
OnColorChanged = cbColorFocusedFromToChanged
|
||||||
|
end
|
||||||
|
object Label5: TLabel
|
||||||
|
AnchorSideTop.Control = cbColorDownFrom
|
||||||
|
AnchorSideTop.Side = asrCenter
|
||||||
|
Left = 18
|
||||||
|
Height = 15
|
||||||
|
Top = 147
|
||||||
|
Width = 31
|
||||||
|
Caption = 'Down'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object cbColorDownFrom: TColorButton
|
||||||
|
AnchorSideLeft.Control = cbColorNormalFrom
|
||||||
|
AnchorSideTop.Control = cbColorFocusedFrom
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
Left = 88
|
||||||
|
Height = 25
|
||||||
|
Top = 142
|
||||||
|
Width = 65
|
||||||
|
BorderSpacing.Top = 4
|
||||||
|
BorderWidth = 2
|
||||||
|
ButtonColorAutoSize = False
|
||||||
|
ButtonColorSize = 16
|
||||||
|
ButtonColor = clBlack
|
||||||
|
Caption = 'From'
|
||||||
|
Margin = 4
|
||||||
|
OnColorChanged = cbColorDownFromToChanged
|
||||||
|
end
|
||||||
|
object cbColorDownTo: TColorButton
|
||||||
|
AnchorSideLeft.Control = cbColorNormalTo
|
||||||
|
AnchorSideTop.Control = cbColorDownFrom
|
||||||
|
Left = 157
|
||||||
|
Height = 25
|
||||||
|
Top = 142
|
||||||
|
Width = 65
|
||||||
|
BorderWidth = 2
|
||||||
|
ButtonColorAutoSize = False
|
||||||
|
ButtonColorSize = 16
|
||||||
|
ButtonColor = clBlack
|
||||||
|
Caption = 'To'
|
||||||
|
Margin = 4
|
||||||
|
OnColorChanged = cbColorDownFromToChanged
|
||||||
|
end
|
||||||
|
object Label6: TLabel
|
||||||
|
AnchorSideTop.Control = GroupBox1
|
||||||
|
Left = 88
|
||||||
|
Height = 15
|
||||||
|
Top = 8
|
||||||
|
Width = 111
|
||||||
|
BorderSpacing.Top = 8
|
||||||
|
Caption = 'Background gradient'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object cbBorderColorNormal: TColorButton
|
||||||
|
AnchorSideLeft.Control = cbColorNormalTo
|
||||||
|
AnchorSideLeft.Side = asrBottom
|
||||||
|
AnchorSideTop.Control = cbColorNormalFrom
|
||||||
|
Left = 238
|
||||||
|
Height = 25
|
||||||
|
Top = 26
|
||||||
|
Width = 65
|
||||||
|
BorderSpacing.Left = 16
|
||||||
|
BorderWidth = 2
|
||||||
|
ButtonColorAutoSize = False
|
||||||
|
ButtonColorSize = 16
|
||||||
|
ButtonColor = clBlack
|
||||||
|
Caption = 'Color'
|
||||||
|
Margin = 4
|
||||||
|
OnColorChanged = cbColorNormalFromToChanged
|
||||||
|
end
|
||||||
|
object cbBorderColorHot: TColorButton
|
||||||
|
AnchorSideLeft.Control = cbColorNormalTo
|
||||||
|
AnchorSideLeft.Side = asrBottom
|
||||||
|
AnchorSideTop.Control = cbBorderColorNormal
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
Left = 238
|
||||||
|
Height = 25
|
||||||
|
Top = 55
|
||||||
|
Width = 65
|
||||||
|
BorderSpacing.Left = 16
|
||||||
|
BorderSpacing.Top = 4
|
||||||
|
BorderWidth = 2
|
||||||
|
ButtonColorAutoSize = False
|
||||||
|
ButtonColorSize = 16
|
||||||
|
ButtonColor = clBlack
|
||||||
|
Caption = 'Color'
|
||||||
|
Margin = 4
|
||||||
|
OnColorChanged = cbColorHotFromToChanged
|
||||||
|
end
|
||||||
|
object cbBorderColorDisabled: TColorButton
|
||||||
|
AnchorSideLeft.Control = cbColorNormalTo
|
||||||
|
AnchorSideLeft.Side = asrBottom
|
||||||
|
AnchorSideTop.Control = cbBorderColorHot
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
Left = 238
|
||||||
|
Height = 25
|
||||||
|
Top = 84
|
||||||
|
Width = 65
|
||||||
|
BorderSpacing.Left = 16
|
||||||
|
BorderSpacing.Top = 4
|
||||||
|
BorderWidth = 2
|
||||||
|
ButtonColorAutoSize = False
|
||||||
|
ButtonColorSize = 16
|
||||||
|
ButtonColor = clBlack
|
||||||
|
Caption = 'Color'
|
||||||
|
Margin = 4
|
||||||
|
OnColorChanged = cbColorDisabledFromToChanged
|
||||||
|
end
|
||||||
|
object cbBorderColorFocused: TColorButton
|
||||||
|
AnchorSideLeft.Control = cbColorNormalTo
|
||||||
|
AnchorSideLeft.Side = asrBottom
|
||||||
|
AnchorSideTop.Control = cbBorderColorDisabled
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
Left = 238
|
||||||
|
Height = 25
|
||||||
|
Top = 113
|
||||||
|
Width = 65
|
||||||
|
BorderSpacing.Left = 16
|
||||||
|
BorderSpacing.Top = 4
|
||||||
|
BorderWidth = 2
|
||||||
|
ButtonColorAutoSize = False
|
||||||
|
ButtonColorSize = 16
|
||||||
|
ButtonColor = clBlack
|
||||||
|
Caption = 'Color'
|
||||||
|
Margin = 4
|
||||||
|
OnColorChanged = cbColorFocusedFromToChanged
|
||||||
|
end
|
||||||
|
object cbBorderColorDown: TColorButton
|
||||||
|
AnchorSideLeft.Control = cbColorNormalTo
|
||||||
|
AnchorSideLeft.Side = asrBottom
|
||||||
|
AnchorSideTop.Control = cbBorderColorFocused
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
Left = 238
|
||||||
|
Height = 25
|
||||||
|
Top = 142
|
||||||
|
Width = 65
|
||||||
|
BorderSpacing.Left = 16
|
||||||
|
BorderSpacing.Top = 4
|
||||||
|
BorderWidth = 2
|
||||||
|
ButtonColorAutoSize = False
|
||||||
|
ButtonColorSize = 16
|
||||||
|
ButtonColor = clBlack
|
||||||
|
Caption = 'Color'
|
||||||
|
Margin = 4
|
||||||
|
OnColorChanged = cbColorDownFromToChanged
|
||||||
|
end
|
||||||
|
object Label7: TLabel
|
||||||
|
AnchorSideTop.Control = Label6
|
||||||
|
Left = 238
|
||||||
|
Height = 15
|
||||||
|
Top = 10
|
||||||
|
Width = 35
|
||||||
|
BorderSpacing.Top = 2
|
||||||
|
Caption = 'Border'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object seBorderWidthNormal: TSpinEdit
|
||||||
|
AnchorSideLeft.Control = cbBorderColorNormal
|
||||||
|
AnchorSideLeft.Side = asrBottom
|
||||||
|
AnchorSideTop.Control = cbColorNormalFrom
|
||||||
|
AnchorSideTop.Side = asrCenter
|
||||||
|
Left = 319
|
||||||
|
Height = 23
|
||||||
|
Top = 27
|
||||||
|
Width = 45
|
||||||
|
Alignment = taRightJustify
|
||||||
|
BorderSpacing.Left = 16
|
||||||
|
OnChange = seBorderWidthNormalChange
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object Label8: TLabel
|
||||||
|
AnchorSideTop.Control = Label6
|
||||||
|
Left = 319
|
||||||
|
Height = 15
|
||||||
|
Top = 10
|
||||||
|
Width = 32
|
||||||
|
BorderSpacing.Top = 2
|
||||||
|
Caption = 'Width'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object seBorderWidthHot: TSpinEdit
|
||||||
|
AnchorSideLeft.Control = cbBorderColorNormal
|
||||||
|
AnchorSideLeft.Side = asrBottom
|
||||||
|
AnchorSideTop.Control = cbColorHotTo
|
||||||
|
AnchorSideTop.Side = asrCenter
|
||||||
|
Left = 319
|
||||||
|
Height = 23
|
||||||
|
Top = 56
|
||||||
|
Width = 45
|
||||||
|
Alignment = taRightJustify
|
||||||
|
BorderSpacing.Left = 16
|
||||||
|
OnChange = seBorderWidthHotChange
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object seBorderWidthDisabled: TSpinEdit
|
||||||
|
AnchorSideLeft.Control = cbBorderColorNormal
|
||||||
|
AnchorSideLeft.Side = asrBottom
|
||||||
|
AnchorSideTop.Control = cbColorDisabledFrom
|
||||||
|
AnchorSideTop.Side = asrCenter
|
||||||
|
Left = 319
|
||||||
|
Height = 23
|
||||||
|
Top = 85
|
||||||
|
Width = 45
|
||||||
|
Alignment = taRightJustify
|
||||||
|
BorderSpacing.Left = 16
|
||||||
|
OnChange = seBorderWidthDisabledChange
|
||||||
|
TabOrder = 3
|
||||||
|
end
|
||||||
|
object seBorderWidthFocused: TSpinEdit
|
||||||
|
AnchorSideLeft.Control = cbBorderColorNormal
|
||||||
|
AnchorSideLeft.Side = asrBottom
|
||||||
|
AnchorSideTop.Control = cbColorFocusedFrom
|
||||||
|
AnchorSideTop.Side = asrCenter
|
||||||
|
Left = 319
|
||||||
|
Height = 23
|
||||||
|
Top = 114
|
||||||
|
Width = 45
|
||||||
|
Alignment = taRightJustify
|
||||||
|
BorderSpacing.Left = 16
|
||||||
|
OnChange = seBorderWidthFocusedChange
|
||||||
|
TabOrder = 4
|
||||||
|
end
|
||||||
|
object seBorderWidthDown: TSpinEdit
|
||||||
|
AnchorSideLeft.Control = cbBorderColorNormal
|
||||||
|
AnchorSideLeft.Side = asrBottom
|
||||||
|
AnchorSideTop.Control = cbColorDownFrom
|
||||||
|
AnchorSideTop.Side = asrCenter
|
||||||
|
Left = 319
|
||||||
|
Height = 23
|
||||||
|
Top = 143
|
||||||
|
Width = 45
|
||||||
|
Alignment = taRightJustify
|
||||||
|
BorderSpacing.Left = 16
|
||||||
|
OnChange = seBorderWidthDownChange
|
||||||
|
TabOrder = 5
|
||||||
|
end
|
||||||
|
object clbFontColorNormal: TColorButton
|
||||||
|
AnchorSideLeft.Control = seBorderWidthHot
|
||||||
|
AnchorSideLeft.Side = asrBottom
|
||||||
|
AnchorSideTop.Control = cbColorNormalFrom
|
||||||
|
Left = 380
|
||||||
|
Height = 25
|
||||||
|
Top = 26
|
||||||
|
Width = 65
|
||||||
|
BorderSpacing.Left = 16
|
||||||
|
BorderWidth = 2
|
||||||
|
ButtonColorAutoSize = False
|
||||||
|
ButtonColorSize = 16
|
||||||
|
ButtonColor = clBlack
|
||||||
|
Caption = 'Font'
|
||||||
|
Margin = 4
|
||||||
|
OnColorChanged = cbColorNormalFromToChanged
|
||||||
|
end
|
||||||
|
object clbFontColorHot: TColorButton
|
||||||
|
AnchorSideLeft.Control = clbFontColorNormal
|
||||||
|
AnchorSideTop.Control = clbFontColorNormal
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
Left = 380
|
||||||
|
Height = 25
|
||||||
|
Top = 55
|
||||||
|
Width = 65
|
||||||
|
BorderSpacing.Top = 4
|
||||||
|
BorderWidth = 2
|
||||||
|
ButtonColorAutoSize = False
|
||||||
|
ButtonColorSize = 16
|
||||||
|
ButtonColor = clBlack
|
||||||
|
Caption = 'Font'
|
||||||
|
Margin = 4
|
||||||
|
OnColorChanged = cbColorHotFromToChanged
|
||||||
|
end
|
||||||
|
object clbFontColorDisabled: TColorButton
|
||||||
|
AnchorSideLeft.Control = clbFontColorNormal
|
||||||
|
AnchorSideTop.Control = clbFontColorHot
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
Left = 380
|
||||||
|
Height = 25
|
||||||
|
Top = 84
|
||||||
|
Width = 65
|
||||||
|
BorderSpacing.Top = 4
|
||||||
|
BorderWidth = 2
|
||||||
|
ButtonColorAutoSize = False
|
||||||
|
ButtonColorSize = 16
|
||||||
|
ButtonColor = clBlack
|
||||||
|
Caption = 'Font'
|
||||||
|
Margin = 4
|
||||||
|
OnColorChanged = cbColorDisabledFromToChanged
|
||||||
|
end
|
||||||
|
object clbFontColorFocused: TColorButton
|
||||||
|
AnchorSideLeft.Control = clbFontColorNormal
|
||||||
|
AnchorSideTop.Control = clbFontColorDisabled
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
Left = 380
|
||||||
|
Height = 25
|
||||||
|
Top = 113
|
||||||
|
Width = 65
|
||||||
|
BorderSpacing.Top = 4
|
||||||
|
BorderWidth = 2
|
||||||
|
ButtonColorAutoSize = False
|
||||||
|
ButtonColorSize = 16
|
||||||
|
ButtonColor = clBlack
|
||||||
|
Caption = 'Font'
|
||||||
|
Margin = 4
|
||||||
|
OnColorChanged = cbColorFocusedFromToChanged
|
||||||
|
end
|
||||||
|
object clbFontColorDown: TColorButton
|
||||||
|
AnchorSideLeft.Control = clbFontColorNormal
|
||||||
|
AnchorSideTop.Control = clbFontColorFocused
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
Left = 380
|
||||||
|
Height = 25
|
||||||
|
Top = 142
|
||||||
|
Width = 65
|
||||||
|
BorderSpacing.Top = 4
|
||||||
|
BorderWidth = 2
|
||||||
|
ButtonColorAutoSize = False
|
||||||
|
ButtonColorSize = 16
|
||||||
|
ButtonColor = clBlack
|
||||||
|
Caption = 'Font'
|
||||||
|
Margin = 4
|
||||||
|
OnColorChanged = cbColorDownFromToChanged
|
||||||
|
end
|
||||||
|
object Label9: TLabel
|
||||||
|
AnchorSideTop.Control = Label6
|
||||||
|
Left = 380
|
||||||
|
Height = 15
|
||||||
|
Top = 10
|
||||||
|
Width = 24
|
||||||
|
BorderSpacing.Top = 2
|
||||||
|
Caption = 'Font'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object cbGradient: TCheckBox
|
||||||
|
Left = 88
|
||||||
|
Height = 19
|
||||||
|
Top = 176
|
||||||
|
Width = 65
|
||||||
|
Caption = 'Gradient'
|
||||||
|
Checked = True
|
||||||
|
OnChange = cbGradientChange
|
||||||
|
State = cbChecked
|
||||||
|
TabOrder = 11
|
||||||
|
end
|
||||||
|
object cbShowFocusRect: TCheckBox
|
||||||
|
Left = 241
|
||||||
|
Height = 19
|
||||||
|
Top = 176
|
||||||
|
Width = 106
|
||||||
|
Caption = 'Show FocusRect'
|
||||||
|
Checked = True
|
||||||
|
OnChange = cbShowFocusRectChange
|
||||||
|
State = cbChecked
|
||||||
|
TabOrder = 12
|
||||||
|
end
|
||||||
|
object cbFontNormalBold: TCheckBox
|
||||||
|
AnchorSideLeft.Control = udFontSizeNormal
|
||||||
|
AnchorSideLeft.Side = asrBottom
|
||||||
|
AnchorSideTop.Control = clbFontColorNormal
|
||||||
|
AnchorSideTop.Side = asrCenter
|
||||||
|
Left = 470
|
||||||
|
Height = 19
|
||||||
|
Top = 29
|
||||||
|
Width = 44
|
||||||
|
BorderSpacing.Left = 8
|
||||||
|
Caption = 'Bold'
|
||||||
|
OnChange = cbFontBoldChange
|
||||||
|
TabOrder = 6
|
||||||
|
end
|
||||||
|
object cbFontHotBold: TCheckBox
|
||||||
|
AnchorSideLeft.Control = clbFontColorNormal
|
||||||
|
AnchorSideLeft.Side = asrBottom
|
||||||
|
AnchorSideTop.Control = cbColorHotFrom
|
||||||
|
AnchorSideTop.Side = asrCenter
|
||||||
|
Left = 453
|
||||||
|
Height = 19
|
||||||
|
Top = 58
|
||||||
|
Width = 44
|
||||||
|
BorderSpacing.Left = 8
|
||||||
|
Caption = 'Bold'
|
||||||
|
OnChange = cbFontBoldChange
|
||||||
|
TabOrder = 7
|
||||||
|
end
|
||||||
|
object cbFontDisabledBold: TCheckBox
|
||||||
|
AnchorSideLeft.Control = clbFontColorNormal
|
||||||
|
AnchorSideLeft.Side = asrBottom
|
||||||
|
AnchorSideTop.Control = cbColorDisabledFrom
|
||||||
|
AnchorSideTop.Side = asrCenter
|
||||||
|
Left = 453
|
||||||
|
Height = 19
|
||||||
|
Top = 87
|
||||||
|
Width = 44
|
||||||
|
BorderSpacing.Left = 8
|
||||||
|
Caption = 'Bold'
|
||||||
|
OnChange = cbFontBoldChange
|
||||||
|
TabOrder = 8
|
||||||
|
end
|
||||||
|
object cbFontFocusedBold: TCheckBox
|
||||||
|
AnchorSideLeft.Control = clbFontColorNormal
|
||||||
|
AnchorSideLeft.Side = asrBottom
|
||||||
|
AnchorSideTop.Control = cbColorFocusedFrom
|
||||||
|
AnchorSideTop.Side = asrCenter
|
||||||
|
Left = 453
|
||||||
|
Height = 19
|
||||||
|
Top = 116
|
||||||
|
Width = 44
|
||||||
|
BorderSpacing.Left = 8
|
||||||
|
Caption = 'Bold'
|
||||||
|
OnChange = cbFontBoldChange
|
||||||
|
TabOrder = 9
|
||||||
|
end
|
||||||
|
object cbFontDownBold: TCheckBox
|
||||||
|
AnchorSideLeft.Control = clbFontColorNormal
|
||||||
|
AnchorSideLeft.Side = asrBottom
|
||||||
|
AnchorSideTop.Control = cbColorDownFrom
|
||||||
|
AnchorSideTop.Side = asrCenter
|
||||||
|
Left = 453
|
||||||
|
Height = 19
|
||||||
|
Top = 145
|
||||||
|
Width = 44
|
||||||
|
BorderSpacing.Left = 8
|
||||||
|
Caption = 'Bold'
|
||||||
|
OnChange = cbFontBoldChange
|
||||||
|
TabOrder = 10
|
||||||
|
end
|
||||||
|
object Label10: TLabel
|
||||||
|
AnchorSideTop.Control = cmbAlignment
|
||||||
|
AnchorSideTop.Side = asrCenter
|
||||||
|
Left = 13
|
||||||
|
Height = 15
|
||||||
|
Top = 212
|
||||||
|
Width = 56
|
||||||
|
Caption = 'Alignment'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object cmbAlignment: TComboBox
|
||||||
|
AnchorSideLeft.Control = cbColorDownFrom
|
||||||
|
AnchorSideTop.Control = cbColorDownFrom
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
Left = 88
|
||||||
|
Height = 23
|
||||||
|
Top = 208
|
||||||
|
Width = 137
|
||||||
|
Anchors = []
|
||||||
|
BorderSpacing.Top = 8
|
||||||
|
ItemHeight = 15
|
||||||
|
ItemIndex = 2
|
||||||
|
Items.Strings = (
|
||||||
|
'taLeftJustify'
|
||||||
|
'taRightJustify'
|
||||||
|
'taCenter'
|
||||||
|
)
|
||||||
|
OnChange = cmbAlignmentChange
|
||||||
|
Style = csDropDownList
|
||||||
|
TabOrder = 14
|
||||||
|
Text = 'taCenter'
|
||||||
|
end
|
||||||
|
object cbDefaultDrawing: TCheckBox
|
||||||
|
AnchorSideTop.Control = GroupBox1
|
||||||
|
AnchorSideRight.Control = GroupBox1
|
||||||
|
AnchorSideRight.Side = asrBottom
|
||||||
|
Left = 396
|
||||||
|
Height = 19
|
||||||
|
Top = -16
|
||||||
|
Width = 104
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
Anchors = [akRight]
|
||||||
|
BorderSpacing.Right = 16
|
||||||
|
Caption = 'Default drawing'
|
||||||
|
Checked = True
|
||||||
|
OnChange = cbDefaultDrawingChange
|
||||||
|
State = cbChecked
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object cbWordWrap: TCheckBox
|
||||||
|
Left = 384
|
||||||
|
Height = 19
|
||||||
|
Top = 176
|
||||||
|
Width = 77
|
||||||
|
Caption = 'WordWrap'
|
||||||
|
OnChange = cbWordWrapChange
|
||||||
|
TabOrder = 13
|
||||||
|
end
|
||||||
|
object udFontSizeNormal: TUpDown
|
||||||
|
AnchorSideLeft.Control = clbFontColorNormal
|
||||||
|
AnchorSideLeft.Side = asrBottom
|
||||||
|
AnchorSideTop.Control = clbFontColorNormal
|
||||||
|
AnchorSideBottom.Control = cbColorNormalFrom
|
||||||
|
AnchorSideBottom.Side = asrBottom
|
||||||
|
Left = 445
|
||||||
|
Height = 25
|
||||||
|
Top = 26
|
||||||
|
Width = 17
|
||||||
|
Anchors = [akTop, akLeft, akBottom]
|
||||||
|
Max = 20
|
||||||
|
Min = 5
|
||||||
|
OnClick = udFontSizeNormalClick
|
||||||
|
Position = 5
|
||||||
|
TabOrder = 15
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object cbEnabled: TCheckBox
|
||||||
|
Left = 160
|
||||||
|
Height = 19
|
||||||
|
Top = 95
|
||||||
|
Width = 62
|
||||||
|
Caption = 'Enabled'
|
||||||
|
Checked = True
|
||||||
|
OnChange = cbEnabledChange
|
||||||
|
State = cbChecked
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object Memo1: TMemo
|
||||||
|
Left = 8
|
||||||
|
Height = 187
|
||||||
|
Top = 61
|
||||||
|
Width = 136
|
||||||
|
Lines.Strings = (
|
||||||
|
'Memo1'
|
||||||
|
)
|
||||||
|
ScrollBars = ssAutoVertical
|
||||||
|
TabOrder = 7
|
||||||
|
end
|
||||||
|
object Button2: TButton
|
||||||
|
Left = 8
|
||||||
|
Height = 25
|
||||||
|
Top = 254
|
||||||
|
Width = 99
|
||||||
|
AutoSize = True
|
||||||
|
Caption = 'Test 2nd form'
|
||||||
|
OnClick = Button2Click
|
||||||
|
TabOrder = 5
|
||||||
|
end
|
||||||
|
object cbAutoSize: TCheckBox
|
||||||
|
Left = 160
|
||||||
|
Height = 19
|
||||||
|
Top = 119
|
||||||
|
Width = 66
|
||||||
|
Caption = 'AutoSize'
|
||||||
|
OnChange = cbAutoSizeChange
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object SpinEdit1: TSpinEdit
|
||||||
|
Left = 160
|
||||||
|
Height = 23
|
||||||
|
Top = 167
|
||||||
|
Width = 80
|
||||||
|
MaxValue = 500
|
||||||
|
OnChange = SpinEdit1Change
|
||||||
|
OnEditingDone = SpinEdit1EditingDone
|
||||||
|
TabOrder = 3
|
||||||
|
Value = 100
|
||||||
|
end
|
||||||
|
object Label11: TLabel
|
||||||
|
Left = 162
|
||||||
|
Height = 15
|
||||||
|
Top = 149
|
||||||
|
Width = 32
|
||||||
|
Caption = 'Width'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label12: TLabel
|
||||||
|
Left = 162
|
||||||
|
Height = 15
|
||||||
|
Top = 207
|
||||||
|
Width = 36
|
||||||
|
Caption = 'Height'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object SpinEdit2: TSpinEdit
|
||||||
|
Left = 160
|
||||||
|
Height = 23
|
||||||
|
Top = 225
|
||||||
|
Width = 80
|
||||||
|
MaxValue = 300
|
||||||
|
OnChange = SpinEdit2Change
|
||||||
|
OnEditingDone = SpinEdit2EditingDone
|
||||||
|
TabOrder = 4
|
||||||
|
Value = 100
|
||||||
|
end
|
||||||
|
end
|
||||||
389
components/exctrls/examples/ButtonEx/main.pas
Normal file
389
components/exctrls/examples/ButtonEx/main.pas
Normal file
@ -0,0 +1,389 @@
|
|||||||
|
unit main;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, Spin,
|
||||||
|
ComCtrls, ExButtons;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ TForm1 }
|
||||||
|
|
||||||
|
TForm1 = class(TForm)
|
||||||
|
Button1: TButton;
|
||||||
|
Button2: TButton;
|
||||||
|
cbBorderColorDisabled: TColorButton;
|
||||||
|
clbFontColorDisabled: TColorButton;
|
||||||
|
clbFontColorDown: TColorButton;
|
||||||
|
clbFontColorFocused: TColorButton;
|
||||||
|
clbFontColorHot: TColorButton;
|
||||||
|
clbFontColorNormal: TColorButton;
|
||||||
|
cbColorDownFrom: TColorButton;
|
||||||
|
cbBorderColorDown: TColorButton;
|
||||||
|
cbColorDownTo: TColorButton;
|
||||||
|
cbBorderColorFocused: TColorButton;
|
||||||
|
cbBorderColorHot: TColorButton;
|
||||||
|
cbBorderColorNormal: TColorButton;
|
||||||
|
cbColorNormalFrom: TColorButton;
|
||||||
|
cbColorNormalTo: TColorButton;
|
||||||
|
cbColorHotFrom: TColorButton;
|
||||||
|
cbColorHotTo: TColorButton;
|
||||||
|
cbColorDisabledFrom: TColorButton;
|
||||||
|
cbColorDisabledTo: TColorButton;
|
||||||
|
cbColorFocusedFrom: TColorButton;
|
||||||
|
cbColorFocusedTo: TColorButton;
|
||||||
|
cbEnabled: TCheckBox;
|
||||||
|
cbGradient: TCheckBox;
|
||||||
|
cbShowFocusRect: TCheckBox;
|
||||||
|
cbAutoSize: TCheckBox;
|
||||||
|
cbFontNormalBold: TCheckBox;
|
||||||
|
cbFontHotBold: TCheckBox;
|
||||||
|
cbFontDisabledBold: TCheckBox;
|
||||||
|
cbFontFocusedBold: TCheckBox;
|
||||||
|
cbFontDownBold: TCheckBox;
|
||||||
|
cbDefaultDrawing: TCheckBox;
|
||||||
|
cbWordWrap: TCheckBox;
|
||||||
|
cmbAlignment: TComboBox;
|
||||||
|
GroupBox1: TGroupBox;
|
||||||
|
Label1: TLabel;
|
||||||
|
Label10: TLabel;
|
||||||
|
Label11: TLabel;
|
||||||
|
Label12: TLabel;
|
||||||
|
Label2: TLabel;
|
||||||
|
Label3: TLabel;
|
||||||
|
Label4: TLabel;
|
||||||
|
Label5: TLabel;
|
||||||
|
Label6: TLabel;
|
||||||
|
Label7: TLabel;
|
||||||
|
Label8: TLabel;
|
||||||
|
Label9: TLabel;
|
||||||
|
Memo1: TMemo;
|
||||||
|
seBorderWidthNormal: TSpinEdit;
|
||||||
|
seBorderWidthHot: TSpinEdit;
|
||||||
|
seBorderWidthDisabled: TSpinEdit;
|
||||||
|
seBorderWidthFocused: TSpinEdit;
|
||||||
|
seBorderWidthDown: TSpinEdit;
|
||||||
|
SpinEdit1: TSpinEdit;
|
||||||
|
SpinEdit2: TSpinEdit;
|
||||||
|
udFontSizeNormal: TUpDown;
|
||||||
|
procedure Button2Click(Sender: TObject);
|
||||||
|
procedure ButtonClick(Sender: TObject);
|
||||||
|
procedure cbAutoSizeChange(Sender: TObject);
|
||||||
|
procedure cbColorDisabledFromToChanged(Sender: TObject);
|
||||||
|
procedure cbColorDownFromToChanged(Sender: TObject);
|
||||||
|
procedure cbColorFocusedFromToChanged(Sender: TObject);
|
||||||
|
procedure cbColorHotFromToChanged(Sender: TObject);
|
||||||
|
procedure cbColorNormalFromToChanged(Sender: TObject);
|
||||||
|
procedure cbEnabledChange(Sender: TObject);
|
||||||
|
procedure cbGradientChange(Sender: TObject);
|
||||||
|
procedure cbShowFocusRectChange(Sender: TObject);
|
||||||
|
procedure cbFontBoldChange(Sender: TObject);
|
||||||
|
procedure cbDefaultDrawingChange(Sender: TObject);
|
||||||
|
procedure cbWordWrapChange(Sender: TObject);
|
||||||
|
procedure cmbAlignmentChange(Sender: TObject);
|
||||||
|
procedure FormCreate(Sender: TObject);
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure seBorderWidthDisabledChange(Sender: TObject);
|
||||||
|
procedure seBorderWidthDownChange(Sender: TObject);
|
||||||
|
procedure seBorderWidthFocusedChange(Sender: TObject);
|
||||||
|
procedure seBorderWidthHotChange(Sender: TObject);
|
||||||
|
procedure seBorderWidthNormalChange(Sender: TObject);
|
||||||
|
procedure SpinEdit1Change(Sender: TObject);
|
||||||
|
procedure SpinEdit1EditingDone(Sender: TObject);
|
||||||
|
procedure SpinEdit2Change(Sender: TObject);
|
||||||
|
procedure SpinEdit2EditingDone(Sender: TObject);
|
||||||
|
procedure udFontSizeNormalClick(Sender: TObject; Button: TUDBtnType);
|
||||||
|
private
|
||||||
|
FButton1: TButtonEx;
|
||||||
|
|
||||||
|
public
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
Form1: TForm1;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.lfm}
|
||||||
|
|
||||||
|
uses
|
||||||
|
Unit2;
|
||||||
|
|
||||||
|
{ TForm1 }
|
||||||
|
|
||||||
|
procedure TForm1.Button2Click(Sender: TObject);
|
||||||
|
var
|
||||||
|
F: TForm2;
|
||||||
|
res: TModalResult;
|
||||||
|
begin
|
||||||
|
F := TForm2.Create(nil);
|
||||||
|
try
|
||||||
|
res := F.ShowModal;
|
||||||
|
case res of
|
||||||
|
mrOK: ShowMessage('ModalResult = mrOK');
|
||||||
|
mrCancel: ShowMessage('ModalResult = mrCancel');
|
||||||
|
mrNone: ShowMessage('ModalResult = mrNone');
|
||||||
|
else ShowMessage('unexpected ModalResult');
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
F.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.ButtonClick(Sender: TObject);
|
||||||
|
var
|
||||||
|
s: String;
|
||||||
|
begin
|
||||||
|
if Sender = FButton1 then
|
||||||
|
s := 'Ex '
|
||||||
|
else
|
||||||
|
s := ' ';
|
||||||
|
Memo1.Lines.Add(s + FormatDateTime('hh:nn:ss.zzz', now))
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.cbAutoSizeChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
//FButton1.Width := 100;
|
||||||
|
//Button1.Width := 100;
|
||||||
|
FButton1.AutoSize := cbAutoSize.Checked;
|
||||||
|
Button1.AutoSize := cbAutoSize.Checked;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.cbColorDisabledFromToChanged(Sender: TObject);
|
||||||
|
var
|
||||||
|
colorBtn: TColorButton;
|
||||||
|
begin
|
||||||
|
if not (Sender is TColorButton) then exit;
|
||||||
|
colorBtn := TColorButton(Sender);
|
||||||
|
if colorBtn.Caption = 'From' then
|
||||||
|
FButton1.Colors.ColorDisabledFrom := colorBtn.ButtonColor
|
||||||
|
else if colorBtn.Caption = 'To' then
|
||||||
|
FButton1.Colors.ColorDisabledTo := colorBtn.ButtonColor
|
||||||
|
else if colorBtn.Caption = 'Color' then
|
||||||
|
FButton1.Border.ColorDisabled := colorBtn.ButtonColor
|
||||||
|
else if colorBtn.Caption = 'Font' then
|
||||||
|
FButton1.FontDisabled.Color := colorBtn.ButtonColor;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.cbColorDownFromToChanged(Sender: TObject);
|
||||||
|
var
|
||||||
|
colorBtn: TColorButton;
|
||||||
|
begin
|
||||||
|
if not (Sender is TColorButton) then exit;
|
||||||
|
colorBtn := TColorButton(Sender);
|
||||||
|
if colorBtn.Caption = 'From' then
|
||||||
|
FButton1.Colors.ColorDownFrom := colorBtn.ButtonColor
|
||||||
|
else if colorBtn.Caption = 'To' then
|
||||||
|
FButton1.Colors.ColorDownTo := colorBtn.ButtonColor
|
||||||
|
else if colorBtn.Caption = 'Color' then
|
||||||
|
FButton1.Border.ColorDown := colorBtn.ButtonColor
|
||||||
|
else if colorBtn.Caption = 'Font' then
|
||||||
|
FButton1.FontDown.Color := colorBtn.ButtonColor;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.cbColorFocusedFromToChanged(Sender: TObject);
|
||||||
|
var
|
||||||
|
colorBtn: TColorButton;
|
||||||
|
begin
|
||||||
|
if not (Sender is TColorButton) then exit;
|
||||||
|
colorBtn := TColorButton(Sender);
|
||||||
|
if colorBtn.Caption = 'From' then
|
||||||
|
FButton1.Colors.ColorFocusedFrom := colorBtn.ButtonColor
|
||||||
|
else if colorBtn.Caption = 'To' then
|
||||||
|
FButton1.Colors.ColorFocusedTo := colorBtn.ButtonColor
|
||||||
|
else if colorBtn.Caption = 'Color' then
|
||||||
|
FButton1.Border.ColorFocused := colorBtn.ButtonColor
|
||||||
|
else if colorBtn.Caption = 'Font' then
|
||||||
|
FButton1.FontFocused.Color := colorBtn.ButtonColor;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.cbColorHotFromToChanged(Sender: TObject);
|
||||||
|
var
|
||||||
|
colorBtn: TColorButton;
|
||||||
|
begin
|
||||||
|
if not (Sender is TColorButton) then exit;
|
||||||
|
colorBtn := TColorButton(Sender);
|
||||||
|
if colorBtn.Caption = 'From' then
|
||||||
|
FButton1.Colors.ColorHotFrom := colorBtn.ButtonColor
|
||||||
|
else if colorBtn.Caption = 'To' then
|
||||||
|
FButton1.Colors.ColorHotTo := colorBtn.ButtonColor
|
||||||
|
else if colorBtn.Caption = 'Color' then
|
||||||
|
FButton1.Border.ColorHot := colorBtn.ButtonColor
|
||||||
|
else if colorBtn.Caption = 'Font' then
|
||||||
|
FButton1.FontHot.Color := colorBtn.ButtonColor;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.cbColorNormalFromToChanged(Sender: TObject);
|
||||||
|
var
|
||||||
|
colorBtn: TColorButton;
|
||||||
|
begin
|
||||||
|
if not (Sender is TColorButton) then exit;
|
||||||
|
colorBtn := TColorButton(Sender);
|
||||||
|
if colorBtn.Caption = 'From' then
|
||||||
|
FButton1.Colors.ColorNormalFrom := colorBtn.ButtonColor
|
||||||
|
else if colorBtn.Caption = 'To' then
|
||||||
|
FButton1.Colors.ColorNormalTo := colorBtn.ButtonColor
|
||||||
|
else if colorBtn.Caption = 'Color' then
|
||||||
|
FButton1.Border.ColorNormal := colorBtn.ButtonColor
|
||||||
|
else if colorBtn.Caption = 'Font' then
|
||||||
|
FButton1.Font.Color := colorBtn.ButtonColor;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.cbEnabledChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
FButton1.Enabled := cbEnabled.Checked;
|
||||||
|
Button1.Enabled := cbEnabled.Checked;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.cbGradientChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
FButton1.Gradient := cbGradient.Checked;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.cbShowFocusRectChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
FButton1.ShowFocusRect := cbShowFocusRect.Checked;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.cbWordWrapChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
FButton1.WordWrap := cbWordwrap.Checked;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.cbDefaultDrawingChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
FButton1.DefaultDrawing := cbDefaultDrawing.Checked;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.cmbAlignmentChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
Fbutton1.Alignment := TAlignment(cmbAlignment.ItemIndex);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.cbFontBoldChange(Sender: TObject);
|
||||||
|
var
|
||||||
|
fnt: TFont;
|
||||||
|
begin
|
||||||
|
if Sender = cbFontNormalBold then
|
||||||
|
fnt := FButton1.Font
|
||||||
|
else if Sender = cbFontHotBold then
|
||||||
|
fnt := FButton1.FontHot
|
||||||
|
else if Sender = cbFontDisabledBold then
|
||||||
|
fnt := FButton1.FontDisabled
|
||||||
|
else if Sender = cbFontFocusedBold then
|
||||||
|
fnt := FButton1.FontFocused
|
||||||
|
else if Sender = cbFontDownBold then
|
||||||
|
fnt := FButton1.FontDown
|
||||||
|
else
|
||||||
|
raise Exception.Create('Unknown font');
|
||||||
|
if TCheckbox(Sender).Checked then
|
||||||
|
fnt.Style := fnt.Style + [fsBold]
|
||||||
|
else
|
||||||
|
fnt.Style := fnt.Style - [fsBold];
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.FormCreate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
FButton1 := TButtonEx.Create(self);
|
||||||
|
FButton1.Parent := self;
|
||||||
|
FButton1.Left := 10;
|
||||||
|
Fbutton1.Top := 12;
|
||||||
|
FButton1.Width := 250;
|
||||||
|
FButton1.Caption := 'This is the new multi-line TButtonEx control';
|
||||||
|
FButton1.OnClick := @ButtonClick;
|
||||||
|
//FButton1.DoubleBuffered := true;
|
||||||
|
|
||||||
|
cbColorNormalFrom.ButtonColor := FButton1.Colors.ColorNormalFrom;
|
||||||
|
cbColorNormalTo.ButtonColor := FButton1.Colors.ColorNormalTo;
|
||||||
|
cbColorHotFrom.ButtonColor := FButton1.Colors.ColorHotFrom;
|
||||||
|
cbColorHotTo.ButtonColor := FButton1.Colors.ColorHotTo;
|
||||||
|
cbColorDisabledFrom.ButtonColor := FButton1.Colors.ColorDisabledFrom;
|
||||||
|
cbColorDisabledTo.ButtonColor := FButton1.Colors.ColorDisabledTo;
|
||||||
|
cbColorFocusedFrom.ButtonColor := FButton1.Colors.ColorFocusedFrom;
|
||||||
|
cbColorFocusedTo.ButtonColor := FButton1.Colors.ColorFocusedTo;
|
||||||
|
cbColorDownFrom.ButtonColor := FButton1.Colors.ColorDownFrom;
|
||||||
|
cbColorDownTo.ButtonColor := FButton1.Colors.ColorDownTo;
|
||||||
|
cbBorderColorNormal.ButtonColor := FButton1.Border.ColorNormal;
|
||||||
|
cbBorderColorHot.ButtonColor := FButton1.Border.ColorHot;
|
||||||
|
cbBorderColorDisabled.ButtonColor := FButton1.Border.ColorDisabled;
|
||||||
|
cbBorderColorFocused.ButtonColor := FButton1.Border.ColorFocused;
|
||||||
|
cbBorderColorDown.ButtonColor := FButton1.Border.ColorDown;
|
||||||
|
clbFontColorNormal.ButtonColor := ColorToRGB(FButton1.Font.Color);
|
||||||
|
clbFontColorDisabled.ButtonColor := ColorToRGB(FButton1.FontDisabled.Color);
|
||||||
|
clbFontColorHot.ButtonColor := ColorToRGB(FButton1.FontHot.Color);
|
||||||
|
clbFontColorFocused.ButtonColor := ColorToRGB(FButton1.FontFocused.Color);
|
||||||
|
clbFontColorDown.ButtonColor := ColorToRGB(FButton1.FontDown.Color);
|
||||||
|
|
||||||
|
udFontSizeNormal.Position := Screen.SystemFont.Size;
|
||||||
|
|
||||||
|
seBorderWidthNormal.Value := FButton1.Border.WidthNormal;
|
||||||
|
seBorderWidthHot.Value := FButton1.Border.WidthHot;
|
||||||
|
seBorderWidthDisabled.Value := FButton1.Border.WidthDisabled;
|
||||||
|
seBorderWidthFocused.Value := FButton1.Border.WidthFocused;
|
||||||
|
seBorderWidthDown.Value := FButton1.Border.WidthDown;
|
||||||
|
|
||||||
|
ActiveControl := FButton1;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
SpinEdit1.Value := FButton1.Width;
|
||||||
|
SpinEdit2.Value := FButton1.Height;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.seBorderWidthDisabledChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
FButton1.Border.WidthDisabled := seBorderWidthDisabled.Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.seBorderWidthDownChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
FButton1.Border.WidthDown := seBorderWidthDown.Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.seBorderWidthFocusedChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
FButton1.Border.WidthFocused := seBorderWidthFocused.Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.seBorderWidthHotChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
FButton1.Border.WidthHot := seBorderWidthHot.Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.seBorderWidthNormalChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
FButton1.Border.WidthNormal := seBorderWidthNormal.Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.SpinEdit1Change(Sender: TObject);
|
||||||
|
begin
|
||||||
|
FButton1.Width := SpinEdit1.Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.SpinEdit1EditingDone(Sender: TObject);
|
||||||
|
begin
|
||||||
|
FButton1.Width := SpinEdit1.Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.SpinEdit2Change(Sender: TObject);
|
||||||
|
begin
|
||||||
|
FButton1.Height := SpinEdit2.Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.SpinEdit2EditingDone(Sender: TObject);
|
||||||
|
begin
|
||||||
|
FButton1.Height := SpinEdit2.Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.udFontSizeNormalClick(Sender: TObject; Button: TUDBtnType);
|
||||||
|
begin
|
||||||
|
FButton1.Font.Size := udFontSizeNormal.Position;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
19
components/exctrls/examples/ButtonEx/unit2.lfm
Normal file
19
components/exctrls/examples/ButtonEx/unit2.lfm
Normal file
@ -0,0 +1,19 @@
|
|||||||
|
object Form2: TForm2
|
||||||
|
Left = 670
|
||||||
|
Height = 128
|
||||||
|
Top = 218
|
||||||
|
Width = 298
|
||||||
|
Caption = 'Form2'
|
||||||
|
ClientHeight = 128
|
||||||
|
ClientWidth = 298
|
||||||
|
OnCreate = FormCreate
|
||||||
|
LCLVersion = '2.1.0.0'
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 19
|
||||||
|
Height = 15
|
||||||
|
Top = 16
|
||||||
|
Width = 212
|
||||||
|
Caption = 'Testing ModalResult, Default and Cancel'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
end
|
||||||
58
components/exctrls/examples/ButtonEx/unit2.pas
Normal file
58
components/exctrls/examples/ButtonEx/unit2.pas
Normal file
@ -0,0 +1,58 @@
|
|||||||
|
unit unit2;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ExButtons;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ TForm2 }
|
||||||
|
|
||||||
|
TForm2 = class(TForm)
|
||||||
|
Label1: TLabel;
|
||||||
|
procedure FormCreate(Sender: TObject);
|
||||||
|
private
|
||||||
|
OKBtn: TButtonEx;
|
||||||
|
CancelBtn: TButtonEx;
|
||||||
|
|
||||||
|
public
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
Form2: TForm2;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.lfm}
|
||||||
|
|
||||||
|
{ TForm2 }
|
||||||
|
|
||||||
|
procedure TForm2.FormCreate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
OKBtn := TButtonEx.Create(nil);
|
||||||
|
OKBtn.Parent := self;
|
||||||
|
OKBtn.Top := Label1.Top + Label1.Height + 16;
|
||||||
|
OKBtn.Left := 16;
|
||||||
|
//OKBtn.AutoSize := true;
|
||||||
|
OKBtn.Caption := 'OK';
|
||||||
|
OKBtn.Default := true;
|
||||||
|
OKBtn.ModalResult := mrOK;
|
||||||
|
OKBtn.DefaultDrawing := false;
|
||||||
|
|
||||||
|
CancelBtn := TButtonEx.Create(nil);
|
||||||
|
CancelBtn.Parent := self;
|
||||||
|
CancelBtn.Top := OKBtn.Top;
|
||||||
|
CancelBtn.Left := 100;
|
||||||
|
//CancelBtn.AutoSize := true;
|
||||||
|
CancelBtn.Caption := 'Cancel';
|
||||||
|
CancelBtn.Cancel := true;
|
||||||
|
CancelBtn.ModalResult := mrCancel;
|
||||||
|
CancelBtn.DefaultDrawing := false;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
Reference in New Issue
Block a user