paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-04 11:24:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

Minor improvement in TTF debugging, cd_test_all and CustomDrawn glyph drawing

Browse Source 
git-svn-id: trunk@36270 -
This commit is contained in:
sekelsenmat 2012-03-23 11:30:16 +00:00
parent b89d4ff137
commit 194f7e5e2d
6 changed files with 493 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/customdrawn_common.pas
View File

@ -647,6 +647,7 @@ procedure TCDDrawerCommon.DrawButton(ADest: TFPCustomCanvas;
var
Str: string;
lGlyphLeftSpacing: Integer = 0;
lGlyphExtra: Integer = 0;
lTextOutPos: TPoint;
lGlyphCaptionHeight: Integer;
begin
@ -710,7 +711,8 @@ begin
// Button glyph
if not AStateEx.Glyph.Empty then
begin
TCanvas(ADest).Draw(lTextOutPos.X, lTextOutPos.Y, AStateEx.Glyph);
if csfSunken in AState then lGlyphExtra := 1;
TCanvas(ADest).Draw(lTextOutPos.X + lGlyphExtra, lTextOutPos.Y + lGlyphExtra, AStateEx.Glyph);
lGlyphLeftSpacing := AStateEx.Glyph.Width+5;
end;

1
lcl/interfaces/customdrawn/customdrawndefines.inc
View File

@ -62,4 +62,5 @@
{ $define VerboseCDBitmap}
{ $define VerboseCDForms}
{.$define VerboseCDAccessibility}
{ $define CD_Debug_TTF}

4
lcl/interfaces/customdrawn/customdrawnproc.pas
View File

@ -842,6 +842,10 @@ begin
begin
FontPath:= APath+Rslt.Name;
{$ifdef CD_Debug_TTF}
DebugLn(Format('[FontsScanForTTF] font=', [FontPath]));
{$endif}
// Work around for fonts which cause errors. See bug 21456
if Rslt.Name = 'tunga.ttf' then
begin

30
test/customdrawn/cd_test_all.lpi
View File

@ -15,7 +15,7 @@
<VersionInfo>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="3">
<BuildModes Count="4">
<Item1 Name="Default" Default="True"/>
<Item2 Name="WinCE">
<MacroValues Count="1">
@ -77,6 +77,34 @@
</Other>
</CompilerOptions>
</Item3>
<Item4 Name="CustomDrawn">
<MacroValues Count="1">
<Macro1 Name="LCLWidgetType" Value="customdrawn"/>
</MacroValues>
<CompilerOptions>
<Version Value="11"/>
<Target>
<Filename Value="cd_test_all"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerMessages>
<UseMsgFile Value="True"/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</Item4>
</BuildModes>
<PublishOptions>
<Version Value="2"/>

480
test/customdrawn/mainform.lfm
View File

@ -241,33 +241,33 @@ object Form1: TForm1
object pageCheckboxes: TPage
object CheckBox1: TCheckBox
Left = 20
Height = 18
Height = 17
Top = 29
Width = 60
Width = 49
Caption = 'Native'
TabOrder = 0
end
object CDCheckBox1: TCDCheckBox
Left = 119
Height = 19
Height = 16
Top = 29
Width = 93
Width = 73
DrawStyle = dsCommon
Caption = 'dsCommon'
end
object CDCheckBox2: TCDCheckBox
Left = 119
Height = 19
Height = 16
Top = 72
Width = 75
Width = 63
DrawStyle = dsWinCE
Caption = 'dsWinCE'
end
object CheckBox2: TCheckBox
Left = 20
Height = 18
Height = 17
Top = 55
Width = 99
Width = 80
AllowGrayed = True
Caption = 'Native+Gray'
Checked = True
@ -276,52 +276,52 @@ object Form1: TForm1
end
object CDCheckBox3: TCDCheckBox
Left = 119
Height = 19
Height = 16
Top = 48
Width = 132
Width = 104
AllowGrayed = True
DrawStyle = dsCommon
Caption = 'dsCommon+Gray'
end
object CDCheckBox4: TCDCheckBox
Left = 119
Height = 19
Height = 16
Top = 88
Width = 114
Width = 94
AllowGrayed = True
DrawStyle = dsWinCE
Caption = 'dsWinCE+Gray'
end
object CDCheckBox5: TCDCheckBox
Left = 119
Height = 19
Height = 16
Top = 117
Width = 74
Width = 62
DrawStyle = dsWinXP
Caption = 'dsWinXP'
end
object CDCheckBox6: TCDCheckBox
Left = 119
Height = 19
Height = 16
Top = 136
Width = 113
Width = 93
AllowGrayed = True
DrawStyle = dsWinXP
Caption = 'dsWinXP+Gray'
end
object CDCheckBox7: TCDCheckBox
Left = 119
Height = 19
Height = 16
Top = 160
Width = 86
Width = 69
DrawStyle = dsAndroid
Caption = 'dsAndroid'
end
object CDCheckBox8: TCDCheckBox
Left = 119
Height = 19
Height = 16
Top = 184
Width = 125
Width = 100
AllowGrayed = True
DrawStyle = dsAndroid
Caption = 'dsAndroid+Gray'
@ -411,25 +411,25 @@ object Form1: TForm1
TabOrder = 2
object CDRadioButton4: TCDRadioButton
Left = 9
Height = 18
Height = 16
Top = 0
Width = 103
Width = 100
Caption = 'CDRadioButton4'
DrawStyle = dsAndroid
end
object CDRadioButton5: TCDRadioButton
Left = 9
Height = 18
Height = 16
Top = 24
Width = 103
Width = 100
Caption = 'CDRadioButton5'
DrawStyle = dsAndroid
end
object CDRadioButton6: TCDRadioButton
Left = 9
Height = 18
Height = 16
Top = 48
Width = 103
Width = 100
Caption = 'CDRadioButton6'
Checked = True
DrawStyle = dsAndroid
@ -765,7 +765,7 @@ object Form1: TForm1
Left = 144
Height = 48
Top = 16
Width = 136
Width = 120
Caption = 'dsCommon'
DrawStyle = dsDefault
Glyph.Data = {
@ -903,6 +903,432 @@ object Form1: TForm1
TabOrder = 1
TabStop = True
end
object buttonGlyphWinCE: TCDButton
Left = 144
Height = 48
Top = 72
Width = 120
Caption = 'dsCommon'
DrawStyle = dsWinCE
Glyph.Data = {
36100000424D3610000000000000360000002800000020000000200000000100
2000000000000010000064000000640000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000243434313464646165555
5503000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00004040400C4541414744444285444443B548433FCD4C413BD54A423DD44643
40CC454544B94444439144444453464646160000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000004949490E4545
426F4C413BD065452DEB784B28F6835229FA8B572AFB955F2CFC915C2BFC8856
2AFA805128F9724929F45C4432E346423FCF434343864444441E000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000004545454E4D4139CE6F46
29F5935D2DFCBB7D34FFD39639FFE0A73BFFE6AE3DFFEAB33EFFE9B23EFFE4AB
3DFFDDA33CFFCD8F38FFAF7232FF83522AFA65432CEE46423FCD4343436F5555
5503000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000404040044745417C64422BEF8E5B2EFCC689
3CFFE3AC43FFECB745FFF2BE46FFF6C347FFF8C647FFF9C748FFF9C648FFF7C4
47FFF5C147FFF0BC46FFEAB444FFDCA341FFB77938FF7D4F2AFA574134E14343
43983C3C3C110000000000000000000000000000000000000000000000000000
000000000000000000000000000147403D946C442AF5AF7538FEDDA649FFEAB6
4DFFF2C150FFF3C24FFFF4C34FFFF4C350FFF4C350FFF4C350FFF4C350FFF4C3
50FFF4C350FFF3C24FFFF3C24FFFF0BE4FFFE6B34CFFD49B46FF945E31FC6041
2EEA434343AB4040400C00000000000000000000000000000000000000000000
0000000000000000000046413E766D4229F7BD8241FFE0AC50FFECBB55FFEEBD
57FFEEBE56FFEEBE56FFEEBE56FF665125FF110E06FF110D06FF100D06FF2C23
10FF9B7C38FFEEBE56FFEEBE56FFEEBD56FFEEBD57FFE9B855FFD9A34DFFA46C
38FE5F3E2BEE4444449380808002000000000000000000000000000000000000
0000000000004644443D653F2AF3B77D42FFDFAB57FFE8B75BFFE8B75CFFE8B7
5CFFE8B75CFFE8B75CFF3E3119FF010100FF000000FF000000FF000000FF0000
00FF010101FF050402FF161109FF70582CFFDAAB56FFE8B75CFFE6B65BFFD9A4
54FF986137FC563D31E444444462000000000000000000000000000000000000
0000808080025A3C2DD7A36B3DFED9A65BFFE2B260FFE2B361FFE2B361FFE2B3
61FFE2B361FFE2B361FF050402FF000000FF000000FF000000FF000000FF0000
00FF000000FF000000FF000000FF000000FF030301FF2C2313FFE2B361FFE1B1
5FFFD09A54FF814F31FB483F3BCD404040140000000000000000000000000000
00004A403C5B76462CF9CE9959FFDCAC62FFDCAC63FFDCAC63FFDCAC63FFDCAC
63FFDCAC63FFCDA05DFF040302FF000000FF000000FF000000FF000000FF0000
00FF000000FF000000FF000000FF000000FF000000FF010000FF2E2415FFDCAC
63FFDAAA61FFBE844EFF633D29F24343437A0000000000000000000000000000
00005C3928DAB17647FFD5A463FFD6A665FFD6A665FFD6A665FFD6A665FFD6A6
65FFD6A665FFD6A665FF765C38FF020201FF000000FF000000FF000000FF0000
00FF000000FF000000FF000000FF000000FF000000FF000000FF0B0905FFD6A6
65FFD6A665FFD19F61FF8B5936FC4B3E37CE3333330500000000000000003F3B
39136D412BF7C9945EFFD19F65FFD19F65FFD19F65FF926F46FF120E09FF1510
0AFF4F3C26FFD19F65FFD19F65FF241B11FF000000FF000000FF000000FF0000
00FF000000FF000000FF000000FF000000FF000000FF000000FF0B0805FFD19F
65FFD19F65FFD09E65FFB98051FF5E3929F04242423600000000000000005038
2D71905A3AFCC99664FFCA9764FFCA9764FF75573AFF020101FF000000FF0000
00FF010000FF2D2116FFCA9764FF5A432DFF000000FF000000FF000000FF0000
00FF000000FF000000FF000000FF000000FF010100FF050403FF674D33FFCA97
64FFCA9764FFCA9764FFC59160FF6C402AF84343426F00000000000000005E37
24C2AB704BFFC28C61FFC28C61FFC28C61FF060403FF000000FF000000FF0000
00FF000000FF070504FFC28C61FF8B6545FF010101FF000000FF000000FF0000
00FF000000FF000000FF000000FF0D0906FF77563CFFC08A61FFC28C61FFC28C
61FFC28C61FFC28C61FFC18C61FF895437FC4B3D369E00000000000000006136
23DCB17551FFB9815BFFB9815BFF7F593EFF010100FF000000FF000000FF0000
00FF020101FF38271BFFB9815BFFB9815BFF2B1E15FF020101FF000000FF0000
00FF000000FF000000FF0D0906FFB37D59FFB9815BFFB9815BFFB9815BFFB981
5BFFB9815BFFB9815BFFB9815BFF985E3EFF503A31BE00000000000000006337
23E3AF7353FFB27857FFB27857FF2C1E15FF000000FF000000FF000000FF0504
03FF754F3AFFB27857FFB27857FFB27857FFB27857FF78503AFF281A13FF0A07
05FF0A0705FF1C130DFFA87253FFA36E4FFF19110CFF060403FF110B08FF6242
2FFFB27857FFB27857FFB27857FF9E6142FF56392CD200000000000000006637
22E3AD7354FFAF7457FFAF7457FF0F0A07FF0D0806FF050403FF2B1D15FFA970
55FFAF7457FFAF7457FFAF7457FFAF7457FFAF7457FFAF7457FFAF7457FFAF74
57FFAF7457FFAF7457FFAF7457FF110B08FF000000FF000000FF000000FF0202
01FF885A44FFAF7457FFAF7457FFA16447FF5B3828D300000000000000006536
22DAAB6E52FFAD7156FFAD7156FF885943FFAD7156FFAD7156FFAD7156FFAD71
56FFAD7156FF734B39FF754D3AFF9F674EFFAD7156FFAD7156FFAD7156FFAD71
56FFAD7156FFAD7156FFAD7156FF35221BFF000000FF000000FF000000FF0000
00FF482F24FFAD7156FFAD7156FF995E44FF59382ABC00000000000000006335
20CBAA6B51FFAE7359FFAE7359FFAE7359FFAE7359FFAE7359FFAE7359FFA46D
55FF0B0706FF010101FF010101FF050302FF7F5441FFAE7359FFAE7359FFAE73
59FFAE7359FFAE7359FFAE7359FF805541FF020101FF000000FF000000FF0000
00FF4A3126FFAE7359FFAE7359FF93583FFF53382C8C00000000000000006434
1E99A2674DFFB27B63FFB27B63FFB27B63FFB27B63FFB27B63FFB27B63FF412D
24FF000000FF000000FF000000FF000000FF140E0BFF785342FF060403FF0504
03FF120C0AFFAA755FFFB27B63FFB27B63FF090605FF000000FF000000FF0302
02FFA6735DFFB27B63FFB27B63FF835038FC5333243E00000000000000005B2F
1B3389543DF7B8866FFFB8866FFFB8866FFFB8866FFFB8866FFFB8866FFF0E0A
09FF000000FF000000FF000000FF010101FF5C4337FF0E0A08FF000000FF0000
00FF000000FF0E0A08FFB8866FFFB8866FFF785749FF020101FF000000FF120E
0BFFB8866FFFB8866FFFB7836CFF683A26F00000000000000000000000000000
00006E3C25DABD8C78FFBE8F7AFFBE8F7AFFBE8F7AFFBE8F7AFFBE8F7AFF2C21
1CFF000000FF000000FF000000FF090706FFBE8F7AFF090706FF000000FF0000
00FF000000FF050403FFBE8F7AFFBE8F7AFFBE8F7AFF9F7865FF000000FF8C6A
5AFFBE8F7AFFBE8F7AFFAF7963FF623622C10000000000000000000000000000
000064341E97A7735CFEC49A87FFC49A87FFC49A87FFC49A87FFC49A87FF7159
4EFF000000FF000000FF010101FF765D52FFC29885FF050404FF000000FF0000
00FF000000FF0A0807FFC49A87FFC49A87FFC49A87FFC49A87FF221B18FFC49A
87FFC49A87FFC49A87FF83523CF85E311C310000000000000000000000000000
00005B2F1B0E6F3E28E0C69D8CFFCAA392FFCAA392FFCAA392FFCAA392FFAA8A
7BFF000000FF080606FF1A1513FFCAA392FF8F7468FF010101FF000000FF0000
00FF020202FF8F7367FFCAA392FFCAA392FFCAA392FFCAA392FFBF9B8AFFCAA3
92FFCAA392FFB78772FF643520C1000000000000000000000000000000000000
00000000000064331E7B9C6A53F8D1AEA0FFD1AEA0FFD1AEA0FFD1AEA0FFD1AE
A0FF020202FFCDAC9EFFD1AEA0FFD1AEA0FFA98C81FF0B0909FF010100FF0403
03FF846F65FFD1AEA0FFD1AEA0FFD1AEA0FFD1AEA0FFD1AEA0FFD1AEA0FFD1AE
A0FFCDA798FF794733EB5B2F1B22000000000000000000000000000000000000
0000000000000000000064341EB5B38672FED7B9ADFFD7B9ADFFD7B9ADFFD7B9
ADFF6D5E58FFD7B9ADFFD7B9ADFFD7B9ADFFD7B9ADFF85736BFF000000FF9C86
7DFFD7B9ADFFD7B9ADFFD7B9ADFFD7B9ADFFD7B9ADFFD7B9ADFFD7B9ADFFD6B7
ACFF8F5E49F362331D6000000000000000000000000000000000000000000000
000000000000000000005B2F1B08663620CDBD9483FEDEC5BBFFDEC5BBFFDEC5
BBFFDEC5BBFFDEC5BBFFDEC5BBFFDEC5BBFFDEC5BBFF7F716BFF867771FFDEC5
BBFFDEC5BBFFDEC5BBFFDEC5BBFFDEC5BBFFDEC5BBFFDEC5BBFFDCC1B7FF9F6F
5BF764331E930000000000000000000000000000000000000000000000000000
00000000000000000000000000005B2F1B0F63331EC1B08471F8E4CEC7FFE4D0
C9FFE4D0C9FFE4D0C9FFE4D0C9FFE4D0C9FFE4D0C9FFE4D0C9FFE4D0C9FFE4D0
C9FFE4D0C9FFE4D0C9FFE4D0C9FFE4D0C9FFE4D0C9FFDDC4BAFF8D5D49ED6333
1D81000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000005B2F1B0263331D96875844E7D0B0
A4FFEBDBD7FFEBDBD7FFEBDBD7FFEBDBD7FFEBDBD7FFEBDBD7FFEBDBD7FFEBDB
D7FFEBDBD7FFEBDBD7FFEBDBD7FFE8D6D1FFBD9585FD71412BDC61321D4F0000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000005B2F1B226534
1EB990634FEBC39E90FEE6D1CBFFF2E7E5FFF2E7E5FFF2E7E5FFF2E7E5FFF2E7
E5FFF1E6E2FFDCC1B8FFB48D7CFB7A4B36E264331E8E5B2F1B0A000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00005B2F1B1C62331D7B67351EC6784832DA895D4AE59C7260EC976D5AEA8456
42E3713F29D566341EB65F311C575B2F1B0B0000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000005B2F1B055B2F1B1E5B2F1B165B2F
1B01000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000
}
TabOrder = 2
TabStop = True
end
object buttonGlyphWinXP: TCDButton
Left = 144
Height = 48
Top = 128
Width = 120
Caption = 'dsWinXP'
DrawStyle = dsWinXP
Glyph.Data = {
36100000424D3610000000000000360000002800000020000000200000000100
2000000000000010000064000000640000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000243434313464646165555
5503000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00004040400C4541414744444285444443B548433FCD4C413BD54A423DD44643
40CC454544B94444439144444453464646160000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000004949490E4545
426F4C413BD065452DEB784B28F6835229FA8B572AFB955F2CFC915C2BFC8856
2AFA805128F9724929F45C4432E346423FCF434343864444441E000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000004545454E4D4139CE6F46
29F5935D2DFCBB7D34FFD39639FFE0A73BFFE6AE3DFFEAB33EFFE9B23EFFE4AB
3DFFDDA33CFFCD8F38FFAF7232FF83522AFA65432CEE46423FCD4343436F5555
5503000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000404040044745417C64422BEF8E5B2EFCC689
3CFFE3AC43FFECB745FFF2BE46FFF6C347FFF8C647FFF9C748FFF9C648FFF7C4
47FFF5C147FFF0BC46FFEAB444FFDCA341FFB77938FF7D4F2AFA574134E14343
43983C3C3C110000000000000000000000000000000000000000000000000000
000000000000000000000000000147403D946C442AF5AF7538FEDDA649FFEAB6
4DFFF2C150FFF3C24FFFF4C34FFFF4C350FFF4C350FFF4C350FFF4C350FFF4C3
50FFF4C350FFF3C24FFFF3C24FFFF0BE4FFFE6B34CFFD49B46FF945E31FC6041
2EEA434343AB4040400C00000000000000000000000000000000000000000000
0000000000000000000046413E766D4229F7BD8241FFE0AC50FFECBB55FFEEBD
57FFEEBE56FFEEBE56FFEEBE56FF665125FF110E06FF110D06FF100D06FF2C23
10FF9B7C38FFEEBE56FFEEBE56FFEEBD56FFEEBD57FFE9B855FFD9A34DFFA46C
38FE5F3E2BEE4444449380808002000000000000000000000000000000000000
0000000000004644443D653F2AF3B77D42FFDFAB57FFE8B75BFFE8B75CFFE8B7
5CFFE8B75CFFE8B75CFF3E3119FF010100FF000000FF000000FF000000FF0000
00FF010101FF050402FF161109FF70582CFFDAAB56FFE8B75CFFE6B65BFFD9A4
54FF986137FC563D31E444444462000000000000000000000000000000000000
0000808080025A3C2DD7A36B3DFED9A65BFFE2B260FFE2B361FFE2B361FFE2B3
61FFE2B361FFE2B361FF050402FF000000FF000000FF000000FF000000FF0000
00FF000000FF000000FF000000FF000000FF030301FF2C2313FFE2B361FFE1B1
5FFFD09A54FF814F31FB483F3BCD404040140000000000000000000000000000
00004A403C5B76462CF9CE9959FFDCAC62FFDCAC63FFDCAC63FFDCAC63FFDCAC
63FFDCAC63FFCDA05DFF040302FF000000FF000000FF000000FF000000FF0000
00FF000000FF000000FF000000FF000000FF000000FF010000FF2E2415FFDCAC
63FFDAAA61FFBE844EFF633D29F24343437A0000000000000000000000000000
00005C3928DAB17647FFD5A463FFD6A665FFD6A665FFD6A665FFD6A665FFD6A6
65FFD6A665FFD6A665FF765C38FF020201FF000000FF000000FF000000FF0000
00FF000000FF000000FF000000FF000000FF000000FF000000FF0B0905FFD6A6
65FFD6A665FFD19F61FF8B5936FC4B3E37CE3333330500000000000000003F3B
39136D412BF7C9945EFFD19F65FFD19F65FFD19F65FF926F46FF120E09FF1510
0AFF4F3C26FFD19F65FFD19F65FF241B11FF000000FF000000FF000000FF0000
00FF000000FF000000FF000000FF000000FF000000FF000000FF0B0805FFD19F
65FFD19F65FFD09E65FFB98051FF5E3929F04242423600000000000000005038
2D71905A3AFCC99664FFCA9764FFCA9764FF75573AFF020101FF000000FF0000
00FF010000FF2D2116FFCA9764FF5A432DFF000000FF000000FF000000FF0000
00FF000000FF000000FF000000FF000000FF010100FF050403FF674D33FFCA97
64FFCA9764FFCA9764FFC59160FF6C402AF84343426F00000000000000005E37
24C2AB704BFFC28C61FFC28C61FFC28C61FF060403FF000000FF000000FF0000
00FF000000FF070504FFC28C61FF8B6545FF010101FF000000FF000000FF0000
00FF000000FF000000FF000000FF0D0906FF77563CFFC08A61FFC28C61FFC28C
61FFC28C61FFC28C61FFC18C61FF895437FC4B3D369E00000000000000006136
23DCB17551FFB9815BFFB9815BFF7F593EFF010100FF000000FF000000FF0000
00FF020101FF38271BFFB9815BFFB9815BFF2B1E15FF020101FF000000FF0000
00FF000000FF000000FF0D0906FFB37D59FFB9815BFFB9815BFFB9815BFFB981
5BFFB9815BFFB9815BFFB9815BFF985E3EFF503A31BE00000000000000006337
23E3AF7353FFB27857FFB27857FF2C1E15FF000000FF000000FF000000FF0504
03FF754F3AFFB27857FFB27857FFB27857FFB27857FF78503AFF281A13FF0A07
05FF0A0705FF1C130DFFA87253FFA36E4FFF19110CFF060403FF110B08FF6242
2FFFB27857FFB27857FFB27857FF9E6142FF56392CD200000000000000006637
22E3AD7354FFAF7457FFAF7457FF0F0A07FF0D0806FF050403FF2B1D15FFA970
55FFAF7457FFAF7457FFAF7457FFAF7457FFAF7457FFAF7457FFAF7457FFAF74
57FFAF7457FFAF7457FFAF7457FF110B08FF000000FF000000FF000000FF0202
01FF885A44FFAF7457FFAF7457FFA16447FF5B3828D300000000000000006536
22DAAB6E52FFAD7156FFAD7156FF885943FFAD7156FFAD7156FFAD7156FFAD71
56FFAD7156FF734B39FF754D3AFF9F674EFFAD7156FFAD7156FFAD7156FFAD71
56FFAD7156FFAD7156FFAD7156FF35221BFF000000FF000000FF000000FF0000
00FF482F24FFAD7156FFAD7156FF995E44FF59382ABC00000000000000006335
20CBAA6B51FFAE7359FFAE7359FFAE7359FFAE7359FFAE7359FFAE7359FFA46D
55FF0B0706FF010101FF010101FF050302FF7F5441FFAE7359FFAE7359FFAE73
59FFAE7359FFAE7359FFAE7359FF805541FF020101FF000000FF000000FF0000
00FF4A3126FFAE7359FFAE7359FF93583FFF53382C8C00000000000000006434
1E99A2674DFFB27B63FFB27B63FFB27B63FFB27B63FFB27B63FFB27B63FF412D
24FF000000FF000000FF000000FF000000FF140E0BFF785342FF060403FF0504
03FF120C0AFFAA755FFFB27B63FFB27B63FF090605FF000000FF000000FF0302
02FFA6735DFFB27B63FFB27B63FF835038FC5333243E00000000000000005B2F
1B3389543DF7B8866FFFB8866FFFB8866FFFB8866FFFB8866FFFB8866FFF0E0A
09FF000000FF000000FF000000FF010101FF5C4337FF0E0A08FF000000FF0000
00FF000000FF0E0A08FFB8866FFFB8866FFF785749FF020101FF000000FF120E
0BFFB8866FFFB8866FFFB7836CFF683A26F00000000000000000000000000000
00006E3C25DABD8C78FFBE8F7AFFBE8F7AFFBE8F7AFFBE8F7AFFBE8F7AFF2C21
1CFF000000FF000000FF000000FF090706FFBE8F7AFF090706FF000000FF0000
00FF000000FF050403FFBE8F7AFFBE8F7AFFBE8F7AFF9F7865FF000000FF8C6A
5AFFBE8F7AFFBE8F7AFFAF7963FF623622C10000000000000000000000000000
000064341E97A7735CFEC49A87FFC49A87FFC49A87FFC49A87FFC49A87FF7159
4EFF000000FF000000FF010101FF765D52FFC29885FF050404FF000000FF0000
00FF000000FF0A0807FFC49A87FFC49A87FFC49A87FFC49A87FF221B18FFC49A
87FFC49A87FFC49A87FF83523CF85E311C310000000000000000000000000000
00005B2F1B0E6F3E28E0C69D8CFFCAA392FFCAA392FFCAA392FFCAA392FFAA8A
7BFF000000FF080606FF1A1513FFCAA392FF8F7468FF010101FF000000FF0000
00FF020202FF8F7367FFCAA392FFCAA392FFCAA392FFCAA392FFBF9B8AFFCAA3
92FFCAA392FFB78772FF643520C1000000000000000000000000000000000000
00000000000064331E7B9C6A53F8D1AEA0FFD1AEA0FFD1AEA0FFD1AEA0FFD1AE
A0FF020202FFCDAC9EFFD1AEA0FFD1AEA0FFA98C81FF0B0909FF010100FF0403
03FF846F65FFD1AEA0FFD1AEA0FFD1AEA0FFD1AEA0FFD1AEA0FFD1AEA0FFD1AE
A0FFCDA798FF794733EB5B2F1B22000000000000000000000000000000000000
0000000000000000000064341EB5B38672FED7B9ADFFD7B9ADFFD7B9ADFFD7B9
ADFF6D5E58FFD7B9ADFFD7B9ADFFD7B9ADFFD7B9ADFF85736BFF000000FF9C86
7DFFD7B9ADFFD7B9ADFFD7B9ADFFD7B9ADFFD7B9ADFFD7B9ADFFD7B9ADFFD6B7
ACFF8F5E49F362331D6000000000000000000000000000000000000000000000
000000000000000000005B2F1B08663620CDBD9483FEDEC5BBFFDEC5BBFFDEC5
BBFFDEC5BBFFDEC5BBFFDEC5BBFFDEC5BBFFDEC5BBFF7F716BFF867771FFDEC5
BBFFDEC5BBFFDEC5BBFFDEC5BBFFDEC5BBFFDEC5BBFFDEC5BBFFDCC1B7FF9F6F
5BF764331E930000000000000000000000000000000000000000000000000000
00000000000000000000000000005B2F1B0F63331EC1B08471F8E4CEC7FFE4D0
C9FFE4D0C9FFE4D0C9FFE4D0C9FFE4D0C9FFE4D0C9FFE4D0C9FFE4D0C9FFE4D0
C9FFE4D0C9FFE4D0C9FFE4D0C9FFE4D0C9FFE4D0C9FFDDC4BAFF8D5D49ED6333
1D81000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000005B2F1B0263331D96875844E7D0B0
A4FFEBDBD7FFEBDBD7FFEBDBD7FFEBDBD7FFEBDBD7FFEBDBD7FFEBDBD7FFEBDB
D7FFEBDBD7FFEBDBD7FFEBDBD7FFE8D6D1FFBD9585FD71412BDC61321D4F0000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000005B2F1B226534
1EB990634FEBC39E90FEE6D1CBFFF2E7E5FFF2E7E5FFF2E7E5FFF2E7E5FFF2E7
E5FFF1E6E2FFDCC1B8FFB48D7CFB7A4B36E264331E8E5B2F1B0A000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00005B2F1B1C62331D7B67351EC6784832DA895D4AE59C7260EC976D5AEA8456
42E3713F29D566341EB65F311C575B2F1B0B0000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000005B2F1B055B2F1B1E5B2F1B165B2F
1B01000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000
}
TabOrder = 3
TabStop = True
end
object buttonGlyphAndroid: TCDButton
Left = 144
Height = 48
Top = 184
Width = 120
Caption = 'dsAndroid'
DrawStyle = dsAndroid
Glyph.Data = {
36100000424D3610000000000000360000002800000020000000200000000100
2000000000000010000064000000640000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000243434313464646165555
5503000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00004040400C4541414744444285444443B548433FCD4C413BD54A423DD44643
40CC454544B94444439144444453464646160000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000004949490E4545
426F4C413BD065452DEB784B28F6835229FA8B572AFB955F2CFC915C2BFC8856
2AFA805128F9724929F45C4432E346423FCF434343864444441E000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000004545454E4D4139CE6F46
29F5935D2DFCBB7D34FFD39639FFE0A73BFFE6AE3DFFEAB33EFFE9B23EFFE4AB
3DFFDDA33CFFCD8F38FFAF7232FF83522AFA65432CEE46423FCD4343436F5555
5503000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000404040044745417C64422BEF8E5B2EFCC689
3CFFE3AC43FFECB745FFF2BE46FFF6C347FFF8C647FFF9C748FFF9C648FFF7C4
47FFF5C147FFF0BC46FFEAB444FFDCA341FFB77938FF7D4F2AFA574134E14343
43983C3C3C110000000000000000000000000000000000000000000000000000
000000000000000000000000000147403D946C442AF5AF7538FEDDA649FFEAB6
4DFFF2C150FFF3C24FFFF4C34FFFF4C350FFF4C350FFF4C350FFF4C350FFF4C3
50FFF4C350FFF3C24FFFF3C24FFFF0BE4FFFE6B34CFFD49B46FF945E31FC6041
2EEA434343AB4040400C00000000000000000000000000000000000000000000
0000000000000000000046413E766D4229F7BD8241FFE0AC50FFECBB55FFEEBD
57FFEEBE56FFEEBE56FFEEBE56FF665125FF110E06FF110D06FF100D06FF2C23
10FF9B7C38FFEEBE56FFEEBE56FFEEBD56FFEEBD57FFE9B855FFD9A34DFFA46C
38FE5F3E2BEE4444449380808002000000000000000000000000000000000000
0000000000004644443D653F2AF3B77D42FFDFAB57FFE8B75BFFE8B75CFFE8B7
5CFFE8B75CFFE8B75CFF3E3119FF010100FF000000FF000000FF000000FF0000
00FF010101FF050402FF161109FF70582CFFDAAB56FFE8B75CFFE6B65BFFD9A4
54FF986137FC563D31E444444462000000000000000000000000000000000000
0000808080025A3C2DD7A36B3DFED9A65BFFE2B260FFE2B361FFE2B361FFE2B3
61FFE2B361FFE2B361FF050402FF000000FF000000FF000000FF000000FF0000
00FF000000FF000000FF000000FF000000FF030301FF2C2313FFE2B361FFE1B1
5FFFD09A54FF814F31FB483F3BCD404040140000000000000000000000000000
00004A403C5B76462CF9CE9959FFDCAC62FFDCAC63FFDCAC63FFDCAC63FFDCAC
63FFDCAC63FFCDA05DFF040302FF000000FF000000FF000000FF000000FF0000
00FF000000FF000000FF000000FF000000FF000000FF010000FF2E2415FFDCAC
63FFDAAA61FFBE844EFF633D29F24343437A0000000000000000000000000000
00005C3928DAB17647FFD5A463FFD6A665FFD6A665FFD6A665FFD6A665FFD6A6
65FFD6A665FFD6A665FF765C38FF020201FF000000FF000000FF000000FF0000
00FF000000FF000000FF000000FF000000FF000000FF000000FF0B0905FFD6A6
65FFD6A665FFD19F61FF8B5936FC4B3E37CE3333330500000000000000003F3B
39136D412BF7C9945EFFD19F65FFD19F65FFD19F65FF926F46FF120E09FF1510
0AFF4F3C26FFD19F65FFD19F65FF241B11FF000000FF000000FF000000FF0000
00FF000000FF000000FF000000FF000000FF000000FF000000FF0B0805FFD19F
65FFD19F65FFD09E65FFB98051FF5E3929F04242423600000000000000005038
2D71905A3AFCC99664FFCA9764FFCA9764FF75573AFF020101FF000000FF0000
00FF010000FF2D2116FFCA9764FF5A432DFF000000FF000000FF000000FF0000
00FF000000FF000000FF000000FF000000FF010100FF050403FF674D33FFCA97
64FFCA9764FFCA9764FFC59160FF6C402AF84343426F00000000000000005E37
24C2AB704BFFC28C61FFC28C61FFC28C61FF060403FF000000FF000000FF0000
00FF000000FF070504FFC28C61FF8B6545FF010101FF000000FF000000FF0000
00FF000000FF000000FF000000FF0D0906FF77563CFFC08A61FFC28C61FFC28C
61FFC28C61FFC28C61FFC18C61FF895437FC4B3D369E00000000000000006136
23DCB17551FFB9815BFFB9815BFF7F593EFF010100FF000000FF000000FF0000
00FF020101FF38271BFFB9815BFFB9815BFF2B1E15FF020101FF000000FF0000
00FF000000FF000000FF0D0906FFB37D59FFB9815BFFB9815BFFB9815BFFB981
5BFFB9815BFFB9815BFFB9815BFF985E3EFF503A31BE00000000000000006337
23E3AF7353FFB27857FFB27857FF2C1E15FF000000FF000000FF000000FF0504
03FF754F3AFFB27857FFB27857FFB27857FFB27857FF78503AFF281A13FF0A07
05FF0A0705FF1C130DFFA87253FFA36E4FFF19110CFF060403FF110B08FF6242
2FFFB27857FFB27857FFB27857FF9E6142FF56392CD200000000000000006637
22E3AD7354FFAF7457FFAF7457FF0F0A07FF0D0806FF050403FF2B1D15FFA970
55FFAF7457FFAF7457FFAF7457FFAF7457FFAF7457FFAF7457FFAF7457FFAF74
57FFAF7457FFAF7457FFAF7457FF110B08FF000000FF000000FF000000FF0202
01FF885A44FFAF7457FFAF7457FFA16447FF5B3828D300000000000000006536
22DAAB6E52FFAD7156FFAD7156FF885943FFAD7156FFAD7156FFAD7156FFAD71
56FFAD7156FF734B39FF754D3AFF9F674EFFAD7156FFAD7156FFAD7156FFAD71
56FFAD7156FFAD7156FFAD7156FF35221BFF000000FF000000FF000000FF0000
00FF482F24FFAD7156FFAD7156FF995E44FF59382ABC00000000000000006335
20CBAA6B51FFAE7359FFAE7359FFAE7359FFAE7359FFAE7359FFAE7359FFA46D
55FF0B0706FF010101FF010101FF050302FF7F5441FFAE7359FFAE7359FFAE73
59FFAE7359FFAE7359FFAE7359FF805541FF020101FF000000FF000000FF0000
00FF4A3126FFAE7359FFAE7359FF93583FFF53382C8C00000000000000006434
1E99A2674DFFB27B63FFB27B63FFB27B63FFB27B63FFB27B63FFB27B63FF412D
24FF000000FF000000FF000000FF000000FF140E0BFF785342FF060403FF0504
03FF120C0AFFAA755FFFB27B63FFB27B63FF090605FF000000FF000000FF0302
02FFA6735DFFB27B63FFB27B63FF835038FC5333243E00000000000000005B2F
1B3389543DF7B8866FFFB8866FFFB8866FFFB8866FFFB8866FFFB8866FFF0E0A
09FF000000FF000000FF000000FF010101FF5C4337FF0E0A08FF000000FF0000
00FF000000FF0E0A08FFB8866FFFB8866FFF785749FF020101FF000000FF120E
0BFFB8866FFFB8866FFFB7836CFF683A26F00000000000000000000000000000
00006E3C25DABD8C78FFBE8F7AFFBE8F7AFFBE8F7AFFBE8F7AFFBE8F7AFF2C21
1CFF000000FF000000FF000000FF090706FFBE8F7AFF090706FF000000FF0000
00FF000000FF050403FFBE8F7AFFBE8F7AFFBE8F7AFF9F7865FF000000FF8C6A
5AFFBE8F7AFFBE8F7AFFAF7963FF623622C10000000000000000000000000000
000064341E97A7735CFEC49A87FFC49A87FFC49A87FFC49A87FFC49A87FF7159
4EFF000000FF000000FF010101FF765D52FFC29885FF050404FF000000FF0000
00FF000000FF0A0807FFC49A87FFC49A87FFC49A87FFC49A87FF221B18FFC49A
87FFC49A87FFC49A87FF83523CF85E311C310000000000000000000000000000
00005B2F1B0E6F3E28E0C69D8CFFCAA392FFCAA392FFCAA392FFCAA392FFAA8A
7BFF000000FF080606FF1A1513FFCAA392FF8F7468FF010101FF000000FF0000
00FF020202FF8F7367FFCAA392FFCAA392FFCAA392FFCAA392FFBF9B8AFFCAA3
92FFCAA392FFB78772FF643520C1000000000000000000000000000000000000
00000000000064331E7B9C6A53F8D1AEA0FFD1AEA0FFD1AEA0FFD1AEA0FFD1AE
A0FF020202FFCDAC9EFFD1AEA0FFD1AEA0FFA98C81FF0B0909FF010100FF0403
03FF846F65FFD1AEA0FFD1AEA0FFD1AEA0FFD1AEA0FFD1AEA0FFD1AEA0FFD1AE
A0FFCDA798FF794733EB5B2F1B22000000000000000000000000000000000000
0000000000000000000064341EB5B38672FED7B9ADFFD7B9ADFFD7B9ADFFD7B9
ADFF6D5E58FFD7B9ADFFD7B9ADFFD7B9ADFFD7B9ADFF85736BFF000000FF9C86
7DFFD7B9ADFFD7B9ADFFD7B9ADFFD7B9ADFFD7B9ADFFD7B9ADFFD7B9ADFFD6B7
ACFF8F5E49F362331D6000000000000000000000000000000000000000000000
000000000000000000005B2F1B08663620CDBD9483FEDEC5BBFFDEC5BBFFDEC5
BBFFDEC5BBFFDEC5BBFFDEC5BBFFDEC5BBFFDEC5BBFF7F716BFF867771FFDEC5
BBFFDEC5BBFFDEC5BBFFDEC5BBFFDEC5BBFFDEC5BBFFDEC5BBFFDCC1B7FF9F6F
5BF764331E930000000000000000000000000000000000000000000000000000
00000000000000000000000000005B2F1B0F63331EC1B08471F8E4CEC7FFE4D0
C9FFE4D0C9FFE4D0C9FFE4D0C9FFE4D0C9FFE4D0C9FFE4D0C9FFE4D0C9FFE4D0
C9FFE4D0C9FFE4D0C9FFE4D0C9FFE4D0C9FFE4D0C9FFDDC4BAFF8D5D49ED6333
1D81000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000005B2F1B0263331D96875844E7D0B0
A4FFEBDBD7FFEBDBD7FFEBDBD7FFEBDBD7FFEBDBD7FFEBDBD7FFEBDBD7FFEBDB
D7FFEBDBD7FFEBDBD7FFEBDBD7FFE8D6D1FFBD9585FD71412BDC61321D4F0000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000005B2F1B226534
1EB990634FEBC39E90FEE6D1CBFFF2E7E5FFF2E7E5FFF2E7E5FFF2E7E5FFF2E7
E5FFF1E6E2FFDCC1B8FFB48D7CFB7A4B36E264331E8E5B2F1B0A000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00005B2F1B1C62331D7B67351EC6784832DA895D4AE59C7260EC976D5AEA8456
42E3713F29D566341EB65F311C575B2F1B0B0000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000005B2F1B055B2F1B1E5B2F1B165B2F
1B01000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000
}
TabOrder = 4
TabStop = True
end
end
object pageStaticTexts: TPage
object StaticText6: TStaticText

3
test/customdrawn/mainform.pas
View File

@ -18,12 +18,15 @@ type
Button2: TButton;
Button3: TButton;
CDButton1: TCDButton;
buttonGlyphAndroid: TCDButton;
CDButton2: TCDButton;
CDButton3: TCDButton;
CDButton4: TCDButton;
CDButton5: TCDButton;
CDButton6: TCDButton;
CDButton7: TCDButton;
buttonGlyphWinCE: TCDButton;
buttonGlyphWinXP: TCDButton;
CDCheckBox1: TCDCheckBox;
CDCheckBox2: TCDCheckBox;
CDCheckBox3: TCDCheckBox;