Skip to content

P
puzzle-editor
Commit c1825019 authored by rarnu's avatar rarnu
Browse files
Options

add: 增加自动缩放

parent 2341542c
Hide whitespace changes
Inline Side-by-side
Showing with 373 additions and 326 deletions
PuzzleEditor.lpr
View file @ c1825019
......@@ -32,6 +32,7 @@ var
procedure TExceptionHandler.OnError(Sender: TObject; E: Exception);
begin
// do nothing
end;
var
......
frmcardlist.pas
View file @ c1825019
......@@ -63,7 +63,7 @@ begin
item := TCardListItemOp.Create(lstCards);
item.CardName:= c.CardName;
item.Id:= cid;
item.Card := c;
item.SetCardForFree(c, True);
item.ShowFace := False;
item.Index:= lstCards.Count - 1;
item.OnDelete:= deleteCardItem;
......@@ -128,7 +128,7 @@ begin
item:= TCardListItemOp.Create(lstCards);
item.CardName:= c.CardName;
item.Id:= c.CardId;
item.Card := c;
item.SetCardForFree(c, True);
item.ShowFace:= False;
item.Index:= lstCards.Count - 1;
item.OnDelete:= deleteCardItem;
......@@ -154,7 +154,7 @@ begin
item.CardName:= c.CardName;
item.Id:= FCardList[i];
item.ShowFace := False;
item.Card := c;
item.SetCardForFree(c, True);
item.Index:= i;
item.OnDelete:= deleteCardItem;
item.OnCardAddOneClicked:= addOneCardItem;
......
frmhome.lfm
View file @ c1825019
......@@ -2,22 +2,23 @@ object FormHome: TFormHome
Left = 655
Height = 880
Top = 44
Width = 1340
Width = 1330
Caption = 'Puzzle Editor'
ClientHeight = 880
ClientWidth = 1340
ClientWidth = 1330
Constraints.MinHeight = 880
Constraints.MinWidth = 1330
Font.Height = -12
OnCreate = FormCreate
OnDestroy = FormDestroy
OnResize = FormResize
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '3.6.0.0'
object Scene: TD2Scene
Left = 0
Height = 880
Top = 0
Width = 1340
Width = 1330
Align = alClient
Style = Res
DesignSnapGridShow = False
......@@ -25,11 +26,11 @@ object FormHome: TFormHome
DesignSnapToLines = True
object Root: TD2Background
Align = vaClient
Width = 1340
Width = 1330
Height = 880
HitTest = False
object tbMain: TD2ToolBar
Width = 1340
Width = 1330
Height = 64
TabOrder = 0
object btnNew: TD2ToolButton
......@@ -46,68 +47,68 @@ object FormHome: TFormHome
Bitmap.PNG = {
89504E470D0A1A0A0000000D49484452000000500000005008060000008E11F2
AD000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
00097048597300000EC300000EC301C76FA8640000078649444154785EED9C79
681D4518C0E37DA1785FE081A0A0285E78212A0A22FEA115254AF1A83634EFED
BEC45A0415AF502C2AA828DE4A44E28120D5AA20DECD1F4DF77889AD473D88C5
60314D76775E9AB65614B5CFEFDBCD93F77666DFEEECCEEE9B351BD83F92ECCC
7CF39B6F66BEEF9B6FB6ABABF82908E4824049B74F544D47510D32D0C947A93A
6A57BDBE4B2EA0A190DD1BEA7B02B0E754CDDAA99AA42EC3A318E4F9DC40544C
FB1919A0F965C8054475EDCC7125CDFA4746802893F41041C85B6585D7904B6A
888A4E9632A64E8F6A5A6764F1940DFB22C6008EC17A3CDBFC776921320156ED
4BB2DA0197AEDF72A01F60D9705E2D8D927373015156803880B9802833C05C40
941DA0F410F300506A887901282DC43C01941262DE004A07318F00A582985780
D240CC33402920E61D60C721FE1F00761462A701F68E4DEE9B6638ADA46F393E
D5C048A701BADAA3D91BD282382F00AA8673730130E13C510CE7A1340EB5E685
0636D8C371E63970ACFA1468E3AA380F44AD37FA35795E014CA8C45D8AE93C59
004C40B10098001E162D00160013124858BCD0C08400CB06395F31C96B25936C
6F6C26C52E1C03EA9D5F4DEDA79AF612306B7E2800C600D8283250AFEF3A305C
DF3D4115E14565F085C3A5F452F0CA6BA70E478DBA5D9F3E027F8F522EF57764
04889AD3375ABB10BC92E5907AF729E4E8FCCA72F360AD9B540DFB3374031548
47E97EBBBE5BEAC0FC0DC80470C9A87D14041656B86062247AC206320D89A28F
2AD5DA3199819401A0B266F62000F70480FB3D0E38AA8C66FD097F7BB6776CDB
A1A983EC344008205C55D2C89410707EADD51C47356BD7A70AB1530071BD42AD
0B050779DBA0993FC17BEFC3F3121ACB30555F747FD7C98F91426090FFDD3B56
DF2315909D00E826B57B212B7642BB97ECFE45D9248BFAD76D3EAC5DC72BE6D6
43408B6F02BBEF93763015DDF9188F0F8443CC1A20DA6573DAC48407DAF52166
C6C6E928F4E5E4760353D6C9E7C2CD9FAC01CE4D3F063C6B46316BDD71C0F9CB
C0D2B04075D73F9686DB4322DAF8AF8E2C01069E7DC05AA654A74F10D9B1DEB1
996355DDFE960511ECC65E616D6505106DBC92696DA53B647D17B6CEC5ED2CD6
5B369D6F683387EC10E62367051076CC3719DA60A1A6C40514A51CACA747BA9E
0C3D9D5745291FFA4E1600FB0CEB746A87849DB662D6AE0815B0E985B2EE5C0D
1196C72B3AB98EA71CECD017332F13E9E43C9E7A98EF6601106374B406F02DE6
50477FEBBD11E72E9ECEC30C788192C1B0DFE1A9A32300D14D2B19E48F16E1C1
D5E2F55755C3325B0158DFF3741E2339658DFCD65C07ACC97FE114E7A9877A37
6D0D0481A9AB6478918657E8924ED6B702742678EB706FA4FAD642F76A6D929F
B401C2D47BCB2F345EEFE295590440305FCEA6A731F980579696F7D30648EF80
562D4EDC4E0440EC384B1E6901F668B3078B1A715100593382773DCE4C032B9A
7D1663F77DB8DD8863F80922D183B84E363FA039B5D60D806CA7DF7106A1EC8D
EDEB27F7FB65C2E8776C2D4C730AA39DC7B368A38B151ADE8A10A9AE18E48E20
20D0DFDBE859E12C9012A0EBD4FB3A8C21AAC0CEB9E71F22BED960EB816D18CE
35D4A01AE4162901A2E7C010B62748589CBA420082DB18D886612FA4644A1205
4A730A7B276BAD1A05CEFDDDC100C16FA50C663E8D040DFF12BF0311ACE5AD1E
0DCAC7EB5266B68960888A1E6DE795B0E9B278C4D91F6FB2373F545445B77EF1
BFD36F9003C2EA8665E5696A50ABB553C3CA05FE3F4D0D447B8F3A6983185D1C
614599311058D0FDEEDCA2E189BDE3C8E496491320D60F9AB3C6E707EFAC8C38
47F30A2C02A067975A7FB7C8639075BCB26436853DCBDF59CE30A697F10A2D02
204CDF1263937A8C57964C0196ABF6998C9D78236FD28F1F2068F6CF5C1D876F
71B1A2D3898CE82CA6F09C167E4D410483960780DF0583DDF63D9EF29E87D3BA
A3E37973E2EF73A5BD06BA836410F8904FABF098C78267BA5121B8793326598D
313C5C5779FC57DC9D2122BE89B194F4456DBF23BB70A35137350DA61CAD85F6
BB893520020118C03718DA37B94CDBB44F84E2ED5FC942035D2DAC926B595E06
A6A625EE449B0A40D3EF63B60BD90C42DACD0AA0BB16C2194480ABF68090CEF8
2A010BE01E567B10C5F94898E66709D0B3C39C0936447B08739B458044C31812
CE5F66B5E3E51E263C076916324B80D86E45AB9DE6FFA8585347C7E1C8F2F224
1031531593CB9983A4911D18D64F523F55366B802800EBA362CD1D86756B18F3
06A3DA8AE83296ABB52B31032B309AE3C1BB54283C7771677D3FB05ABB01531F
443C419111375AAD91CD6DC35798206490D761CDAAC073191C8F9E8232611616
C2805CC132F8B6435087151206B320E272817078DEC24E160B89C1B50B841AE4
5E96F05EDA05599D66FB007A84C766E4865C31ED93226579268914431A076A0B
4B38CCC8C7B35980392314247C011343FB714E00B921B2532FF80299A19D4788
46703AC65CA2F90AFFE15168BD545EB4350B9BC823992498374863EA2B68C84A
6E616369A533D83F3EBE57D028A30902F6E242D766F47D47B58D7CDBD037C613
3951A610B7166201F7B29E411EF412B9D37B30D1328A806E4016360ECC5C45ED
45CD726F64E25D10FC1D363B348B3299A651042EDE290814046424F02F25BD61
4DB90B33C00000000049454E44AE426082
00097048597300000EC300000EC301C76FA8640000078949444154785EED9C69
88E4441480C7FB42F1BEC003414151BCF042541444FCA12BCA288BC7EA0E7D24
3DE3BA082A5EC3E2A2828AE2AD8CC8782088BA2A88F7CE8FEDE9243DE3AEC77A
302E0E2ECEF624A99EBD5C513CDAF79269E924954E2AA9A42B4E06F263665255
AFBE7A55F5DEAB57E9EBCB7F7202992050528CE365CD9464950CF7F291EAA6DC
D76AED9409682864FFFAD6EE00EC19B9DAF847D6484B844752C9B399812869C6
53224073CB900988F2F8DC31856AE36F1101A24CC24304216F16155E5B2EA121
4A0A5946993A03B2A69F96C653568D0B28033809EBF196CEBF0B0B910AB06E5C
94D60EB86CDDE6FDDD00CBAAF97269829C9D0988A202C401CC044491016602A2
E80085879805804243CC0A4061216609A09010B30650388859042814C4AC0214
066296010A0131EB007B0EF1FF00B0A7107B0DB03839B37792E1B492B2F9D844
0323BD0668694FCD589F14C405015056CD1B738031E789A49A0F2471A8B52034
B0CD1E8E33CF8263D527401B574579206ABDC1ADC90B0A604C25EE9334F3F11C
600C8A39C018F0B0680E3007189340CCE2B906C6045856C9B992465E2968647B
7B33C977E108506FFFB2B18FAC1905306BBECF014600D82E32DC6AED3C3CD6DA
354615C14545F08583A5B453F0CAE38D4351A36E55660FC3DFC3944BFC1D1101
A2E60C4E34CF07AF6405A4DE7D226B8D5F686E5E512333B26A7C8A6EA004E928
FD6FB676491C98BB01910016268C2320B0B0D2021321D11336905948147D58AA
378F4A0DA40800A5355B0E00708FC1EEF95B14709E3255FD0FF8DBD3C5C96D07
270EB2D70021807045A14A1A5CC0B9B576DC3465AD796DA2107B0510D72BD4BA
407090B70D53FA4778EF3D785E406319A6EAF3D6EF0AF92154080CF2BF8B93AD
DD1201D90B805652BB1DB2A227B4DBC9EE9F9735B26468EDA643BA75BCA26D3D
08B4F806B0FB3EEE065352CC8FF0F8803BC4B401A25D36AF4D5478A05D1F6066
6C948E425F4EEC363065857CC6DDFC491BE0FCF4A3C09B9D93B4667F1470EE32
B0342C92ADF58FA6E1C6288F36FEAB234D80BE671FB09649F5D9E37876AC3839
77B4AC18DFD02082DD58E4D6565A00D1C62B688DADDE0EE9DF06AD73513B8BF5
9635F36BAF99437670F391D302083BE6EB146DD05153A2020A530ED6D3C32D4F
C63B9D5785291FF84E1A000755FD54CF0E093B6D456B5E162860C70B65C5BC12
222C8F5614720D4B39D8A12FA45E2652C8392CF550DF4D0320C6E8BC1AC0B698
431D43CE7B23E61D2C9D8719F09C4706D5789BA58E9E004437ADA092DF1DC283
ABC5EAAFCAAAAE3901E8DFB1741E2339E571F26B671DB026FF89539CA51ECFBB
496B2008ECB94A86176958852E29649D13A039CD5A877523D5B5165A576BE3FC
240D10A6DE1B6EA1F17A17ABCC3C0082F972A6771A93F7596571BC9F3440EF0E
A837A3C4ED7800C48ED3E41116E0406DCB81BC469C1740DA8C605D8F53D3C04A
CD3883B2FB3ED86DC431FC0491E8115C273B1F58EC9BCE0D806CF7BE638E40D9
EBBBD74FEE75CB84D1EFC85A98E414463B8F65D146172B30BC1522525D51C96D
7E40A0BFB7786785B94848809653EFEA3086A87C3B679D7FF0F86683A1F8B6A1
9A5779065525370909103D078AB0037EC2E2D4E50210DC46DF365463B147A638
51A024A7B07DB2E6D42870EEEFF407087EABC76066D348D0F02FF03B10FE5AEE
F468503E569732B54D044354DED1365F0A9A2E4BABE6BE7893BDF3F1445514FD
67F73B432AD92FA86E58569EF40C6ABD79725039DFFF27A98168EF794EDA2046
1745585E660C041614B73BB7646C7ACF28325965920488F583E6AC71FAC11085
A99A47B20ACC03A06D9736FE72C8A392B5ACB2A436856DCBDF5C4131A697B30A
CD03204CDF1265937A845596540196EBC6E9949D78036BD28F1B2068F64F4C1D
876F71D1A2D3B18CE834A6F0BC167EE58108062D0B00B70B06BBEDBB2CE56D0F
C7B9A3E37973ECEF7325BD065A83A412F8908F5378CC63C133DDB010ACBC198D
ACC6181EAEAB2CFE2BEECEF2B8BE91B2940C866DBF27BB70BB512B350DA69C57
0B8D77626B4008023080AF51B46F66796DE35E218A777F250D0DB4B4B04EAEA6
7919989A16BB135D2A004DBF87DA2E64337069372D80D65A0867103EAEDA7D5C
3AE3AA042C80BB68ED4114E7436E9A9F2640DB0E33A7E9108D51CC6DE601120D
6348387F91D68E9D7B18F31CA453C8340162BB955AF314F747C53A3A3A054796
97C6818899AA985C4E1DA42AD98161FD38F57BCAA60D1005A07D54ACB3C3B06E
8D61DE60585B115DC672BD79396660F946736C78177385672DEEB4EF07D69BD7
61EA038FC72F326245AB6B6453D7F0152608A9E45558B32AF05C5252C9492813
6661210CC8152C836F3B0A75E80161301D222EE77187672FEC642997185CB740
A84AEEA6096FA75D90D549B60FA0AB2C362333E48A669C102ACB334EA418D238
505B68C261463E9ECDCADAEC1C5790F0054C0CED4739016486484FBD600B6406
761E21AAFEE918F389E62BDD874781F5BA0716C0C126F2502A09E66DD298FA0A
1AF216B3B091B4D21C199A9ADAC36F94D104017B71B16533BABEA3DA45BE6DE8
1BE3891C2F5388590BB18075594F25F7DB89DCC93D98681946409C7EB87160E6
2A6A2F6A96752313EF82E0EFB0D9A15994CA340D2370FE4E4E20272022817F01
98836082D27942DB0000000049454E44AE426082
}
BitmapLayout = d2GlyphCenter
BitmapSize = 40
......@@ -128,43 +129,43 @@ object FormHome: TFormHome
Bitmap.PNG = {
89504E470D0A1A0A0000000D49484452000000500000005008060000008E11F2
AD000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
00097048597300000EC300000EC301C76FA8640000045B49444154785EEDDC3D
68D5401C00F0FA81A08BE8E2E0228A4E224E4E82A083834807E9E0E20742F3F2
AA15C14117ABA0282238292E0E8293202EA293388849EEB5E2E22038881FC526
B9573B08E267FC5F4AEC6BDEE5DDE5E392FFA5291C943697E4FD7277FF7BF791
A1A1E6A711D04260DC9ED960DAF4B8E9D00B6D874E5495E0FAE747A7A6D76881
16DD24C09D6E13FA1D5280243DD30611C08E21418B3F3CFC88230F82158645BF
200564A0B8114D7B760762BCA844E245343BDE9E38A049E8F536717796950C42
A717DD83ED7E80BFBD8BDD174E442E2004943223609BF8EF7BB10C9BBE866665
A316885801D903D4021133A01688D801D123EA00881A511740B4883A01A244D4
0D101DA28E80A81075054483A833200A44DD012B47AC0360A58828006DFA56D9
909AE30F2B1D18410148BC7B0D608EC71C8E3B5AEE4F25884BA10432FBB6E31D
5632A9B5540019A2D999D9DC76FCCB80F910301FA54D2D425FF595E2A50498A3
1508B302E0D1063087224CC81F6900730042F51FEE03B46777E738A5382B866E
8CF82EE58E187913AC02C497FF111DFFC944102C97CB9DF1A83A01328289E7C1
CA96E3EF659F4B39DE7CE4E3CC0B973CAD99F1D9E3C8D600E67C0E0D6003D827
60BE985B373A35BB36278D5CF63A9540B6D20C1685DE322CF78F41DC5FF0FBB5
A12058262791F1A8BA00323CE848DFEF5B28E5D0DB4A11EB009884176102AC3A
44DD014578CA11750694C5538AA82BE020BC16713F190EF57803B48557671D01
4578A726DD2DAD4E777B2988BA01CAE0451D92521075024C83571AA22E8059F0
641059C73B63177A3E9B0E80A2686B12FFA2086150751EB3E92151FEC4FF6307
14E18591D672FF02624B84C09D3381FC6C5B8728AF96805278D1DE3E01A23149
7701F41CBF6BE31DA81DE020BC706B9AE5FEE8C348401C8C47AF66C6C3DA06CA
040CB3E31F9441548A871150062F2A312244E578D800D3E0C920B62CFA2DE1EB
5CBE6ADB5BE7B144E12C784244CEE671F82E5C1C1E961298072F0D62E1781800
8BC08B1061D7E7B9A425724AF0AA062C12AF9480C1EBEF54D506D602AFAA1258
1BBC2A006B85573660EDF0CA04AC255E5980A2519531D2DD2FFB85BEB2689B74
83AAA3B0088FF5DBD82C1A9B081221A2C32BA304C260E51D99FD1F22449478AA
014F5873EBD9421FCEB85DFF58DE809288164F35A0617FDD14C763256D8C78DB
780B8178D519355E1580307771935D57262AA3C7AB12508408FBE73E27CF6114
3C24258A5E83FEAF320AF3AA705402A37B9289D2BDCD80B25195AC8855038A4B
E2C21B35D1E1555D857B1F7AB83C97D0C7A58FE7652D790B23B9FDFB446060F2
12AB7E6953FC9DA70955F82EEFBC70CD7D5AB47971F0F9972C16F4E2D9D8D652
1E60DA6BA1ACB68BAA0EDB5F46DC6EDA0FC63DBE6040F4780B7309745C05207B
2F75D6F36A831722C25E0AE85E5C8192F83BEB070EF3717687C3C6BFA769CFA9
175E4F7D366C6FABE9F867595F2D4B624BC8E26DEC19EBE36A58837752EA7C0E
BD613A3916FAE48DA84DFE46A011A8A3C03FA3E235840D1EDDBA000000004945
4E44AE426082
00097048597300000EC300000EC301C76FA8640000046049444154785EEDDC3B
88D4401800E0F381A08D686361238A5622565682A08585C81572858D0FE46E37
393D112CB4F1141445042BC5C642B012C446B4120BF72E99BD131B0BC1427C1C
7B9BCC9E5708E233FE9323DE5E76B233794CF24F2E0703C76E26C97E99C93F99
470606AABF4A400B81316B769361D193864D2F99361D2F2AC1F12F8E4CCFACD3
022D3849803B6B12FA1D928724BDD00611C04E20410B5F3CFC88438FBC55C30D
DA420AC84071231AD6DC2EC4784189C48B68349D7D614083D09B2669EFCE2B8D
103AB3E41CACF647F8EC7DE8BC7022720121A0E419014DE27EE8C6AA59F44D6D
926ED602112B20BB805A206206D402113B207A441D005123EA02881651274094
88BA01A243D4111015A2AE80681075064481A83B60E18865002C141105A045DF
29EB52B3DD41A51D23280089F3A0024C7199FD7EC746EBA712C4E5500299BD69
3B47950C6A2D174086683467B79AB67B15301F03E693B8A94EE8EB9E52BC9C00
53DC05FCAC0078BC024CA10803F2C72AC0148050FD077B00ADB9BD297629CE8A
A119233E4BB92D86DE7A6B0071E23FA2ED3E1BF7BC9572B9136E5526404630FE
D25B5DB7DDFDEC7729C75B887C9C71E19C8735135E7B1CD92AC094D7A102AC00
7B048C57F31B46A6E7D6A7A491CB5EA612C8669AC1A4D03BC38DD69F61D2FA05
FFDF18F0BC15721209B72A0B20C38386F4C39E895236BDAB14B10C8051780126
C0AA43D41D5084A71C516740593CA588BA02F6C3AB93D9CF359B3ABC0EDACCAB
B38E8022BC3353ED6DF56667672E88BA01CAE0050D925C1075028C83971BA22E
8049F0641059C33B61137A219B0E80A2686B10F7B208A15F751EB5E81151FEC8
EFB1038AF0FC48DB68FD05C4BA08813B6602F9D9B20E515E2D01A5F082B57D02
C4DA14DD03D0F3FCA68D73A87480FDF0FCA5698DF68F1E8C08C4FE78F47A623C
ACF74099806134DDC332884AF13002CAE005254684A81C0F1B601C3C19C4FA04
FD16F13897AEDA76D7792C5138099E1091B3781C9E85B3C3C35202D3E0C541CC
1C0F036016780122ACFABC1035454E095ED18059E2E5123078ED9DA2EE81A5C0
2BAA049606AF08C052E1E50D583ABC3C014B899717A0A8576594740ECA3ED017
166DA34E50751416E1B1761B1B4563034122447478799440E8ACBC27B3FE4384
88124F35E0A9C9F98D6CA24F6FBF1DA72FAF4F49448BA71AB0667DDD12C66325
6D94383B78138178D519355E11803076719B1D57262AA3C72B1250846892D697
E8318C8CBBA444D1ABDFF72AA330AF0A07253038279928DD7D1B50D6AB9214B1
684071495C7CA3263ABCA2AB70F745F7A7E712FA34F7FEBCA4256FB127B7779D
08744C5E61D52F6E0ABFF334A20ADFE7ED178E79408B7B5E187CE1258B19BD78
36B4B4940718F75828ABED92AAC3D697917627EE0FE36E9F31207ABCC5B1043A
A60290BD973AE97EB5C1F311612D05342FAE41DBEB77D21FECE7E3AC0E87857F
CFE3EE532FBCAEFA5CB39CED86ED9E676DB524894D210BDF63CF4D7E5A0B73F0
4E4BEDCFA6B70C3BC5449FB411B5CA5F0954026514F8071BFC34CF9DA4A1AD00
00000049454E44AE426082
}
BitmapLayout = d2GlyphCenter
BitmapSize = 40
......@@ -185,37 +186,38 @@ object FormHome: TFormHome
Bitmap.PNG = {
89504E470D0A1A0A0000000D49484452000000500000005008060000008E11F2
AD000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
00097048597300000EC300000EC301C76FA864000003B449444154785EED9CCD
6B143118C6ABA0DE54D083200A0A0A0AE2077814C18B17C1939E1451A1F3D552
2F7AD3E249C4BB6241FD03FC3AD56345849964A916A120F4A207C1CE4CD6D582
82681DDFB02DECB6B34D4A204DD8A7100A9BBCB3EFFEE6C9E79B6460007F20E0
148184374FC75C4CC4A9F849FFAB7E4F1117B3112F1F458DE62EE58B8A323112
A7F9BF7E8756F7FB03260AE273A027449919F0FC0FE0F5AE752117EF7A0364E2
0EE0A99BACB0511CAD8548F5FC590DC097F4D9CA29CDBF77D9B5DB4EB59DDD32
134B7F5BC4C447959F5271CB98B0F26C2DC0858775751ACA46930A049998EAFE
92F2938E9DCD3231CF8F2C072146553E10C04B00489400502515453E0002A021
810E7352D38E38130F6256BE8A1AE5059D2743819D0059CEBB1AF65EBD623774
742292C730139B6B865A0F552A840217088D4CB5B62E0518B2F20900AA0800A0
2621453128D090230002E0720236E7C25020140805D20CC8DFE52C5461C32A3C
38596DA081F45CE7609A16466FA91E8B994807218ADD5CA6C0D7EF36C4F243C2
7F6C0340158125F9839373DB294A7670B4AAD6EB9842813A9456280380006848
C0D0DC2B0506A9F81A358A934E2526AE3A1B950B33F1C6CF807C19A9846D25AC
49F06E7A0790F6FF24BCD8EF04C0C1C96F5B025E7CF60962C8C4980A9ECCB7A2
40F9455163766FED3608C7B6C705693E4F3397FBE7A6AB8D4E0194CEC8416DC8
8A1314A348E43639E712752443ACB54707DC62196B0A5C8D533E950540C3B705
80006848C0D01C0A0440430286E65020001A123034870201D09080A139140880
86040CCDA1401F00CAA5218ACFDE96273CE964E36B0FD2382DA69ED1616B4581
04EEAE4F8BA96D5FF3BF495A1C5341B402D08785D4BA171CB1F2861300A9FA3E
F64F81A29207CB9D0028B7594459F182AA4533C8F296EB89FCFCA2A33EAB3111
D59BF435DF4A1BE82B1C1DBF015087D20A6500D0178014CA3C25778AC64C8CBA
9FCAEBB41960B70E5B2B0A2460577C1BC60469216813D44E15443B007991F906
50FA9B3071CD098034F71DF711201D57B8E804C021961F967B02BD8248A7DD87
6766363901503A219D49D2E6A1F64E50B7539015FB54E016F3ADB481BACEF858
0E000DDF1A0002A0210143732810000D09189A4381006848C0D07C750A64C5F3
BA4B6DE4C5367D9B78F97635F707DEF36A3AB6464728E8C2B3E3B5C26ECF69F3
7940EC7D8F2A2D834D0F54D5BA9E2D8397C7B66C2991EE8AD509C6D37599CDF3
B448FA1EF749B7951870F12BE4E5539DB3755DCA942B2CF2968C7E4FBAD70A18
76F830070110581B02FF012E5534E905A146690000000049454E44AE426082
00097048597300000EC300000EC301C76FA864000003B849444154785EED9CCF
8B133114C75741BDA9A0074114141414C41FE051042F5E044F7A5244A5EDFCD8
65BDE84D8B2711EF8A82FA07F8EBB41E57C4A19394EA222C087BD18330DB4C6A
754141741D5FE82EF4C74C9312C826F42D3C169ABC69FA996F7EBE241313F887
04AC2210D2D6E980F2D920E23FE17F36EEE653BEE8D3F4B15F6FED92BE283FE6
D34194FC1B776879BFBF4238033E070A218AC4124DFE20BCE25AE751FEBE1820
E177109EBCC9F2EAEC682E44A8E7CF7300BE82CF865B947CEFF1EBB49D723FB3
7966FB7F9B4FF827593985E2069890F46C2EC09587F5741AD246133254623ED7
FB25E967153F937902DA3C320882576565008097102050428032A948D2112002
D424D0E50E6ADA11C4FC4140D2D77E3DBDA0F26454603740D2A43D0D7B51AFD8
0B1D3B11C1638AF0CD3943AD873215A20257084DCFB5B7F603F448FA1401CA08
20404542926CA8404D8E0810010E123039174605A202518130037277390BABB0
66152E37B20D30905EEA1E4CC3C2E82DD9637126D2450862379783A8F9BB0331
FD18D21FDB10A08C405F7AB9B1B41DA26407AB59B65EC51515A84269481E0488
00350968BA3BA5C052C413BFCE4E5A65845FB5362AE7C5FCAD9B01F9D49709DB
485813E0DD740E20ECFF0929DB6F05C072E3DB9632655F5C82E811FE48064FA4
1B51A0F822BFBEB837771B8465DBE34A51B20C3397FBE7E6B38D560114851183
5A8FB01310A308C53639EB0C3A9249D2DEA3026E358F31058E522897F22240CD
B7850011A026014D77542002D424A0E98E0A44809A0434DD518108509380A63B
2A10016A12D0744705BA00502C0D417CF6B638E109271BDF386033B0987A4685
AD110502B8BB2E2DA676CA9AFC0D6BEC980CA211802E2CA4E6BD609FA437AC00
08D5F7897B0AE49938586E0540B1CDC28FD94B88BDB62A71D2B6DDA0FA7E5551
9FD19888EC4DBA9A6EA40D74158E4AB911A00AA5217910A02B002194794AEC14
0D08AFDA6FE975D80CB05B85AD110502B02BAE0D634A11E3951ADF2983680620
65B16B00457943C2AF590110E6BE332E0284E30A17AD0038499A87C59E40A720
C269F7A985854D560014851085096BAD439D9DA0765B2566FB64E056D38DB481
AA8571311F02D47C6B0810016A12D074470522404D029AEEA84004A84940D37D
340512F622EF521B71B1CDD81A4DDF8D727FE03DA7A6636B7484022E3C3B9E2B
ECCE9C36594688C5F7A8566A6C7E22CBD615B60C4E1EDB32A544B82B5625180F
D765B6CEC322E907BC4FBAA3C412E5BF3C9A3E53395BD7A34CB1C2226EC91877
53BD5640B3C34777248004D686C07F56A5345A20FB18E60000000049454E44AE
426082
}
BitmapLayout = d2GlyphCenter
BitmapSize = 40
......@@ -237,41 +239,42 @@ object FormHome: TFormHome
Bitmap.PNG = {
89504E470D0A1A0A0000000D49484452000000500000005008060000008E11F2
AD000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
00097048597300000EC300000EC301C76FA8640000043449444154785EED9C4D
68D44014C7EB17A80711C5831E44A488E8C1EA454141B0A0E255FC382852AA9B
4DD25204F1E3508A8A178B082A5EC483201E14EAAD201EEA4192CC7651112F5E
140B7E24996DAD88F881C637ABBBDD4DB2BB937DBBDBCDEE2B0C3DECBC49DE2F
FFCCC79B37E9E8A03F22D034049296BB4B637C50B3F810956206AAC97B8E8DBD
5D58F261A9969B00781E95320C2C77B43440C65F10BCCA0252539FD686425419
1F2380E5012ACCFED5FFECC38A5080498B6F530C8713C470888A61FFD6987BB6
EC809548BF5FAC31BB4B14D5E2BD7E98A0D2CBB9DF5BEEBFE9EC0BF86BF1BB39
3FF5A7EEAA48A3BD9A7276061A34F940A44662545931A7D60405E35EADDA0502
C83D95114069019102A5518557248004104900694E0A2480480248F39650A06E
385B602E7603021B174B2E9990A04A99C71EA062F10D50BEE726B349E6BE1CF2
BCB975E2156836F60061E978CEBF12105009A024816C0037108FB4BB24CDD1D5
62AF400288D4802C40CD728F2A06FF08B1B969186C2E202F9B376F0B059E1877
566A86FDB3F85577BB6B01B12D00D63342440091326C7A8089F4E46A35E51E49
A69CCD61BECAF4816DABC0BEF1CC7685F16FD9BECBB0FF40A032E9874800CBBC
42AAE98C1475FCA6FD8E0046E873FC5BA68A694F114002589E402D3BEC462B50
67D3CB616D7D53B39CC770EDFE0ECF9B53E97937F528DC68801A731E15F6B962
8F9B000201D9B7E25F16C14C860184C61E10C0080043D2531E12400238F34AD5
7B1A430ACCF75FC50155D93EB0E500420C6FB4D02911CFF3F749D0D19FF13BDE
9776D717D6D34CBE3500C77295C0A4DCB07F140F22FC5EACFB408D650E8A3570
CE29912617E27467D2E05FF38E5B36F3CFDF12696F01E430BE9A81634F86A59D
41A0F556BE4EF6BA99BDB106286E1E9213BBC1A961119129B5DBA633671D041A
2E018053FD165F12E674AFF17999487414D1E852E9B64363DEFCFFF98DC32290
51099EF8BDA927D2320ECC761D02887C02049000220920CD498104104900694E
0A2480480248F3C6289039D7C57AB4354BE6504DCF89C0F267231DFBE283550B
5B2CB760FD3AD1D610217851354061A89BCEE1760528B30D2005576799E300F1
4BDB80CC466F9C3BE2E0A51420994A03CFA796EA26DF0FC7DE076A51209A723E
18D7E34F2AB60D8358F000A43352D14EFEBE7BA0DBEA946132AB75AA9D32C846
A467D5B9465C9C00222913400288248034270512402401A439299000220920CD
498104104900694E0A2480480248735220014412409A930209209200D29C14E8
0378D2985824A0C816CD9CDC11B28578BB92BD9A0A6E3D8AE87625BBC2DFC521
1CE4F3AFAD39EC99EC1149E371D933116748C232646B4B25426BB07BF5262EF0
0AEFB3CFB2374570B37E558BF29A63F419654801DE5D3F2A115A860CFC6B7153
203CF4D7A2DF8EE066FDAA1EB8EFCD139F228172457C32B3E98BE59E6EF477B9
EA479F5A2602440049E02F0E2F7B88CEB519FD0000000049454E44AE426082
00097048597300000EC300000EC301C76FA8640000043A49444154785EED9C4D
68134114C7EB17A80711C5831E444444F460F5A2A0205850F12A7E1C1429354D
76D35204F1E3508A8A178B082A5EC483201E14EAAD201EEA21CDCEA44145BC78
512C689ADD49AB22E207BABE89264D7637C96C5E92669357187AC8BCD97DBFFD
EF7CBC79B31D1DF447049A864084597B752E06752686A81433D00CD17D72ECDD
E2920F4B63562FC0B3A99461C0ACD1D200B97849F02A0B484B4CADF784A87131
4600CB030CF1D4AFFEE71F5779028C30B13314330541F486188AA57EEBDC3A5F
76C0EA4D7E58AAF374A72C1A133D4E98A0D2ABB9DF5BEEBF611E74F9CBC4FD9C
9FD198B5C6D768AF25CC3DAE060D31E0AB9100550E1B33EBDC82B1AE57ED0201
14B6C609A0B2804881CAA8BC2B12400288248034270512402401A4794B28301A
37B7C35CEC1604362E975C32214195320F3CC030139B434C7CCF4D6623DC7A35
64DBF3EBC4CBD56CE001C2D2F182732520A112404502D900AE2B1E99EE543447
570BBC0209205203AA0075669D08C5440A62739F61B0B984BC6CDEBC2D14189A
3057EBB1D4CFE257DDEAAA05C4B60058CF08110144CAB0E901F626A7D76A09EB
7824616EF3F255A50F6C5B05F64D647685B8F896EDBB62A93F10A88C382112C0
32AF90669823451DBF917E4F007DF439CE2DD3B0919A218004B03C815A76D88D
5660947F5E096BEBDB3A339FC2B5FB3B6C7B5EA5E7DDD4A370A301EADC7C52D8
E7CA3D6E02080454DF8A7F5904B31906101A7B44007D00F4484F794C0009E0EC
2B55EF690C2930DF7F15075455FBC096030831BCD142A7643CCFD92741477FCE
E9785FD2DA54584F37C40E171C66855D93F258FA47F120221E04BA0FD479E688
5C03E79C9269722EA7E3E90D9171F135EF384B73E7FCAD37692F0AC7CDD7B370
A6A6BDD2CE20D07A275F277BDDCC81400394370FC9895DE0D4B08CC894DA6D8B
727323041AAE008033FD4C2CF372BA27FE69854C7494D1E852E9B64363F6C2FF
F98DC3329051099EFCBDA927D22A0ECC751D02887C02049000220920CD498104
104900694E0A2480480248F3C628909B37E57AB4354BE6684DCF89C0F2670B1D
FB1283550B5B2EB7F4F1F4645B4384E045D500A561D4308FB52B40956D0025B8
519E390510BFB40DC86CF4C6BC270F5E2A0152A934F0626679D41087E0D8FB40
2D0A44532EBAE37AE259C5B66110731F8034472ADAA9DF77B70E61351526735A
A7DA29836A447A4E9D6BC4C509209232012480480248735220014412409A9302
09209200D29C144800910490E6A4400288248034270512402401A43929900022
0920CD49810E80A7E3934B2414D5A21BD3BB3DB610EF56B2D712EEAD4719DDAE
6457F8BB3C84837CFEB535873D93FD32693C287B26F20C8957866C6DA9F8680D
76AFDE06055EE17DF6B1F4561F6ED6AF6A515E73803EA30C29C0FBEA47C547CB
90817F23680A8487FE46F6DB3EDCAC5FD5C30FED05F2532450AEC94F66367D61
D6D9467F97AB7EF4A9652240049004FE02828A7B2F88BC24350000000049454E
44AE426082
}
BitmapLayout = d2GlyphCenter
BitmapSize = 40
......@@ -292,70 +295,70 @@ object FormHome: TFormHome
Bitmap.PNG = {
89504E470D0A1A0A0000000D49484452000000500000005008060000008E11F2
AD000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
00097048597300000EC300000EC301C76FA864000007C949444154785EED5C59
6C1C45100D9738C50DE2100101E28B0FF8428888FB467C700910080221DE9D59
2C88C2911F08023EF8431C02228450C807A70449E08B38464ABC33B3B6128B4B
C81C012BC1CC4CEFDA313828C678A9EAB1C3CC74CFECCEEE54CF389948ABD8DE
EEAAAE37D555D5D555B36851F1AF40A04020E708E855FBFC65D5891373BECCFC
2D6F4575F4C8B2C136E9166B962CFB1FDD642BF2B7CA1CAF4837DD128237FF41
102BD6EE9372BCE47C2D0D346EB51F40EF67FBA27CAD32C7AB2900ECF2E11400
160076894097D30B0D2C00EC12812EA6F76EFBFD14DD70BE29BC700720227865
CBFD5A048F35B5DA1FE77640F2C09912071E00BA7EBF44A26CBA576B167B4B33
DDA77A86761D1527E4CAE1B1A375CB5D0573DE957D7483FD20D33CF85B5F2BDA
0B125CCD72CB70D89F9D17BA6C3966CF50E3389930F877FC3E02A07D4736C9F7
070678712016E085542AAC7961ADF16B62015E42F0429AB838F1B60593005EF8
E3CC6DDE83FD3B8ED02DE77230EE4FC0FF6B213D3450B29C5FC1664DF8346612
7E1F85EF0D7004EFC19827710ECE95D9B1569A27D8AFAABD5766F310D4CA56F7
8CC7B68F1F1FFEA0A3C9CC21F49AEC5858F052F87C5EB2D89E0E0CB667CCAB6C
0AC306ADE6DEAFF7DBC7A04091E07190DCFBDAD5B43847931D7083F6791002BC
59AEB2BF3A06CD97BC0CD19884DF3FF57BDB7DDF037800F2AD28783BB62E77E0
95AAEC4C8CA778CA3B1A80B810A1F3EF7CE0CD6B4E2C88301EBE5F9C9996F919
DFF551F310D8362BE7B65A5B2078DA697F0F598EAFCA16FB8C6B95C536CF9D39
51CBDAA2E36DF1FF352F0C481C88B9D0C092317E8E6638D55602830DDC050EE4
ED8AE1DCC3CF90CDE641714F5F1F689C0DE0DEA999EC0DDDB07F8BA41F035E3B
9A98298815835D075AD48806CF9E0163FF0968E735AB9BCD833BDE2E00367A63
00745B80571BE0E5164410E661006F460A1E1EA74CB6AE179C49C7A04926F68E
8C1C0E745F2A55ED7FE3B66D14CF168E45DD112D2EFE2A559D6F2B56FDD23481
0BD3D26ACE15602B6FEE84472C881077764233D11C1ED7F90EEC7E0DD42CE7B5
A8A0371113E2C11827CA760E667148598313B80AB74E4484BF9494794AC4314E
8C906116536129B111C9608C5732992382C7A6CAB5FA4D648C53241C071E9AA5
14598548712FC8FA249A37AD99CE2D748CD3A39C1D782003771AD2C0D6599E9E
88749432058FDF4849623D0C8AE9444E8F72A6E0A118A07D2F87B50F4E073FCD
6745D213357D4A9983B77CD0395D9686C21348FAE2A64B11E3C4286F4BEB307C
72C0367D41D03E836D4C57541A6A15C3BD32225E55731DD933D43C0C4297B130
80E59A73318DC8E95385B5BF2EAC1FB24098E84D9F5B8822DF02A2E7DD4CCE38
4506788F01328C48E4A00FFAC14EBC13668CA9A814E55342CACB1805738B7064
FB829C39E6EF82A923368585D6E48CD366808780503E111D23E999BD62391708
6A6FB20D69CBA68A1E4FCA86B4109D0C197FDD74EE9500B860CBFA31B32D3813
CB7D9A1040F7450140A3B1848C213161BC3C9228C43A32B66064DF17547E81F7
44803C818B2ABC0B2103104A19B6F801C41B3432668A088B15A6F64E32D6A081
C3410D747790315344389C8E23550A4879EF08A6EAD9B02239C9D8803C78EF1C
B86BA66356653F07B630D4089331534458298025836D0F3C2D084415C949C606
E4D9EC970982E93F299905D2F718B9933153441892C2DF054F56F628196BBC14
170FE0F669640CA909C3714EAC14730C32B69048784E88DC29AFFCC824F10863
2D8ED2401A321877881AE8AE2296938CBC56ABDF2D6464A00D828CA1ECE883ED
EE640C890903786B0400A13C84942DD4FA054219488F4F47F55C902EA44BE258
1526A4E62CF637693A8BDB0DD37D453C0FD71FE9521EE5D379394A1609555E8F
27A6F4879423D0254300F0430140833DD425D9D6D351F5856D0C809226225B2F
2BD108AC4F0CD76B6338A3E4520957EAF56984EE134C776BABF2DC4452120EE6
BD26E22E5A43C832481A9B4E4A863D2EA6C3F37FB9046D169784EF85B1B215AF
2B9401E83913F6ACE429DA5833A374210998F152606987B9B336019974867A3D
B5F64E8921DE98D7AD0CA6E755E1A143B71304D467A5834A422A5A8DDD2ED1C2
261EF91292221F0E3BE601E95A294F1EED48054FF503F1A9DAB350509E9BD810
C0BB5E5650847D2CABFB9B87B62327D9187428BCAC4DF06AF64C1E40D4ADFA8D
F24E29BB81CD4064C024210CB5D017425CB55BA6897C3BB7E83E4AC22BC9587C
80D25236E863C95D291EAF3589E8BB853CE20695DE198B87B0525666F3780803
CD40491E84B2B191959FF872422889E34548C4DA088EED5A004E567985CD87B3
CA8A283B451D3551BA9DE76C24DE2D531CFBF09D7D00DC7AA9D6799D9BD3F0DD
D24EE5523A0F6DA2DCB1048E7F4330665937A930AC0A9B4B8A8AAD16FEB74A42
1F0B665F9482D02D330446560A2271347BA168E94B7CD10D0A591E183B358AB7
B665E2844707EB97554CF6386A5B9B9DEF7DD80CD4AD3C99CDF7826DF1C412B9
D5F8CB5CD91E7CF1045642E0552A6CFB5FF0BA316E8E248C6A707B476C739500
EB1DFBD833B2044432505A77AB23F8D882D1333479B212E15432F1826E78BD49
F85A20491B7FC458F4F240FB796CC150295336BC78796D63095E0F80C6FCD8B9
16DA3BF9EB02ACFA0DD83D908D3039E08A46BE62B1DBF8EB34F1F21E9CCA5C19
C9086A2BFF195E42814E097B54309EC43787E760E9C5120A040A04F67F04FE03
A256613E52F1EBD30000000049454E44AE426082
00097048597300000EC300000EC301C76FA864000007D049444154785EED5C59
8CDC44100D9738C50DE2100101E28B0FF8428888FB467C70091008026176C61E
561085233F10047CF08738044408A1900F4E0992C017C92E5266C7F6EC2A5971
092DC74294E01DBB67922C6C102164A8EAD90DB6BBED19CFB8DADEC49156D9C4
DD555DCFD555D5D5555EB020FF93239023907104F46AFDFC25D51D27667C99D9
5BDED2EA96234B065BAF5BAC55B0EC7F74932DCDDE2A33BC22DD748B08DEDC0F
8258B6769E94E125676B69A0712BBC00B67FAF5F94AD5566783539807DBE9C1C
C01CC03E11E8737AAE8139807D22D0C7F4C14DBF9FA21BCE37B917EE014404AF
64B95F8BE0B196569B3AB7079207CE9428F000D035FB251225D3BD5AB3D85B9A
E93E3530B6EDA82821978DDB47EB96BB1CE6BC2BFBD10DF6834CF3E0FF3674A2
3D2FC1D52CB7A457ECBD7342972CC71C186B1E271306FF1F9F8700B4EFC82679
7E60801705620E5E40A5829A17D41AAF26E6E0C5042FA0890B636F5B3009E085
3F4EDDE63D383C79846E399783717F02FE5E05E9A19101CBF9156CD60E8FC64C
EB23F52DF0DC0047F01E8C7912E7E05C991DEBA47982FDAAD4FF96D93C04B55C
71CF786CF3F6E3833FE86852730883263B1616BC187E3E2F586C570F06BB6DCC
2B6C06C306ADE6DEAF0FD78F418142C1E320B9F775AB69518E263DE046EBE741
08F0666984FDD933689EE46580C634FCFB53AFB7DDF71CC003906F45C1BBB175
9903AF586567623CC553DEE100448508BD3FF38037A7399120C27878BE30352D
F332BEEBA3D621B06D96CD6EB5AE40686B67FD7BC8727C55B2D8675CAB2C3634
7BE6442DEB8A4E7B8BFFAF794140A240CC8406168DEDE7688653ED24F080C5B6
810379BB6C38F7F03364AB7550D4DBD7479A6703B8776A267B4337EABF85D28F
00AF1B4D4C15C4B2C1AED3ADA9663878F61E30F69F80765EB3A2D53AB8E7ED02
60A337064037F97875015E664104611ED62D7B8F143C3C4E996CF52038939E41
934C1C9C98381CE8BE54A8D8FF466DDB309E1D1C8BBA235A54FC55AC3ADF96AD
C6A5490217A4A5D59C2BC056DEDC0B8F481021EEEC8566AC393CAEF31CD8BD1A
A859CE6B61416F2C26C483314E94ED1CCCE290B2062770156E9D90087F3129F3
8488639C2897018E6C900A4B888D480663BCA2C91C113C3653AA356E22639C20
E128F0D02C25C82A408A7B41B64104CFDEAD99CE2D748C93A39C1E782003771A
D2C0D6292427221DA554C1E3375292580F83623A9193A39C2A78280668DFCB41
ED83D3C14F735991E4444D9E52EAE015469DD36569283C81242F6EB214314E0C
F3B6B40EC323076CD31704ED33D8BA6445A5A15636DC2B43E25535D7910363AD
C30A156607012CD59C8B69444E9E2AACFD7561FD9005C2446FF2DC0214F91610
3DEF1039E30419E03D06C8302191833EE8073BF14E9031A6A212944F09A976C6
C89F5B8423DB17E4CC317FE74F1DB1192CB426679C34033C0404F289E81849CF
EC65CBB940507B93AD4D5A3655F4785236A085E864C8F8EBA673AF04C0795BD6
8F996DC19958EED38400BA2F0A001ACD45640C8909E3E59144215693B10523FB
BEA0F2F3BC2702E4F15D54E15D08198050CAB0D10B20DEA09131534458AC30B5
B792B1060D1CF76BA03B49C64C11E1603A8E542920E53DE94FD5B371457292B1
0179F0DED977D74CC7ACCA7EF66D61A8112663A688B052008B06DBEC7B5B1088
2A92938C0DC833E4950982E93F2899F9D2F718B99331534418CA48BEF3290594
D191B1C64B71F1005E3F8D8C21356138CE8995628E41C6161209CF09913BE595
1F99246DC2588BA33490860CC61DA206BACB89E52423AFD51A770B1919688320
63283BFA60BB3B194362C200DE4A0140280F2165AB074219488FEF0EEBB9205D
489FC4B12A4C48CD59EC2FD27416B71BA6FB8A781E6E3CD2A73CCAA7F3729434
12AABC1E4F4CE98F2947A04F8600E0870280067BA84FB29DA7A3EA0BDB180025
4D44765E56AC11589F18ACD7C67046C9A512AEB4DDA711B84F30DD4AA7F2DC58
52120EE6BD26E22E5A49C8D24F1A9B4E8A86BD5D4C8767FF7209DA2C2E09DE0B
63652B5E572803B0ED4CD8B392B758C79A19A50B89C18C97024B3BCC9D5531C8
2433B4DD536B6F9518E27559DDCA607A5E155E3A743B41407D5632A8C4A4A2D5
D8ED122D6CE1912F2629F2E1B0631E90AE95F2E4D18D54F0563F10DFAABD170A
CA33131B0278D7CB0A8AB08F65C570EBD06EE4241B830E8597B5095ECDDE9305
1075AB71A3BC536AAA89CD4064C0C4210CB5D017425CB553A6897C3B77E83E8A
C32BCE587C81D25236E863C95C291EAF3509E9BB853CE25A95DE198B87B05256
66F3780803CD40715E84B2B1A1959FF871422889E34548C4DA088EED5A004E56
7905CD87F65E654594BDA28E9A28DDCEB33612EF96298E7DF8CD3E006E8D54EB
78E7A6BD1B9E2DEE552EA5F3D026CA1D8BEFF837066396F4930AC3AAB0D9A4A8
D86AE1716AD8C782D917A520F4CB0C81919582888E063A9C4CE74BFCD00D0A59
1AB14F0DE3AD6DDC71C2A3A38DCBCA267B1CB5ADCBCEF70DD80CD4AF3CA9CD6F
07DBE2892574ABF18FB9B25DF8E109AC84C0AB54D8F6BFE07563D41CF1D95493
DB3B629BAB04D8F6B18F3D234B40C403A573B73A828F2D180363D3272B114E25
9376D00D9F37095E0BC469E30F198B5E1E683F8F2D182A654A87172FAF6D2EC2
EB01B897F8B1772DB4B7F2CF05588D1BB07B201D6132C0158D7CD962B7F1CF69
E2E53D3895D9329209D456FE3B7C84029D12F6A8603C895F0ECFC0D2F325E408
E408ECFF08FC07F790602CE8E3EAD90000000049454E44AE426082
}
BitmapLayout = d2GlyphCenter
BitmapSize = 40
......@@ -363,7 +366,7 @@ object FormHome: TFormHome
end
object btnAbout: TD2ToolButton
Align = vaRight
Position.Point = '(1276,0)'
Position.Point = '(1266,0)'
Width = 64
Height = 64
OnClick = btnAboutClick
......@@ -374,48 +377,47 @@ object FormHome: TFormHome
Bitmap.PNG = {
89504E470D0A1A0A0000000D49484452000000500000005008060000008E11F2
AD000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
00097048597300000EC300000EC301C76FA8640000050149444154785EED9C4D
8814471480373181C4BF0413103D88C4604208C190A362F010153C4808513088
60707BBAC75596E41211F61291801A3C78C9250A81801E0DC92D7B7099EE9A1D
592178DE104CB2DD5DB3AB7B908868E7D5F8B33D3D3D5DAFABAA67BA97B750A7
E957FDEAEB7AAF5EBD7D552323F447042A41C061FE36BB193AB6CB4F4A5B73EE
ADF8A0C63CBE562A93D26F8D85879270EA2EFF04D3578DF123F5A970E3D0E18E
B6E65F0385AF3B8C47E8E685FBE38A5BEEC266B46CEC3D96CB6792006A5EF823
BAAF86FFC0F1F8A9E1418CA21740D9DFD10A3F1B7C59003ED7878F0F05A2C3DA
7B73C3134A970D20E38B5FDDFA77D5C021820FBAB04C0046B617EE1A3CC0147F
637BC13EBB197C9CD5EAECDE1B71658F4CCEBE229349FDDD0B3FEAF181CDF01D
695F1E3FDBF3E11356311098690EFBE4CCC2EB0379B9C64BC40A4C0009A00601
4D519A819A0021D8FECC61E16CBC89005CB3DBFCE255F581F9475A900401D404
4B0009A026014D71B12583CDF844BC89A018DBED78E3AF573B2BA2179EB759F8
7D151AC48FA78FB7C277B1632CECB95AB3FDBEC5823F95B68279323F053C6B35
FC4762D2140647D6F1978DBBEB9C06FFA78AF0BA74F6424B36D6427EB73DFE4D
E5E17566B67F67228A5E2C045256A700EF97E501904763D3FE166580E0072E59
AEBF106F22432DEBD0667C320ED062FE3D91952E7B138B5CEF87F7B7C9C6DBF7
77D538B007207C0465250628D889367A16250288FE0404108D2AFD4102480035
09688AD30C24809A0434C56906960E6033F8F0494666A98DB6A297657A521C28
2324F99D0012C0582195C64E449523CDC0A7E4465B8B6F26130098F40E017C0A
9092099D9C206563B0AE88E2402CA93ECF114002A84940539C662001D424A029
4E3390006A12D014373E03E15F989B4420196F9F5F8D56C8F4A49D888C106563
34091140029846C0B80FACA51C6A99988C5E92E1271F48D91833095595749698
A150957AB3ABB8886A6396CE0A671DF57258B0D371833F92053AA2BA4B66F665
F8DDBC0F4C396C9806F0D874B0018A2A7F721AFEE3B4BA4002182BF94A0274DC
F91DA2FE2FABA0920066004C3D9796A8B123800450CD456356E1AE19083E50F8
4288036FD12A0CCC7301ECACBEC14EF1A92890CE1148D719FF1496FFF1F80EA5
4880E22E1808952E5B8CDF17335DBC5FCDBE7AA58616C624552902A0286A828B
23BE06D7B0985CF1C1527E8310EA6D5D900500E43F2495C5DC99601AA0B87103
7292B73343258FFF075564DF8EB6FE5EA90AD23840714347F2BC8733E9AF9629
680AA03057E8EBE73C8776C4F93C55B3360E508082CB770EC0FD31D76010DF89
1D870C9E894524CB5CB13055CCBA10801860267D20C65CC5E201E1D26E78F622
EC821EF6836AE534EB4A0344996BC3BF0BF0C6BA567C77FE03B0901B99FE1169
D695048832D74E9222B872C29D5B9F6A11E292342F3C0C70E7B240CACCBA7200
B1E67A7CBABD1DE34A3A57F56998756500AA9A2B066267115334EBD2033462AE
588A0A665D6A80A6CD15CB318F598B50CDE87157AC92B230A65FA6FAB9B229AB
ABEABBFBC961CC3A5D4F8D125FD5412477227D5746D9EAAAAA403F39A45977EB
5B52802218C6AEAEA63962CC7A0962D9000EC05CB1C05166AD53A58F5524F91C
04B5BFF698EDA0CD15ABBCC4ACEB2CD88AEDCAD87376B37D300E7098E68A1D54
9A59DB6ED01801C0D83E8C3E5767ED3DB0E13F0797207E81A9A731FA728DCE20
01F11E5C7F7246246F8F4E856B34BA2251224004CA4FE07FA8DB26FD7BEBAA5B
0000000049454E44AE426082
00097048597300000EC300000EC301C76FA864000004E549444154785EED9C4D
88D34014C7D72FF05B5141F420A2A222222B1E15C5831FE0414454504450DA6E
525759F4A2087B5144F0030F5EBCA820087A54F4E61E2C4DA65B5110CF8AA8DD
26D3FD3A88221ADFD4AF6C9A665E326937D1B730A7CE4CDEFC32FF796FDE4EA6
A383FE88402A08E8ACDAA9956C5D33F84969290D2C730FAADBE4B3A56D7CFAED
62F6412F9CBCC1B761FAEA62FC48BE602F1E77B8D9F2E01C30F8A1CEB8832EA6
BDDB6D78CE185A8A6EEB7A4ECEE02FBC00BA4CFB16BAAF42F58B6EF2B3E307D1
712680B14FD106FF1E7C5200FEB187F78C0B449DD5768686278C4E1A40C6474F
BDACCC683B445883AEFE23001DCDB4B7B61FA0CF7AA399D62EAD646D092A7936
32DF6DEC91BE3753656D7C7F37ED0D0D6B60C95E25EDCBE4171B5EBC47156D81
E9B7609F7C3134B72D0F577888F0C00490002A10506C4A3350112004DB7B7566
BF711711802B761BBE795AD7C0F0236D510B02A8089600124045028ACDC5960C
36E3BDEE2282626CB73DC577D3EA1ED1B4AF68CCBE968602F1E3B9E3657B3576
8C2DABD755AAADCD32EB6DA4AD6098CC4F0BEA660A956F62D2B40C8EACE363C5
E1797A917F4C23BC31369B764E36D696FCAE99FC4CEAE1D56776E57DAFE34C6C
09A4A04E01DEA37F032077BAFBABCB23038475E046CEA80CB98BC850CB3AD418
EF7303CCB0CA88C84A27BD0827D7F8E2AB9DB2F136FD3D6A1CE805285E406423
DAD8B01E6D34382502887E0504108DCABF220124808A04149BD30C24808A0414
9BD30C4C1CC092B5FE6746E66FC9969D29323B290E941192FC4E0009A0EB2095
C24E242A479A81BFC865CBA30BBC09004C7A8700FE0248C90491135490300124
80A196710AA443E16AAC4C0009A02201C5E6340309A02201C5E63403930610FE
85B9440492EEB2EFBE33496627ED446484281BA348880012403F02F13B119F8F
5A7AFB9CC932FCB4065236269E846A946C8C98A1702AF5B9FB8C099D8D711DB8
09FAD44B67D666DDB05E790FE8104009C04CBFB5080E55DED50B95EF7EE70209
600040DD18DC24CEFF051DA8248001007DBF4BF39CB12380045016B9F9FF8EF1
C2636620AC81622D8438F0257961601A0A60DDFB5A9BC5ABA0403A44209D677C
0F6C817ADC3B9456021477C140A8743BC3F82731D3C5F3A3E9EB3FFB9F8838D4
0417479C86A561D4EBF141294FF46275852AC8F8F7C226BFE93516736742DC33
50DCB80139C9D741A152C6E49FE114D9F96CF9C3F4A8206307286EE8F07EEFA1
F75567CA0C8C0BA0902BF4752FCC473BE2FBBCA8B28E1DA0000597EFEC87FB63
1EC0202E891D870C5E1C4E2448AE58985164DD12801860DE3A2A33102357E13C
205CDA0E75AFC32EE86B33A861659D6A8028B9162AC300AF7B8CC73706D78142
9E05CD4CACAC53091025D77A92C2BA73C21858E8AB0871499A691F06B8034120
65B24E1D40AC5C8FF7D736629692FA557D0AB24E0DC0A872C540AC3BB188B24E
3CC058E48AA51841D6890618B75CB11CC3C85A846AB17EEE8A355216C634CB54
FF31D6C7BB467D76B3761859FBDBA970C437EA20BC716053CF28F3AE510D68D6
0E29EBB1F62614A00886B1DE356E8E1859FF859834806D902B16384AD62AA7F4
B18678EB4150FBB841B6ED962BD67889ACF3CC5A89ED2AB67A5AA976C00D703C
E58A1D949FAC35C32A7600606C1FB1D6CBB3DA0ED8F05F864B100F61CED3C4FA
7085CE72265F03D79F5C10C9DBA3057B964257D494081081E413F801B51F262D
E02B8D490000000049454E44AE426082
}
BitmapLayout = d2GlyphCenter
BitmapSize = 40
......@@ -436,39 +438,39 @@ object FormHome: TFormHome
Bitmap.PNG = {
89504E470D0A1A0A0000000D49484452000000500000005008060000008E11F2
AD000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
00097048597300000EC300000EC301C76FA864000003DA49444154785EEDDCBB
8BD4401800F0554150446C2C44C517682558886821568282ED71ADF8CA635D0E
ADD5B3B55141F0401045445114F52FB032C9EC9E778D60E10BCF072699B8768A
A8F19B9C7BAEEBEEDD65275FF2CD660EA639766627BF7C334966BE6CA5A2FFB4
809202663DDC62D543DBF6F8689145F4A112C70B94411C7A162F363D7EC576FC
5F36E331856279FCB23288A2B314D03AFBA004E271AFB9C170FC9F1401459FC8
23C25C77882A5EAB5FA4112D978F74193A876DE66FCBA3985EB0BBCB091C87F9
F84BFBFFC9227605AC077BF2BA028E4C365774029A5E78CD68F01D4A20520514
27500944CA804A205207248FA8022069445500C922AA04481251354072882A02
92425415900CA2CA80241055072C1C7110000B452C1AD07EEC2FC35C4E33DCE6
7AD48591A201C5C1C152D5732CC4520002DE410D28394E00F01CC6A6562922B0
659FACFFB1F022603EE8A7C054F0B233924B052819C4158B851734A084A20694
C04BAEE63A02E5044B035875F95E8BF1DBB6CBC7AC7AB4568EED6FED52005659
B81DF69B7FB4267B93F9EF6A0D7F531688A50004B853FFED036784580A4018B2
C3DD9E3AB288C452008EC6F142B8E1BD8981580A4031D70DDD8D176120C24939
DD7E620C8F7F3BE14C2DC9627EEDD94651AB311888B5898F2B6756762059D462
D14954BCE4E6B35B76564EC945188822DBB6CAA25D56FDD34674BCA201318773
2E78140095472C7208B7478918CE26E3B730AECEA8D1480530894498BF00F051
2F44C3E1AB5131FA699C12E05C8806E32FC8215203540E312D60CDE3CB2D165C
82F9EAA9E1F2C9F662B2F0352CC9BFC9A6F8EF7B6D34918AC4B480B61B5CC7DA
414BD5AE17DCEF67CACABC4E5AC0E92823F03A98C35F658ED14F8369012D2FBC
430110A69087FD1C6FE675D2024E3F6F0AC4ACE6BA1EED38FE54AF132596BED0
B72BE72B9D1670BEEDCA7C0EE31959A63FB3D6A506A8141E9567E1D619560E8F
12A09278540095C5A300A8345ED1801878D319AFD1BEAA136D45BBF2B6375CD4
551803EF68235865BBFEDB99FB47F8F51174C4220031F092D1C4C2B3FFDC7C3B
FEF763E31F96A222E60E08BF0783B1A5F90770F0F303756682E478D0B9319280
3A3B4B12505437EBD17EB1A293FCDCD493CFEB32683269A234B931598175B6A3
01256535A006941490ACAE2350034A0A4856D711A801250524AB138AC068586C
1BAA5600F06AEE2F1B423AEC110A1BE5687D800556C9C09EBD7A95059B315E74
4603499356E2F10954BC56E3F0DEDA0D12079C0667AECF42963E04C7815C00C5
AA2DCC1FF70608F12B1C8F990B5EFB97C0EAC84E582D3E23AE662A16C81C3B0F
A3A906398C6B72C7D35FA805B4001581DF543B76A4C3F234870000000049454E
44AE426082
00097048597300000EC300000EC301C76FA864000003DF49444154785EEDDCCD
6BD4401400F055415044BC781015BF404F8207113D882741C16BE955D47693AC
4BD1B35AAF5E54102C08A288288AA2FE055EB69B4C5ADB8BE0C12FAC1FDB4D26
D69B226A7C93BA755D77DB66272F79B399C25CCACEECE497379364E6650B05FD
A7059414305C7F87E9FA96E5F0E12C8BE843210C972883D8F73C5C6E38FC9A55
A9FDB2180F2914D3E1579541149DA580D6DA0725104F3A335B062AB59F140145
9FC823C25C778C2A5EA35FA4114D9B0FB5193AC72D56DF9546311C6F7F9B1338
0EF3F197E6FF93456C0BE87A07D2BA020E4DCEAC6905341CFF46718CEF510291
2AA038814A2052065402913A20794415004923AA0248165125409288AA019243
54119014A2AA80641055062481A83A60E688BD00982962D680D6D3FA2ACCE5B4
A23DB3197561246B407170B054F5020B311780807754034A8E1300BC80B1A995
8B086CD847EB7FCCBF0C988FBA293015BC6A8DE45C014A0671C164FE250D28A1
A80125F0A2ABB98E4039C1DC00966C7ED064FCAE65F311D30D36CAB1FDAD9D0B
C012F3775BACF6A331D91B6CFA7D79ACBE2D09C45C0002DC99FFF6811342CC05
200CD9FE764F1D4944622E0087C37029DCF0DEC640CC05A098EBFAEE87CB3010
E1A49C6D3E31030EFF76AA3AB52289F9B5631B59ADC6602096273EAD9D5BD981
64519305A751F1A29BCF76D95929251761208A6CDB120BF699EEF45674BCAC01
3187732A7814009547CC720837478918CE06E37730AECEA8D14805308A4498BF
00F04927C46295AF47C5E8A6714A800B210E32FE921C223540E510E302961DBE
DA64DE1598AF9E156D3ED95C0CE6BF8125F9B7C994DA874E1B4DA422312EA065
7B37B176D062B5EB780FBB99B212AF13177036CA08BC0E56E5AF13C7E8A6C1B8
80A6E3DFA3000853C8E36E8E37F13A7101679F37056252735D877646EB539D4E
9458FA42DFAE5CAC745CC0C5B62BF3398C676499FECC5B971AA05278549E851B
6758393C4A804AE2510154168F02A0D278590362E0CD66BC06874AD56027DA95
B7B9E1ACAEC218780363DE3ACBAEBF9BBB7F845F1F4147CC0210032F1A4DCC3F
FFCFCD77A5F67D70FCE34A54C4D401E1F76030B634FF00F67E7EA0CE4C901C0F
3A37461250676749028AEA861B1C162B3AD1CF4D8D7EDE9440935113B9C98D49
0AACB51D0D2829AB0135A0A48064751D811A505240B2BA8E400D282920599D50
0406FD62DB50B50280D7537FD910D2614F50D82847EB032CB04A06F6FCD54BCC
DB8EF1A2331A489CB412874FA0E2351A87F7D66E9138E038380B7D16B2F42138
8EA40228566D61FE78D043885FE1788C54F09ABF045647F6C26AF139713553B1
40E6D845184D65C861DC903A9EFE422DA005A808FC06CCF27629247BBF9F0000
000049454E44AE426082
}
BitmapLayout = d2GlyphCenter
BitmapSize = 40
......@@ -476,7 +478,7 @@ object FormHome: TFormHome
end
object lblLoginUser: TD2Label
Align = vaRight
Position.Point = '(1060,0)'
Position.Point = '(1050,0)'
Width = 200
Height = 64
Padding.Rect = '(0,0,16,0)'
......@@ -4101,7 +4103,7 @@ object FormHome: TFormHome
000000000000F005400648656967687405000000000000008803400C50616464
696E672E52656374060928302C322C302C32290C436C69704368696C6472656E
09000C54443252656374616E676C650005416C69676E070C7661486F72697A6F
6E74616C0E506F736974696F6E2E506F696E74060628312C393429064C6F636B
6E74616C0E506F736974696F6E2E506F696E74060628312C393829064C6F636B
6564090557696474680500000000000000EC0540064865696768740500000000
000000E404400C50616464696E672E52656374060928312C312C312C31290748
697454657374080A46696C6C2E5374796C65070F643242727573684772616469
......
frmhome.pas
View file @ c1825019
......@@ -314,8 +314,16 @@ uses
procedure TFormHome.FormCreate(Sender: TObject);
var
i, j: Integer;
AScale: Double;
begin
TConfigReader.SetScale(1.0);
TConfigReader.LoadScale();
AScale:= TConfigReader.GetScale();
self.Width:= Trunc(1330 * AScale);
self.Height:= Trunc(880 * AScale);
Root.Scale.X:= AScale;
Root.Scale.Y:= AScale;
FPuzzle := nil;
FSaved:= True;
FFilePath:= '';
......@@ -433,6 +441,7 @@ end;
procedure TFormHome.FormDestroy(Sender: TObject);
begin
TConfigReader.SaveScale();
if FPuzzle <> nil then begin
FPuzzle.Free;
end;
......@@ -549,10 +558,7 @@ begin
minH := self.Constraints.MinHeight;
minW:= Self.Constraints.MinWidth;
ARate:= (minW * 1.0) / (minH * 1.0); // w/h
if (Self.Width / self.Height > ARate) then begin
Self.Height:= Trunc(Self.Width / ARate);
// self.Width:= Trunc(self.Height * ARate);
end else if (self.Width / self.Height < ARate) then begin
if (Self.Width / self.Height <> ARate) then begin
Self.Height:= Trunc(Self.Width / ARate);
// self.Width:= Trunc(self.Height * ARate);
end;
......@@ -565,8 +571,8 @@ end;
procedure TFormHome.FormShow(Sender: TObject);
begin
self.Constraints.MinHeight:= Trunc(Panel2.Position.Y + Panel2.Height + 32);
self.Constraints.MinWidth:= Trunc(Panel2.Position.X + Panel2.Width + 32);;
// self.Constraints.MinHeight:= Trunc(Panel2.Position.Y + Panel2.Height + 32);
// self.Constraints.MinWidth:= Trunc(Panel2.Position.X + Panel2.Width + 32);
end;
function TFormHome.CheckSaved(AIsNew: Boolean): Boolean;
......@@ -599,7 +605,7 @@ begin
item := TCardListItemOp.Create(lstCardList);
item.CardName:= c.CardName;
item.Id:= c.CardId;
item.Card := c;
item.SetCardForFree(c, False);
item.Index:= lstCardList.Count - 1;
item.OnDelete:= currentCardListDelete;
item.OnCardAddOneClicked:= currentCardListAddOne;
......@@ -635,6 +641,7 @@ begin
for j := 0 to lstCardList.Count - 1 do begin
item := TCardListItemOp(lstCardList.Items[j]);
if (item.Id = ACardId) and (item.Index = AIndex) then begin
c.Free;
FCurrentCardList.Delete(i);
item.Free;
Break;
......@@ -1012,7 +1019,7 @@ begin
item := TCardListItemOp.Create(lstCardList);
item.CardName:= FCurrentCardList[i].CardName;
item.Id:= FCurrentCardList[i].CardId;
item.Card := FCurrentCardList[i];
item.SetCardForFree(FCurrentCardList[i], False);
item.Index:= i;
if (FFieldInfo.Location = clGrave) then begin
// only face up
......@@ -1292,7 +1299,7 @@ begin
item := TCardListItemOp.Create(lstCardList);
item.CardName:= c.CardName;
item.Id:= cid;
item.Card := c;
item.SetCardForFree(c, False);
item.Index:= lstCardList.Count - 1;
item.OnDelete:= currentCardListDelete;
item.OnCardAddOneClicked:= currentCardListAddOne;
......
untconfig.pas
View file @ c1825019
......@@ -20,6 +20,8 @@ type
class function GetMDPro3InstallPath(): string;
class procedure SetScale(AScale: Double);
class function GetScale(): Double;
class procedure SaveScale();
class procedure LoadScale();
class function GetSearchHistory(): TStringArray;
class procedure SetSearchHistory(Arr: TStringArray);
end;
......@@ -102,6 +104,28 @@ begin
Exit(FScale);
end;
class procedure TConfigReader.SaveScale();
var
ACfgPath: string;
ini: TIniFile;
begin
ACfgPath:= ChangeFileExt(Application.ExeName, '.conf');
ini := TIniFile.Create(ACfgPath);
ini.WriteFloat('SCALE', 'value', FScale);
ini.Free;
end;
class procedure TConfigReader.LoadScale();
var
ACfgPath: string;
ini: TIniFile;
begin
ACfgPath:= ChangeFileExt(Application.ExeName, '.conf');
ini := TIniFile.Create(ACfgPath);
FScale:= ini.ReadFloat('SCALE', 'value', 1.0);
ini.Free;
end;
class function TConfigReader.GetSearchHistory(): TStringArray;
var
ACfgPath: string;
......
untlistitem.pas
View file @ c1825019
......@@ -51,6 +51,7 @@ type
FBtnAddOne: TD2RoundButton;
FbtnFace: TD2CornerButton;
FBtnDel: TD2CornerButton;
FNeedFree: Boolean;
procedure innerBtnAddOneClick(Sender: TObject);
procedure innerBtnDelClick(Sender: TObject);
procedure innerBtnFaceClick(Sender: TObject);
......@@ -63,6 +64,7 @@ type
public
constructor Create(AOwner: TComponent); Override;
destructor Destroy; Override;
procedure SetCardForFree(ACard: TCard; AFree: Boolean);
published
property Id: Int64 read FId write SetId;
property CardName: string read FCardName write SetCardName;
......@@ -284,6 +286,12 @@ begin
end;
end;
procedure TCardListItemOp.SetCardForFree(ACard: TCard; AFree: Boolean);
begin
FCard := ACard;
FNeedFree:= AFree;
end;
procedure TCardListItemOp.SetId(AValue: Int64);
var
AImgPath: string;
......@@ -327,6 +335,8 @@ begin
Parent := TD2Object(AOwner);
Align:= vaTop;
FNeedFree := False;
Width:= 500;
Height:= 75;
......@@ -398,6 +408,9 @@ end;
destructor TCardListItemOp.Destroy;
begin
if (FNeedFree) then begin
FCard.Free;
end;
FImg.Free;
FLbl.Free;
FBtnDel.Free;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment