Стартовый пул
This commit is contained in:
Binary file not shown.
Binary file not shown.
Binary file not shown.
File diff suppressed because it is too large
Load Diff
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,143 @@
|
||||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<Version Value="12"/>
|
||||
<PathDelim Value="\"/>
|
||||
<General>
|
||||
<Flags>
|
||||
<CompatibilityMode Value="True"/>
|
||||
</Flags>
|
||||
<SessionStorage Value="InProjectDir"/>
|
||||
<ResourceType Value="res"/>
|
||||
<UseXPManifest Value="True"/>
|
||||
<XPManifest>
|
||||
<DpiAware Value="True"/>
|
||||
</XPManifest>
|
||||
</General>
|
||||
<i18n>
|
||||
<EnableI18N LFM="False"/>
|
||||
</i18n>
|
||||
<BuildModes Count="2">
|
||||
<Item1 Name="Debug" Default="True"/>
|
||||
<Item2 Name="Release">
|
||||
<CompilerOptions>
|
||||
<Version Value="11"/>
|
||||
<PathDelim Value="\"/>
|
||||
<Target>
|
||||
<Filename Value="test_customdrawn_win7"/>
|
||||
</Target>
|
||||
<SearchPaths>
|
||||
<IncludeFiles Value="$(ProjOutDir)"/>
|
||||
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
|
||||
</SearchPaths>
|
||||
<CodeGeneration>
|
||||
<SmartLinkUnit Value="True"/>
|
||||
<Optimizations>
|
||||
<OptimizationLevel Value="3"/>
|
||||
<VariablesInRegisters Value="True"/>
|
||||
</Optimizations>
|
||||
</CodeGeneration>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
<GenerateDebugInfo Value="False"/>
|
||||
<StripSymbols Value="True"/>
|
||||
</Debugging>
|
||||
<LinkSmart Value="True"/>
|
||||
<Options>
|
||||
<Win32>
|
||||
<GraphicApplication Value="True"/>
|
||||
</Win32>
|
||||
</Options>
|
||||
</Linking>
|
||||
</CompilerOptions>
|
||||
</Item2>
|
||||
</BuildModes>
|
||||
<PublishOptions>
|
||||
<Version Value="2"/>
|
||||
</PublishOptions>
|
||||
<RunParams>
|
||||
<FormatVersion Value="2"/>
|
||||
<Modes Count="1">
|
||||
<Mode0 Name="default"/>
|
||||
</Modes>
|
||||
</RunParams>
|
||||
<RequiredPackages Count="2">
|
||||
<Item1>
|
||||
<PackageName Value="bgracontrols"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<PackageName Value="LCL"/>
|
||||
</Item2>
|
||||
</RequiredPackages>
|
||||
<Units Count="3">
|
||||
<Unit0>
|
||||
<Filename Value="test_customdrawn_win7.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="utest.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="frmTest"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
</Unit1>
|
||||
<Unit2>
|
||||
<Filename Value="customdrawn_windows7.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
</Unit2>
|
||||
</Units>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="11"/>
|
||||
<PathDelim Value="\"/>
|
||||
<Target>
|
||||
<Filename Value="test_customdrawn_win7"/>
|
||||
</Target>
|
||||
<SearchPaths>
|
||||
<IncludeFiles Value="$(ProjOutDir)"/>
|
||||
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
|
||||
</SearchPaths>
|
||||
<Parsing>
|
||||
<SyntaxOptions>
|
||||
<IncludeAssertionCode Value="True"/>
|
||||
</SyntaxOptions>
|
||||
</Parsing>
|
||||
<CodeGeneration>
|
||||
<Checks>
|
||||
<IOChecks Value="True"/>
|
||||
<RangeChecks Value="True"/>
|
||||
<OverflowChecks Value="True"/>
|
||||
<StackChecks Value="True"/>
|
||||
</Checks>
|
||||
<Optimizations>
|
||||
<VariablesInRegisters Value="True"/>
|
||||
</Optimizations>
|
||||
</CodeGeneration>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
<DebugInfoType Value="dsDwarf2Set"/>
|
||||
<UseHeaptrc Value="True"/>
|
||||
<StripSymbols Value="True"/>
|
||||
<UseExternalDbgSyms Value="True"/>
|
||||
</Debugging>
|
||||
<Options>
|
||||
<Win32>
|
||||
<GraphicApplication Value="True"/>
|
||||
</Win32>
|
||||
</Options>
|
||||
</Linking>
|
||||
</CompilerOptions>
|
||||
<Debugging>
|
||||
<Exceptions Count="3">
|
||||
<Item1>
|
||||
<Name Value="EAbort"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<Name Value="ECodetoolError"/>
|
||||
</Item2>
|
||||
<Item3>
|
||||
<Name Value="EFOpenError"/>
|
||||
</Item3>
|
||||
</Exceptions>
|
||||
</Debugging>
|
||||
</CONFIG>
|
||||
@@ -0,0 +1,20 @@
|
||||
program test_customdrawn_win7;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
uses {$IFDEF UNIX} {$IFDEF UseCThreads}
|
||||
cthreads, {$ENDIF} {$ENDIF}
|
||||
Interfaces,
|
||||
Forms,
|
||||
utest,
|
||||
customdrawn_windows7;
|
||||
|
||||
{$R *.res}
|
||||
|
||||
begin
|
||||
//RequireDerivedFormResource := True;
|
||||
Application.Initialize;
|
||||
Application.CreateForm(TfrmTest, frmTest);
|
||||
Application.Run;
|
||||
end.
|
||||
|
||||
@@ -0,0 +1,612 @@
|
||||
object frmTest: TfrmTest
|
||||
Left = 278
|
||||
Height = 514
|
||||
Top = 101
|
||||
Width = 970
|
||||
Caption = 'Test Custom Drawn Windows 7'
|
||||
ClientHeight = 514
|
||||
ClientWidth = 970
|
||||
Font.Height = -14
|
||||
OnCreate = FormCreate
|
||||
Position = poDesktopCenter
|
||||
LCLVersion = '2.2.6.0'
|
||||
WindowState = wsMaximized
|
||||
object BGRAVirtualScreen1: TBGRAVirtualScreen
|
||||
Left = 0
|
||||
Height = 514
|
||||
Top = 0
|
||||
Width = 970
|
||||
OnRedraw = BGRAVirtualScreen1Redraw
|
||||
Align = alClient
|
||||
Alignment = taLeftJustify
|
||||
ClientHeight = 514
|
||||
ClientWidth = 970
|
||||
Color = clWhite
|
||||
ParentColor = False
|
||||
TabOrder = 0
|
||||
object CDButton10: TCDButton
|
||||
Left = 648
|
||||
Height = 36
|
||||
Top = 8
|
||||
Width = 152
|
||||
Caption = 'Enable / Disable'
|
||||
DrawStyle = dsDefault
|
||||
OnClick = CDButton10Click
|
||||
TabOrder = 0
|
||||
TabStop = True
|
||||
end
|
||||
object CDButton1: TCDButton
|
||||
Left = 8
|
||||
Height = 36
|
||||
Top = 8
|
||||
Width = 152
|
||||
Caption = 'Change DPI'
|
||||
DrawStyle = dsDefault
|
||||
OnClick = CDButton1Click
|
||||
TabOrder = 1
|
||||
TabStop = True
|
||||
end
|
||||
object CDButton2: TCDButton
|
||||
Left = 168
|
||||
Height = 36
|
||||
Top = 8
|
||||
Width = 152
|
||||
Caption = 'Extra Tickmark'
|
||||
DrawStyle = dsDefault
|
||||
OnClick = CDButton2Click
|
||||
TabOrder = 2
|
||||
TabStop = True
|
||||
end
|
||||
object CDButton3: TCDButton
|
||||
Left = 808
|
||||
Height = 95
|
||||
Top = 8
|
||||
Width = 152
|
||||
Caption = 'w r o n g w a y'
|
||||
DrawStyle = dsDefault
|
||||
Glyph.Data = {
|
||||
36090000424D3609000000000000360000002800000018000000180000000100
|
||||
2000000000000009000064000000640000000000000000000000FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000020000
|
||||
00050000000900000011000000180000001E0000002300000025000000270000
|
||||
0027000000270000002700000027000000270000002700000026000000230000
|
||||
001F00000019000000120000000B000000050000000200000001000000010000
|
||||
000200000005000000090156ACFF0156ABFF0156ACFF0158ADFF015AAFFF015C
|
||||
B0FF015EB2FF015FB3FF015FB3FF015EB2FF015CB1FF015AAFFF0157ADFF0155
|
||||
ABFF0154AAFF0154A9FF00000006000000030000000100000000FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00025BAFFF44B8F3FF45B9F3FF46BAF3FF48BBF3FF49BD
|
||||
F4FF4BBEF4FF4CBFF4FF4CBFF4FF4BBEF4FF4ABDF4FF48BBF3FF45B9F3FF43B7
|
||||
F2FF42B7F2FF0158ACFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF000362B2FF46BCF3FF20ACF1FF21ADF1FF22AFF1FF23B0
|
||||
F2FF2CB7F3FF33BDF4FF33BDF4FF2CB7F3FF23B0F2FF22AFF1FF20ADF1FF1FAB
|
||||
F0FF44BAF2FF035EAFFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF000468B6FF4AC0F4FF23B1F2FF23B2F2FF24B3F2FF25B4
|
||||
F3FF24A3DAFF1291C5FF1291C5FF24A3DAFF25B4F3FF24B3F2FF23B1F2FF22AF
|
||||
F2FF47BEF4FF0464B3FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00056FB9FF51C5F6FF2AB8F3FF2AB8F3FF2BB8F4FF28B7
|
||||
F4FF1185BEFF128FC4FF128FC4FF1185BEFF28B7F4FF2BB8F4FF2AB7F3FF29B6
|
||||
F3FF4EC2F5FF056AB5FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF000674BBFF47BFF5FF23B0F1FF24B0F1FF24B1F2FF2ABA
|
||||
F4FF1E9ED8FF128EC2FF128EC2FF1E9ED8FF2BBAF4FF24B1F2FF23AFF1FF22AE
|
||||
F1FF44BDF3FF056FB7FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00087ABDFF51C7F7FF2BB9F4FF2CBAF4FF2CBBF5FF2DBC
|
||||
F5FF2EBDF5FF1287BFFF1288BFFF2FBDF5FF2EBCF5FF2CBAF5FF2BB9F4FF2AB8
|
||||
F4FF4EC4F6FF0774B9FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00087EBEFF53C9F7FF2EBBF4FF2EBBF4FF2FBCF4FF30BD
|
||||
F5FF31BEF5FF127DB9FF127DB9FF32BFF5FF31BDF5FF2FBCF4FF2EBAF4FF2CB9
|
||||
F4FF4FC6F6FF0778BAFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF000982C0FF55C9F7FF31BCF4FF31BDF4FF32BDF4FF33BF
|
||||
F4FF35C0F5FF35C0F5FF36C1F5FF35C0F5FF34BFF5FF32BDF4FF30BBF4FF2FBA
|
||||
F4FF51C6F6FF087CBCFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF000A86C2FF88E5FBFF88E4FBFF88E5FBFF89E5FBFF8BE5
|
||||
FBFF8DE6FCFF8EE6FCFF8EE6FCFF8DE6FCFF8BE6FBFF89E5FBFF86E4FBFF84E3
|
||||
FBFF83E3FBFF097FBDFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF000B8AC3FF0A89C2FF0A88C2FF0A88C2FF0B8AC3FF0B8B
|
||||
C4FF0B8DC5FF0B8EC6FF0B8EC6FF0B8DC5FF0B8BC4FF0A89C2FF0A86C0FF0A84
|
||||
BFFF0983BEFF0983BEFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008D8D8DFFE0E0E0FF8D8D
|
||||
8DFFFFFFFF00FFFFFF00FFFFFF00FFFFFF008D8D8DFFE0E0E0FF8D8D8DFFFFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008F8F8FFFE0E0E0FF8F8F
|
||||
8FFFFFFFFF00FFFFFF00FFFFFF00FFFFFF008F8F8FFFE0E0E0FF8F8F8FFFFFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00919191F0DCDCDCFF9999
|
||||
99FF91919118FFFFFF00FFFFFF0091919118999999FFDCDCDCFF919191F0FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00939393C3CACACAFFBABA
|
||||
BAFF939393C09393933693939336939393C0BABABAFFC9C9C9FF939393C0FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF009595953F959595FCE0E0
|
||||
E0FFC7C7C7FFA5A5A5FFA5A5A5FFC7C7C7FFE0E0E0FF959595FC9595953CFFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0097979778ACAC
|
||||
ACFFD0D0D0FFE5E5E5FFE5E5E5FFD0D0D0FFACACACFF97979778FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF009898
|
||||
983F989898B1989898E4989898E4989898B19898983FFFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||
}
|
||||
TabOrder = 3
|
||||
TabStop = True
|
||||
end
|
||||
object CDEdit1: TCDEdit
|
||||
Left = 808
|
||||
Height = 36
|
||||
Top = 112
|
||||
Width = 152
|
||||
DrawStyle = dsDefault
|
||||
end
|
||||
object CDGroupBox1: TCDGroupBox
|
||||
Left = 8
|
||||
Height = 128
|
||||
Top = 56
|
||||
Width = 217
|
||||
AutoSize = True
|
||||
Caption = 'Allow Grayed Enabled'
|
||||
DrawStyle = dsDefault
|
||||
end
|
||||
object cb_a_u: TCDCheckBox
|
||||
Left = 16
|
||||
Height = 19
|
||||
Top = 80
|
||||
Width = 86
|
||||
AllowGrayed = True
|
||||
DrawStyle = dsDefault
|
||||
Caption = 'Unchecked'
|
||||
end
|
||||
object cb_a_c: TCDCheckBox
|
||||
Left = 16
|
||||
Height = 19
|
||||
Top = 112
|
||||
Width = 71
|
||||
AllowGrayed = True
|
||||
Checked = True
|
||||
DrawStyle = dsDefault
|
||||
Caption = 'Checked'
|
||||
State = cbChecked
|
||||
end
|
||||
object cb_a_g: TCDCheckBox
|
||||
Left = 16
|
||||
Height = 19
|
||||
Top = 144
|
||||
Width = 63
|
||||
AllowGrayed = True
|
||||
DrawStyle = dsDefault
|
||||
Caption = 'Grayed'
|
||||
State = cbGrayed
|
||||
end
|
||||
object CDGroupBox2: TCDGroupBox
|
||||
Left = 7
|
||||
Height = 128
|
||||
Top = 192
|
||||
Width = 217
|
||||
AutoSize = True
|
||||
Caption = 'Allow Grayed Disabled'
|
||||
DrawStyle = dsDefault
|
||||
end
|
||||
object cbd_a_g: TCDCheckBox
|
||||
Left = 16
|
||||
Height = 19
|
||||
Top = 280
|
||||
Width = 63
|
||||
AllowGrayed = True
|
||||
DrawStyle = dsDefault
|
||||
Caption = 'Grayed'
|
||||
Enabled = False
|
||||
State = cbGrayed
|
||||
end
|
||||
object cbd_a_c: TCDCheckBox
|
||||
Left = 16
|
||||
Height = 19
|
||||
Top = 248
|
||||
Width = 71
|
||||
AllowGrayed = True
|
||||
Checked = True
|
||||
DrawStyle = dsDefault
|
||||
Caption = 'Checked'
|
||||
Enabled = False
|
||||
State = cbChecked
|
||||
end
|
||||
object cbd_a_u: TCDCheckBox
|
||||
Left = 16
|
||||
Height = 19
|
||||
Top = 216
|
||||
Width = 86
|
||||
AllowGrayed = True
|
||||
DrawStyle = dsDefault
|
||||
Caption = 'Unchecked'
|
||||
Enabled = False
|
||||
end
|
||||
object CDRadioButton1: TCDRadioButton
|
||||
Left = 480
|
||||
Height = 19
|
||||
Top = 80
|
||||
Width = 86
|
||||
Caption = 'Unchecked'
|
||||
DrawStyle = dsDefault
|
||||
end
|
||||
object CDRadioButton2: TCDRadioButton
|
||||
Left = 480
|
||||
Height = 19
|
||||
Top = 112
|
||||
Width = 71
|
||||
Caption = 'Checked'
|
||||
DrawStyle = dsDefault
|
||||
end
|
||||
object CDRadioButton3: TCDRadioButton
|
||||
Left = 480
|
||||
Height = 19
|
||||
Top = 144
|
||||
Width = 86
|
||||
Caption = 'Unchecked'
|
||||
DrawStyle = dsDefault
|
||||
Enabled = False
|
||||
end
|
||||
object CDRadioButton4: TCDRadioButton
|
||||
Left = 480
|
||||
Height = 19
|
||||
Top = 176
|
||||
Width = 71
|
||||
Caption = 'Checked'
|
||||
Checked = True
|
||||
DrawStyle = dsDefault
|
||||
Enabled = False
|
||||
end
|
||||
object CDGroupBox3: TCDGroupBox
|
||||
Left = 240
|
||||
Height = 128
|
||||
Top = 56
|
||||
Width = 217
|
||||
AutoSize = True
|
||||
Caption = 'Don''t Grayed Enabled'
|
||||
DrawStyle = dsDefault
|
||||
end
|
||||
object CDGroupBox4: TCDGroupBox
|
||||
Left = 240
|
||||
Height = 128
|
||||
Top = 192
|
||||
Width = 217
|
||||
AutoSize = True
|
||||
Caption = 'Don''t Grayed Disabled'
|
||||
DrawStyle = dsDefault
|
||||
end
|
||||
object cb_u: TCDCheckBox
|
||||
Left = 248
|
||||
Height = 19
|
||||
Top = 80
|
||||
Width = 86
|
||||
DrawStyle = dsDefault
|
||||
Caption = 'Unchecked'
|
||||
end
|
||||
object cb_c: TCDCheckBox
|
||||
Left = 248
|
||||
Height = 19
|
||||
Top = 112
|
||||
Width = 71
|
||||
Checked = True
|
||||
DrawStyle = dsDefault
|
||||
Caption = 'Checked'
|
||||
State = cbChecked
|
||||
end
|
||||
object cb_g: TCDCheckBox
|
||||
Left = 248
|
||||
Height = 19
|
||||
Top = 144
|
||||
Width = 63
|
||||
Checked = True
|
||||
DrawStyle = dsDefault
|
||||
Caption = 'Grayed'
|
||||
State = cbChecked
|
||||
end
|
||||
object cbd_u: TCDCheckBox
|
||||
Left = 248
|
||||
Height = 19
|
||||
Top = 216
|
||||
Width = 86
|
||||
DrawStyle = dsDefault
|
||||
Caption = 'Unchecked'
|
||||
Enabled = False
|
||||
end
|
||||
object cbd_c: TCDCheckBox
|
||||
Left = 248
|
||||
Height = 19
|
||||
Top = 248
|
||||
Width = 71
|
||||
Checked = True
|
||||
DrawStyle = dsDefault
|
||||
Caption = 'Checked'
|
||||
Enabled = False
|
||||
State = cbChecked
|
||||
end
|
||||
object cbd_g: TCDCheckBox
|
||||
Left = 248
|
||||
Height = 19
|
||||
Top = 280
|
||||
Width = 63
|
||||
Checked = True
|
||||
DrawStyle = dsDefault
|
||||
Caption = 'Grayed'
|
||||
Enabled = False
|
||||
State = cbChecked
|
||||
end
|
||||
object CDStaticText1: TCDStaticText
|
||||
Left = 648
|
||||
Height = 36
|
||||
Top = 112
|
||||
Width = 152
|
||||
Caption = 'CDStaticText1'
|
||||
DrawStyle = dsDefault
|
||||
end
|
||||
object CDProgressBar1: TCDProgressBar
|
||||
Left = 7
|
||||
Height = 34
|
||||
Top = 328
|
||||
Width = 218
|
||||
BarShowText = False
|
||||
DrawStyle = dsDefault
|
||||
Max = 100
|
||||
Orientation = pbRightToLeft
|
||||
Position = 50
|
||||
Smooth = False
|
||||
Style = pbstNormal
|
||||
end
|
||||
object CDProgressBar2: TCDProgressBar
|
||||
Left = 7
|
||||
Height = 34
|
||||
Top = 368
|
||||
Width = 218
|
||||
BarShowText = False
|
||||
DrawStyle = dsDefault
|
||||
Max = 100
|
||||
Orientation = pbHorizontal
|
||||
Position = 50
|
||||
Smooth = False
|
||||
Style = pbstNormal
|
||||
end
|
||||
object CDProgressBar3: TCDProgressBar
|
||||
Left = 240
|
||||
Height = 176
|
||||
Top = 328
|
||||
Width = 34
|
||||
BarShowText = False
|
||||
DrawStyle = dsDefault
|
||||
Max = 100
|
||||
Orientation = pbVertical
|
||||
Position = 50
|
||||
Smooth = False
|
||||
Style = pbstNormal
|
||||
end
|
||||
object CDProgressBar4: TCDProgressBar
|
||||
Left = 281
|
||||
Height = 176
|
||||
Top = 328
|
||||
Width = 34
|
||||
BarShowText = False
|
||||
DrawStyle = dsDefault
|
||||
Max = 100
|
||||
Orientation = pbTopDown
|
||||
Position = 50
|
||||
Smooth = False
|
||||
Style = pbstNormal
|
||||
end
|
||||
object CDTrackBar1: TCDTrackBar
|
||||
Left = 6
|
||||
Height = 40
|
||||
Top = 416
|
||||
Width = 218
|
||||
Max = 100
|
||||
Min = 0
|
||||
OnChange = CDTrackBar1Change
|
||||
Position = 50
|
||||
DrawStyle = dsDefault
|
||||
end
|
||||
object CDTrackBar2: TCDTrackBar
|
||||
Left = 328
|
||||
Height = 176
|
||||
Top = 328
|
||||
Width = 40
|
||||
Max = 100
|
||||
Min = 0
|
||||
OnChange = CDTrackBar1Change
|
||||
Position = 50
|
||||
DrawStyle = dsDefault
|
||||
Orientation = trVertical
|
||||
end
|
||||
object CDButton4: TCDButton
|
||||
Left = 328
|
||||
Height = 36
|
||||
Top = 8
|
||||
Width = 152
|
||||
Caption = 'Change Folder'
|
||||
DrawStyle = dsDefault
|
||||
OnClick = CDButton4Click
|
||||
TabOrder = 32
|
||||
TabStop = True
|
||||
end
|
||||
object CDButton5: TCDButton
|
||||
Left = 648
|
||||
Height = 30
|
||||
Top = 160
|
||||
Width = 30
|
||||
Caption = 'arrowleft'
|
||||
DrawStyle = dsExtra1
|
||||
TabOrder = 33
|
||||
TabStop = True
|
||||
end
|
||||
object CDButton6: TCDButton
|
||||
Left = 728
|
||||
Height = 30
|
||||
Top = 160
|
||||
Width = 30
|
||||
Caption = 'arrowright'
|
||||
DrawStyle = dsExtra1
|
||||
TabOrder = 34
|
||||
TabStop = True
|
||||
end
|
||||
object CDButton7: TCDButton
|
||||
Left = 808
|
||||
Height = 20
|
||||
Top = 160
|
||||
Width = 20
|
||||
Caption = 'arrow'
|
||||
DrawStyle = dsExtra1
|
||||
TabOrder = 35
|
||||
TabStop = True
|
||||
end
|
||||
object CDButton8: TCDButton
|
||||
Left = 872
|
||||
Height = 16
|
||||
Top = 160
|
||||
Width = 17
|
||||
Caption = 'closebutton'
|
||||
DrawStyle = dsExtra1
|
||||
TabOrder = 36
|
||||
TabStop = True
|
||||
end
|
||||
object CDComboBox1: TCDComboBox
|
||||
Left = 728
|
||||
Height = 34
|
||||
Top = 256
|
||||
Width = 192
|
||||
DrawStyle = dsDefault
|
||||
ItemIndex = -1
|
||||
KeyboardInputBehavior = kibAutomatic
|
||||
end
|
||||
object CDScrollBar1: TCDScrollBar
|
||||
Left = 728
|
||||
Height = 18
|
||||
Top = 304
|
||||
Width = 192
|
||||
Max = 100
|
||||
Min = 0
|
||||
Position = 0
|
||||
DrawStyle = dsDefault
|
||||
Kind = sbHorizontal
|
||||
PageSize = 0
|
||||
TabStop = False
|
||||
end
|
||||
object CDScrollBar2: TCDScrollBar
|
||||
Left = 928
|
||||
Height = 114
|
||||
Top = 208
|
||||
Width = 18
|
||||
Max = 100
|
||||
Min = 0
|
||||
Position = 0
|
||||
DrawStyle = dsDefault
|
||||
Kind = sbVertical
|
||||
PageSize = 0
|
||||
TabStop = False
|
||||
end
|
||||
object CDListView1: TCDListView
|
||||
Left = 728
|
||||
Height = 168
|
||||
Top = 336
|
||||
Width = 218
|
||||
Columns = <>
|
||||
ScrollBars = ssBoth
|
||||
ViewStyle = vsIcon
|
||||
end
|
||||
object CDPageControl1: TCDPageControl
|
||||
Left = 464
|
||||
Height = 104
|
||||
Top = 400
|
||||
Width = 232
|
||||
DrawStyle = dsDefault
|
||||
Caption = 'CDPageControl1'
|
||||
PageIndex = 0
|
||||
Options = []
|
||||
TabIndex = 0
|
||||
end
|
||||
object CDPageControl2: TCDPageControl
|
||||
Left = 464
|
||||
Height = 184
|
||||
Top = 208
|
||||
Width = 232
|
||||
ActivePage = CDTabSheet1
|
||||
DrawStyle = dsDefault
|
||||
Caption = 'CDPageControl2'
|
||||
PageIndex = 1
|
||||
Options = []
|
||||
TabIndex = 1
|
||||
object CDTabSheet2: TCDTabSheet
|
||||
Left = 2
|
||||
Height = 155
|
||||
Top = 27
|
||||
Width = 228
|
||||
Caption = 'CDTabSheet2'
|
||||
TabVisible = False
|
||||
end
|
||||
object CDTabSheet1: TCDTabSheet
|
||||
Left = 2
|
||||
Height = 155
|
||||
Top = 27
|
||||
Width = 228
|
||||
Caption = 'CDTabSheet1'
|
||||
TabVisible = False
|
||||
end
|
||||
end
|
||||
object CDSpinEdit1: TCDSpinEdit
|
||||
Left = 728
|
||||
Height = 40
|
||||
Top = 208
|
||||
Width = 192
|
||||
DrawStyle = dsDefault
|
||||
Lines.Strings = (
|
||||
'0'
|
||||
)
|
||||
Increment = 1
|
||||
MaxValue = 100
|
||||
end
|
||||
object CDTrackBar3: TCDTrackBar
|
||||
Left = 376
|
||||
Height = 176
|
||||
Top = 328
|
||||
Width = 40
|
||||
Max = 100
|
||||
Min = 0
|
||||
OnChange = CDTrackBar1Change
|
||||
Position = 50
|
||||
DrawStyle = dsDefault
|
||||
Enabled = False
|
||||
Orientation = trVertical
|
||||
end
|
||||
object CDTrackBar4: TCDTrackBar
|
||||
Left = 5
|
||||
Height = 40
|
||||
Top = 464
|
||||
Width = 218
|
||||
Max = 100
|
||||
Min = 0
|
||||
OnChange = CDTrackBar1Change
|
||||
Position = 50
|
||||
DrawStyle = dsDefault
|
||||
Enabled = False
|
||||
end
|
||||
object CDButton9: TCDButton
|
||||
Left = 488
|
||||
Height = 36
|
||||
Top = 8
|
||||
Width = 152
|
||||
Caption = 'Debug'
|
||||
DrawStyle = dsDefault
|
||||
OnClick = CDButton9Click
|
||||
TabOrder = 46
|
||||
TabStop = True
|
||||
end
|
||||
end
|
||||
end
|
||||
@@ -0,0 +1,238 @@
|
||||
unit utest;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Forms, SysUtils,
|
||||
{ Custom Drawn }
|
||||
customdrawncontrols, customdrawndrawers, StdCtrls,
|
||||
{ BGRABitmap }
|
||||
BGRAVirtualScreen, BGRABitmap, BGRABitmapTypes,
|
||||
{ Custom Drawn + BGRABitmap }
|
||||
customdrawn_windows7;
|
||||
|
||||
type
|
||||
|
||||
{ TfrmTest }
|
||||
|
||||
TfrmTest = class(TForm)
|
||||
BGRAVirtualScreen1: TBGRAVirtualScreen;
|
||||
cbd_a_c: TCDCheckBox;
|
||||
cbd_a_g: TCDCheckBox;
|
||||
cbd_a_u: TCDCheckBox;
|
||||
cbd_c: TCDCheckBox;
|
||||
cbd_g: TCDCheckBox;
|
||||
cbd_u: TCDCheckBox;
|
||||
cb_a_c: TCDCheckBox;
|
||||
cb_a_g: TCDCheckBox;
|
||||
cb_a_u: TCDCheckBox;
|
||||
cb_c: TCDCheckBox;
|
||||
cb_g: TCDCheckBox;
|
||||
cb_u: TCDCheckBox;
|
||||
CDButton1: TCDButton;
|
||||
CDButton10: TCDButton;
|
||||
CDButton2: TCDButton;
|
||||
CDButton3: TCDButton;
|
||||
CDButton4: TCDButton;
|
||||
CDButton5: TCDButton;
|
||||
CDButton6: TCDButton;
|
||||
CDButton7: TCDButton;
|
||||
CDButton8: TCDButton;
|
||||
CDButton9: TCDButton;
|
||||
CDComboBox1: TCDComboBox;
|
||||
CDEdit1: TCDEdit;
|
||||
CDGroupBox1: TCDGroupBox;
|
||||
CDGroupBox2: TCDGroupBox;
|
||||
CDGroupBox3: TCDGroupBox;
|
||||
CDGroupBox4: TCDGroupBox;
|
||||
CDListView1: TCDListView;
|
||||
CDPageControl1: TCDPageControl;
|
||||
CDPageControl2: TCDPageControl;
|
||||
CDProgressBar1: TCDProgressBar;
|
||||
CDProgressBar2: TCDProgressBar;
|
||||
CDProgressBar3: TCDProgressBar;
|
||||
CDProgressBar4: TCDProgressBar;
|
||||
CDRadioButton1: TCDRadioButton;
|
||||
CDRadioButton2: TCDRadioButton;
|
||||
CDRadioButton3: TCDRadioButton;
|
||||
CDRadioButton4: TCDRadioButton;
|
||||
CDScrollBar1: TCDScrollBar;
|
||||
CDScrollBar2: TCDScrollBar;
|
||||
CDSpinEdit1: TCDSpinEdit;
|
||||
CDStaticText1: TCDStaticText;
|
||||
CDTabSheet1: TCDTabSheet;
|
||||
CDTabSheet2: TCDTabSheet;
|
||||
CDTrackBar1: TCDTrackBar;
|
||||
CDTrackBar2: TCDTrackBar;
|
||||
CDTrackBar3: TCDTrackBar;
|
||||
CDTrackBar4: TCDTrackBar;
|
||||
procedure BGRAVirtualScreen1Redraw(Sender: TObject; Bitmap: TBGRABitmap);
|
||||
procedure CDButton10Click(Sender: TObject);
|
||||
procedure CDButton1Click(Sender: TObject);
|
||||
procedure CDButton2Click(Sender: TObject);
|
||||
procedure CDButton4Click(Sender: TObject);
|
||||
procedure CDButton9Click(Sender: TObject);
|
||||
procedure CDScrollBar1Change(Sender: TObject);
|
||||
procedure CDTrackBar1Change(Sender: TObject);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
private
|
||||
{ private declarations }
|
||||
public
|
||||
{ public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
frmTest: TfrmTest;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.lfm}
|
||||
|
||||
{ TfrmTest }
|
||||
|
||||
procedure TfrmTest.FormCreate(Sender: TObject);
|
||||
begin
|
||||
{ This code set the dsWindows7 style
|
||||
that is registered in the unit customdrawn_windows7 }
|
||||
DefaultStyle := dsWindows7;
|
||||
|
||||
{ Set the form color }
|
||||
Color := WIN7_FORM_COLOR;
|
||||
BGRAVirtualScreen1.Color := WIN7_FORM_COLOR;
|
||||
|
||||
end;
|
||||
|
||||
{ The code below is how to configure this drawer }
|
||||
|
||||
procedure TfrmTest.CDButton1Click(Sender: TObject);
|
||||
begin
|
||||
{ This code is for changing DPI }
|
||||
if win7.dpi = 96 then
|
||||
win7.dpi := 120
|
||||
else if win7.dpi = 120 then
|
||||
win7.dpi := 144
|
||||
else if win7.dpi = 144 then
|
||||
win7.dpi := 96
|
||||
else
|
||||
win7.dpi := 96;
|
||||
|
||||
{ This code is for scaling extra1 buttons }
|
||||
// extra1 'arrowleft' in caption
|
||||
CDButton5.Width := win7.ArrowLeft.SliceScalingArray[0].BitmapWidth;
|
||||
CDButton5.Height := win7.ArrowLeft.SliceScalingArray[0].BitmapHeight;
|
||||
// extra1 'arrowright' in caption
|
||||
CDButton6.Width := win7.ArrowRight.SliceScalingArray[0].BitmapWidth;
|
||||
CDButton6.Height := win7.ArrowRight.SliceScalingArray[0].BitmapHeight;
|
||||
// extra1 'arrow' in caption
|
||||
CDButton7.Width := win7.Arrow.SliceScalingArray[0].BitmapWidth;
|
||||
CDButton7.Height := win7.Arrow.SliceScalingArray[0].BitmapHeight;
|
||||
// extra1 'closebutton' in caption
|
||||
CDButton8.Width := win7.CloseButton.SliceScalingArray[0].BitmapWidth;
|
||||
CDButton8.Height := win7.CloseButton.SliceScalingArray[0].BitmapHeight;
|
||||
|
||||
{ Do changes visible }
|
||||
Invalidate;
|
||||
end;
|
||||
|
||||
procedure TfrmTest.CDButton2Click(Sender: TObject);
|
||||
begin
|
||||
{ This code is for using the extra tickmark }
|
||||
win7.tickmark := not win7.tickmark;
|
||||
|
||||
{ Do changes visible }
|
||||
Invalidate;
|
||||
end;
|
||||
|
||||
procedure TfrmTest.CDButton4Click(Sender: TObject);
|
||||
begin
|
||||
{ This code is for changing the folder }
|
||||
if win7.folder = 'aero.zip' then
|
||||
win7.folder := 'aerow8.zip'
|
||||
else if win7.folder = 'aerow8.zip' then
|
||||
win7.folder := 'luna.zip'
|
||||
else if win7.folder = 'luna.zip' then
|
||||
win7.folder := 'extra.zip'
|
||||
else if win7.folder = 'extra.zip' then
|
||||
win7.folder := 'aerow11.zip'
|
||||
else if win7.folder = 'aerow11.zip' then
|
||||
win7.folder := 'aero.zip'
|
||||
else
|
||||
win7.folder := 'aero.zip';
|
||||
|
||||
{ Do changes visible }
|
||||
Invalidate;
|
||||
end;
|
||||
|
||||
procedure TfrmTest.CDButton9Click(Sender: TObject);
|
||||
begin
|
||||
{ This show / hide debug lines }
|
||||
win7.debug := not win7.debug;
|
||||
|
||||
{ Do changes visible }
|
||||
Invalidate;
|
||||
end;
|
||||
|
||||
{ The code below is just for testing purposes }
|
||||
|
||||
procedure TfrmTest.CDButton10Click(Sender: TObject);
|
||||
begin
|
||||
CDButton5.Enabled := not CDButton5.Enabled;
|
||||
CDButton6.Enabled := not CDButton6.Enabled;
|
||||
CDButton7.Enabled := not CDButton7.Enabled;
|
||||
CDButton8.Enabled := not CDButton8.Enabled;
|
||||
CDScrollBar1.Enabled := not CDScrollBar1.Enabled;
|
||||
CDScrollBar2.Enabled := not CDScrollBar2.Enabled;
|
||||
CDComboBox1.Enabled := not CDComboBox1.Enabled;
|
||||
CDStaticText1.Enabled := not CDStaticText1.Enabled;
|
||||
CDSpinEdit1.Enabled := not CDSpinEdit1.Enabled;
|
||||
CDListView1.Enabled := not CDListView1.Enabled;
|
||||
CDButton3.Enabled := not CDButton3.Enabled;
|
||||
CDEdit1.Enabled := not CDEdit1.Enabled;
|
||||
CDPageControl1.Enabled := not CDPageControl1.Enabled;
|
||||
CDPageControl2.Enabled := not CDPageControl2.Enabled;
|
||||
end;
|
||||
|
||||
procedure TfrmTest.BGRAVirtualScreen1Redraw(Sender: TObject; Bitmap: TBGRABitmap);
|
||||
|
||||
procedure DrawTileBackground(ABitmap: TBGRABitmap; Multiply: integer);
|
||||
var
|
||||
temp: TBGRABitmap;
|
||||
begin
|
||||
temp := TBGRABitmap.Create(2, 2, BGRAWhite);
|
||||
temp.SetPixel(0, 1, BGRA(220, 220, 220));
|
||||
temp.SetPixel(1, 0, BGRA(220, 220, 220));
|
||||
BGRAReplace(temp, temp.Resample(2 * Multiply, 2 * Multiply, rmSimpleStretch));
|
||||
ABitmap.Fill(temp, dmSet);
|
||||
temp.Free;
|
||||
end;
|
||||
|
||||
begin
|
||||
DrawTileBackground(Bitmap, 8);
|
||||
//DrawIOSBackground(Bitmap);
|
||||
end;
|
||||
|
||||
procedure TfrmTest.CDScrollBar1Change(Sender: TObject);
|
||||
begin
|
||||
CDProgressBar1.Position := TCDScrollBar(Sender).Position;
|
||||
CDProgressBar2.Position := TCDScrollBar(Sender).Position;
|
||||
CDProgressBar3.Position := TCDScrollBar(Sender).Position;
|
||||
CDProgressBar4.Position := TCDScrollBar(Sender).Position;
|
||||
end;
|
||||
|
||||
procedure TfrmTest.CDTrackBar1Change(Sender: TObject);
|
||||
begin
|
||||
CDProgressBar1.Position := TCDTrackBar(Sender).Position;
|
||||
CDProgressBar2.Position := TCDTrackBar(Sender).Position;
|
||||
CDProgressBar3.Position := TCDTrackBar(Sender).Position;
|
||||
CDProgressBar4.Position := TCDTrackBar(Sender).Position;
|
||||
CDTrackBar1.Position := CDProgressBar1.Position;
|
||||
CDTrackBar2.Position := CDProgressBar1.Position;
|
||||
CDTrackBar3.Position := CDProgressBar1.Position;
|
||||
CDTrackBar4.Position := CDProgressBar1.Position;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
||||
Reference in New Issue
Block a user