/ io Programmo 23 / IOPROG_23.ISO / SOFT / EDCLEAR.ZIP / Example / MainUnit.dcu

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 86 51 44 92 0a 00 00 | 33 b7 6e 25 7a 58 f4 fa |A.QD....|3.n%zX..|
|00000010| 00 96 00 70 0c 4d 61 69 | 6e 55 6e 69 74 2e 70 61 |...p.Mai|nUnit.pa|
|00000020| 73 2e b7 6e 25 00 72 0c | 4d 61 69 6e 55 6e 69 74 |s..n%.r.|MainUnit|
|00000030| 2e 44 46 4d 15 b7 6e 25 | 02 64 0a 48 51 43 6c 65 |.DFM..n%|.d.HQCle|
|00000040| 61 72 41 6c 6c 3a 0b f4 | fa 66 0b 54 48 51 43 6c |arAll:..|.f.THQCl|
|00000050| 65 61 72 41 6c 6c 4b df | 7a 1f 67 0c 2e 54 48 51 |earAllK.|z.g..THQ|
|00000060| 43 6c 65 61 72 41 6c 6c | 24 b0 9b e3 67 16 54 48 |ClearAll|$...g.TH|
|00000070| 51 43 6c 65 61 72 41 6c | 6c 2e 53 65 74 4f 70 74 |QClearAl|l.SetOpt|
|00000080| 69 6f 6e 73 ef c2 ed 23 | 67 11 54 48 51 43 6c 65 |ions...#|g.THQCle|
|00000090| 61 72 41 6c 6c 2e 53 74 | 61 72 74 ef c2 ed 23 67 |arAll.St|art...#g|
|000000a0| 13 54 48 51 43 6c 65 61 | 72 41 6c 6c 2e 53 65 74 |.THQClea|rAll.Set|
|000000b0| 54 65 78 74 ef c2 ed 23 | 63 64 08 53 74 64 43 74 |Text...#|cd.StdCt|
|000000c0| 72 6c 73 c7 1e 63 26 66 | 05 54 45 64 69 74 2b fa |rls..c&f|.TEdit+.|
|000000d0| 62 2e 66 07 54 42 75 74 | 74 6f 6e dd 95 1b ea 67 |b.f.TBut|ton....g|
|000000e0| 06 2e 54 45 64 69 74 04 | cb 83 f2 67 08 2e 54 42 |..TEdit.|...g..TB|
|000000f0| 75 74 74 6f 6e b6 66 3c | ae 63 64 07 44 69 61 6c |utton.f<|.cd.Dial|
|00000100| 6f 67 73 c7 1e 63 26 63 | 64 05 46 6f 72 6d 73 c7 |ogs..c&c|d.Forms.|
|00000110| 1e 63 26 66 05 54 46 6f | 72 6d 48 d7 cb 29 67 06 |.c&f.TFo|rmH..)g.|
|00000120| 2e 54 46 6f 72 6d 21 a8 | ec ed 67 19 54 43 75 73 |.TForm!.|..g.TCus|
|00000130| 74 6f 6d 46 6f 72 6d 2e | 41 6c 69 67 6e 43 6f 6e |tomForm.|AlignCon|
|00000140| 74 72 6f 6c 73 ef c2 ed | 23 67 18 54 43 75 73 74 |trols...|#g.TCust|
|00000150| 6f 6d 46 6f 72 6d 2e 43 | 72 65 61 74 65 50 61 72 |omForm.C|reatePar|
|00000160| 61 6d 73 ef c2 ed 23 67 | 1e 54 43 75 73 74 6f 6d |ams...#g|.TCustom|
|00000170| 46 6f 72 6d 2e 43 72 65 | 61 74 65 57 69 6e 64 6f |Form.Cre|ateWindo|
|00000180| 77 48 61 6e 64 6c 65 ef | c2 ed 23 67 15 54 43 75 |wHandle.|..#g.TCu|
|00000190| 73 74 6f 6d 46 6f 72 6d | 2e 43 72 65 61 74 65 57 |stomForm|.CreateW|
|000001a0| 6e 64 ef c2 ed 23 67 1a | 54 43 75 73 74 6f 6d 46 |nd...#g.|TCustomF|
|000001b0| 6f 72 6d 2e 44 65 66 61 | 75 6c 74 48 61 6e 64 6c |orm.Defa|ultHandl|
|000001c0| 65 72 ef c2 ed 23 67 1c | 54 43 75 73 74 6f 6d 46 |er...#g.|TCustomF|
|000001d0| 6f 72 6d 2e 44 65 66 69 | 6e 65 50 72 6f 70 65 72 |orm.Defi|neProper|
|000001e0| 74 69 65 73 ef c2 ed 23 | 67 1f 54 43 75 73 74 6f |ties...#|g.TCusto|
|000001f0| 6d 46 6f 72 6d 2e 44 65 | 73 74 72 6f 79 57 69 6e |mForm.De|stroyWin|
|00000200| 64 6f 77 48 61 6e 64 6c | 65 ef c2 ed 23 67 19 54 |dowHandl|e...#g.T|
|00000210| 43 75 73 74 6f 6d 46 6f | 72 6d 2e 47 65 74 43 6c |CustomFo|rm.GetCl|
|00000220| 69 65 6e 74 52 65 63 74 | ef c2 ed 23 67 12 54 43 |ientRect|...#g.TC|
|00000230| 75 73 74 6f 6d 46 6f 72 | 6d 2e 4c 6f 61 64 65 64 |ustomFor|m.Loaded|
|00000240| ef c2 ed 23 67 18 54 43 | 75 73 74 6f 6d 46 6f 72 |...#g.TC|ustomFor|
|00000250| 6d 2e 4e 6f 74 69 66 69 | 63 61 74 69 6f 6e ef c2 |m.Notifi|cation..|
|00000260| ed 23 67 17 54 43 75 73 | 74 6f 6d 46 6f 72 6d 2e |.#g.TCus|tomForm.|
|00000270| 50 61 69 6e 74 57 69 6e | 64 6f 77 ef c2 ed 23 67 |PaintWin|dow...#g|
|00000280| 15 54 43 75 73 74 6f 6d | 46 6f 72 6d 2e 52 65 61 |.TCustom|Form.Rea|
|00000290| 64 53 74 61 74 65 ef c2 | ed 23 67 15 54 43 75 73 |dState..|.#g.TCus|
|000002a0| 74 6f 6d 46 6f 72 6d 2e | 53 65 74 50 61 72 65 6e |tomForm.|SetParen|
|000002b0| 74 ef c2 ed 23 67 1a 54 | 43 75 73 74 6f 6d 46 6f |t...#g.T|CustomFo|
|000002c0| 72 6d 2e 56 61 6c 69 64 | 61 74 65 52 65 6e 61 6d |rm.Valid|ateRenam|
|000002d0| 65 ef c2 ed 23 67 13 54 | 43 75 73 74 6f 6d 46 6f |e...#g.T|CustomFo|
|000002e0| 72 6d 2e 57 6e 64 50 72 | 6f 63 ef c2 ed 23 67 12 |rm.WndPr|oc...#g.|
|000002f0| 54 43 75 73 74 6f 6d 46 | 6f 72 6d 2e 43 72 65 61 |TCustomF|orm.Crea|
|00000300| 74 65 ef c2 ed 23 67 13 | 54 43 75 73 74 6f 6d 46 |te...#g.|TCustomF|
|00000310| 6f 72 6d 2e 44 65 73 74 | 72 6f 79 ef c2 ed 23 67 |orm.Dest|roy...#g|
|00000320| 14 54 43 75 73 74 6f 6d | 46 6f 72 6d 2e 53 65 74 |.TCustom|Form.Set|
|00000330| 46 6f 63 75 73 ef c2 ed | 23 67 18 54 43 75 73 74 |Focus...|#g.TCust|
|00000340| 6f 6d 46 6f 72 6d 2e 57 | 61 6e 74 43 68 69 6c 64 |omForm.W|antChild|
|00000350| 4b 65 79 ef c2 ed 23 63 | 64 08 43 6f 6e 74 72 6f |Key...#c|d.Contro|
|00000360| 6c 73 c7 1e 63 26 67 18 | 54 57 69 6e 43 6f 6e 74 |ls..c&g.|TWinCont|
|00000370| 72 6f 6c 2e 43 72 65 61 | 74 65 48 61 6e 64 6c 65 |rol.Crea|teHandle|
|00000380| ef c2 ed 23 67 16 54 57 | 69 6e 43 6f 6e 74 72 6f |...#g.TW|inContro|
|00000390| 6c 2e 44 65 73 74 72 6f | 79 57 6e 64 ef c2 ed 23 |l.Destro|yWnd...#|
|000003a0| 67 1b 54 57 69 6e 43 6f | 6e 74 72 6f 6c 2e 47 65 |g.TWinCo|ntrol.Ge|
|000003b0| 74 43 6c 69 65 6e 74 4f | 72 69 67 69 6e ef c2 ed |tClientO|rigin...|
|000003c0| 23 67 1c 54 57 69 6e 43 | 6f 6e 74 72 6f 6c 2e 47 |#g.TWinC|ontrol.G|
|000003d0| 65 74 44 65 76 69 63 65 | 43 6f 6e 74 65 78 74 ef |etDevice|Context.|
|000003e0| c2 ed 23 67 17 54 57 69 | 6e 43 6f 6e 74 72 6f 6c |..#g.TWi|nControl|
|000003f0| 2e 53 68 6f 77 43 6f 6e | 74 72 6f 6c ef c2 ed 23 |.ShowCon|trol...#|
|00000400| 67 16 54 57 69 6e 43 6f | 6e 74 72 6f 6c 2e 49 6e |g.TWinCo|ntrol.In|
|00000410| 76 61 6c 69 64 61 74 65 | ef c2 ed 23 67 13 54 57 |validate|...#g.TW|
|00000420| 69 6e 43 6f 6e 74 72 6f | 6c 2e 52 65 70 61 69 6e |inContro|l.Repain|
|00000430| 74 ef c2 ed 23 67 15 54 | 57 69 6e 43 6f 6e 74 72 |t...#g.T|WinContr|
|00000440| 6f 6c 2e 53 65 74 42 6f | 75 6e 64 73 ef c2 ed 23 |ol.SetBo|unds...#|
|00000450| 67 12 54 57 69 6e 43 6f | 6e 74 72 6f 6c 2e 55 70 |g.TWinCo|ntrol.Up|
|00000460| 64 61 74 65 ef c2 ed 23 | 67 16 54 43 6f 6e 74 72 |date...#|g.TContr|
|00000470| 6f 6c 2e 47 65 74 44 72 | 61 67 49 6d 61 67 65 73 |ol.GetDr|agImages|
|00000480| ef c2 ed 23 67 14 54 43 | 6f 6e 74 72 6f 6c 2e 53 |...#g.TC|ontrol.S|
|00000490| 65 74 44 72 61 67 4d 6f | 64 65 ef c2 ed 23 67 10 |etDragMo|de...#g.|
|000004a0| 54 43 6f 6e 74 72 6f 6c | 2e 53 65 74 4e 61 6d 65 |TControl|.SetName|
|000004b0| ef c2 ed 23 63 64 08 47 | 72 61 70 68 69 63 73 c7 |...#cd.G|raphics.|
|000004c0| 1e 63 26 63 64 07 43 6c | 61 73 73 65 73 c7 1e 63 |.c&cd.Cl|asses..c|
|000004d0| 26 67 15 54 43 6f 6d 70 | 6f 6e 65 6e 74 2e 57 72 |&g.TComp|onent.Wr|
|000004e0| 69 74 65 53 74 61 74 65 | ef c2 ed 23 67 1c 54 43 |iteState|...#g.TC|
|000004f0| 6f 6d 70 6f 6e 65 6e 74 | 2e 53 61 66 65 43 61 6c |omponent|.SafeCal|
|00000500| 6c 45 78 63 65 70 74 69 | 6f 6e ef c2 ed 23 67 14 |lExcepti|on...#g.|
|00000510| 54 50 65 72 73 69 73 74 | 65 6e 74 2e 41 73 73 69 |TPersist|ent.Assi|
|00000520| 67 6e 54 6f ef c2 ed 23 | 67 12 54 50 65 72 73 69 |gnTo...#|g.TPersi|
|00000530| 73 74 65 6e 74 2e 41 73 | 73 69 67 6e ef c2 ed 23 |stent.As|sign...#|
|00000540| 63 64 08 53 79 73 55 74 | 69 6c 73 ed 6b 85 9a 63 |cd.SysUt|ils.k..c|
|00000550| 64 08 4d 65 73 73 61 67 | 65 73 ed 6b 85 9a 63 64 |d.Messag|es.k..cd|
|00000560| 07 57 69 6e 64 6f 77 73 | ed 6b 85 9a 63 64 07 53 |.Windows|.k..cd.S|
|00000570| 79 73 49 6e 69 74 ed 6b | 85 9a 63 64 06 53 79 73 |ysInit.k|..cd.Sys|
|00000580| 74 65 6d ed 6b 85 9a 66 | 07 54 4f 62 6a 65 63 74 |tem.k..f|.TObject|
|00000590| e2 92 21 8a 67 13 54 4f | 62 6a 65 63 74 2e 4e 65 |..!.g.TO|bject.Ne|
|000005a0| 77 49 6e 73 74 61 6e 63 | 65 ef c2 ed 23 67 14 54 |wInstanc|e...#g.T|
|000005b0| 4f 62 6a 65 63 74 2e 46 | 72 65 65 49 6e 73 74 61 |Object.F|reeInsta|
|000005c0| 6e 63 65 ef c2 ed 23 67 | 05 46 61 6c 73 65 b9 6a |nce...#g|.False.j|
|000005d0| ca 51 67 04 54 72 75 65 | ba 6a ca 51 66 06 53 74 |.Qg.True|.j.Qf.St|
|000005e0| 72 69 6e 67 84 1a 48 44 | 66 0a 41 6e 73 69 53 74 |ring..HD|f.AnsiSt|
|000005f0| 72 69 6e 67 84 1a 48 44 | 67 0e 40 48 61 6e 64 6c |ring..HD|g.@Handl|
|00000600| 65 46 69 6e 61 6c 6c 79 | f7 9f f8 51 63 26 06 2e |eFinally|...Qc&..|
|00000610| 54 4d 61 69 6e 80 99 1a | 26 dc 10 00 2a 05 54 4d |TMain...|&...*.TM|
|00000620| 61 69 6e 88 c0 49 05 18 | 12 20 04 4d 61 69 6e e6 |ain..I..|. .Main.|
|00000630| ce af 1e 18 12 34 20 02 | 2e 31 66 14 00 28 12 54 |.....4 .|.1f..(.T|
|00000640| 4d 61 69 6e 2e 42 75 74 | 74 6f 6e 31 43 6c 69 63 |Main.But|ton1Clic|
|00000650| 6b 80 ef c2 ed 23 00 3a | 08 16 21 04 53 65 6c 66 |k....#.:|..!.Self|
|00000660| 16 12 06 21 06 53 65 6e | 64 65 72 16 0a 02 63 28 |...!.Sen|der...c(|
|00000670| 12 54 4d 61 69 6e 2e 42 | 75 74 74 6f 6e 32 43 6c |.TMain.B|utton2Cl|
|00000680| 69 63 6b 80 ef c2 ed 23 | 00 80 08 16 21 04 53 65 |ick....#|....!.Se|
|00000690| 6c 66 16 12 06 21 06 53 | 65 6e 64 65 72 16 0a 02 |lf...!.S|ender...|
|000006a0| 63 28 0c 46 69 6e 61 6c | 69 7a 61 74 69 6f 6e 80 |c(.Final|ization.|
|000006b0| f7 9f f8 51 00 5c 21 20 | 16 63 28 08 4d 61 69 6e |...Q.\! |.c(.Main|
|000006c0| 55 6e 69 74 80 00 00 00 | 00 00 10 21 10 16 63 47 |Unit....|...!..cG|
|000006d0| 00 08 00 12 51 05 46 40 | 08 88 08 00 d1 07 86 40 |....Q.F@|.......@|
|000006e0| a8 76 06 00 2c 0b 48 51 | 43 6c 65 61 72 41 6c 6c |.v..,.HQ|ClearAll|
|000006f0| 31 14 02 71 07 2c 05 45 | 64 69 74 31 14 04 81 07 |1..q.,.E|dit1....|
|00000700| 2c 05 45 64 69 74 32 14 | 04 91 07 2c 05 45 64 69 |,.Edit2.|...,.Edi|
|00000710| 74 33 14 04 a1 07 2c 07 | 42 75 74 74 6f 6e 31 14 |t3....,.|Button1.|
|00000720| 06 b1 07 2c 07 42 75 74 | 74 6f 6e 32 14 06 c1 07 |...,.But|ton2....|
|00000730| 2d 0c 42 75 74 74 6f 6e | 31 43 6c 69 63 6b 14 f4 |-.Button|1Click..|
|00000740| 8e 2d 0c 42 75 74 74 6f | 6e 32 43 6c 69 63 6b 14 |.-.Butto|n2Click.|
|00000750| f4 94 63 44 00 08 00 14 | 0f 00 00 00 80 0f ff ff |..cD....|........|
|00000760| ff 7f 00 40 00 00 00 6c | 1d 08 40 00 00 00 00 00 |...@...l|..@.....|
|00000770| 00 00 00 00 00 00 00 00 | 00 00 04 00 00 00 c0 00 |........|........|
|00000780| 00 00 18 01 00 00 00 00 | 00 00 40 01 00 00 f4 01 |........|..@.....|
|00000790| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000800| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000810| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000820| 00 00 00 00 00 00 00 00 | 00 00 06 00 46 01 00 00 |........|....F...|
|00000830| dc 01 00 00 00 00 0b 48 | 51 43 6c 65 61 72 41 6c |.......H|QClearAl|
|00000840| 6c 31 e0 01 00 00 01 00 | 05 45 64 69 74 31 e4 01 |l1......|.Edit1..|
|00000850| 00 00 01 00 05 45 64 69 | 74 32 e8 01 00 00 01 00 |.....Edi|t2......|
|00000860| 05 45 64 69 74 33 ec 01 | 00 00 02 00 07 42 75 74 |.Edit3..|.....But|
|00000870| 74 6f 6e 31 f0 01 00 00 | 02 00 07 42 75 74 74 6f |ton1....|...Butto|
|00000880| 6e 32 02 00 13 00 00 00 | 00 00 0c 42 75 74 74 6f |n2......|...Butto|
|00000890| 6e 31 43 6c 69 63 6b 13 | 00 00 00 00 00 0c 42 75 |n1Click.|......Bu|
|000008a0| 74 74 6f 6e 32 43 6c 69 | 63 6b 05 54 4d 61 69 6e |tton2Cli|ck.TMain|
|000008b0| 03 00 00 00 00 00 00 00 | 00 00 00 00 00 00 04 00 |........|........|
|000008c0| 00 00 07 05 54 4d 61 69 | 6e 40 00 00 00 00 00 00 |....TMai|n@......|
|000008d0| 00 3b 00 08 4d 61 69 6e | 55 6e 69 74 00 00 53 8b |.;..Main|Unit..S.|
|000008e0| d8 33 d2 8b 83 dc 01 00 | 00 e8 00 00 00 00 8b 83 |.3......|........|
|000008f0| dc 01 00 00 e8 00 00 00 | 00 5b c3 53 8b d8 b2 01 |........|.[.S....|
|00000900| 8b 83 dc 01 00 00 e8 00 | 00 00 00 ba 38 00 00 00 |........|....8...|
|00000910| 8b 83 dc 01 00 00 e8 00 | 00 00 00 8b 83 dc 01 00 |........|........|
|00000920| 00 e8 00 00 00 00 5b c3 | 00 00 00 ff ff ff ff 05 |......[.|........|
|00000930| 00 00 00 43 6c 65 61 72 | 00 00 00 55 8b ec 33 c0 |...Clear|...U..3.|
|00000940| 55 68 25 00 00 00 64 ff | 30 64 89 20 ff 05 00 00 |Uh%...d.|0d. ....|
|00000950| 00 00 33 c0 5a 59 59 64 | 89 10 68 2c 00 00 00 c3 |..3.ZYYd|..h,....|
|00000960| e9 00 00 00 00 eb f8 5d | c3 83 2d 00 00 00 00 01 |.......]|..-.....|
|00000970| c3 6d 8c 00 05 86 00 01 | 86 20 01 88 08 01 86 08 |.m......|. ......|
|00000980| 01 86 10 01 86 10 01 1e | 08 01 66 08 01 28 08 01 |........|..f..(..|
|00000990| 78 08 01 7a 08 01 40 08 | 01 68 08 01 2a 08 01 6a |x..z..@.|.h..*..j|
|000009a0| 08 01 30 08 01 32 08 01 | 36 08 01 5e 08 01 3a 08 |..0..2..|6..^..:.|
|000009b0| 01 64 08 01 3e 08 01 4c | 08 01 2e 08 01 4e 08 01 |.d..>..L|.....N..|
|000009c0| 5a 08 01 5c 08 01 38 08 | 01 3c 08 01 52 08 01 54 |Z..\..8.|.<..R..T|
|000009d0| 08 01 56 08 01 58 08 01 | 20 08 01 48 08 01 22 08 |..V..X..| ..H..".|
|000009e0| 01 24 08 01 26 08 01 2c | 08 01 4a 08 01 34 08 01 |.$..&..,|..J..4..|
|000009f0| 50 08 01 42 08 01 44 0c | 01 86 b4 01 8e 26 01 94 |P..B..D.|.....&..|
|00000a00| 32 01 06 08 01 14 08 01 | 16 08 05 88 00 01 88 16 |2.......|........|
|00000a10| 01 86 08 01 1c 22 05 8e | 18 02 08 16 02 0a 0c 05 |....."..|........|
|00000a20| 94 18 02 08 0a 01 94 16 | 02 0c 16 02 0a 32 05 9a |........|.....2..|
|00000a30| 0e 01 9a 18 01 8c 1a 01 | 9a 0c 02 84 10 05 9c 04 |........|........|
|00000a40| 01 8c 0c 06 9c 90 14 42 | d1 05 02 06 02 1a 02 16 |.......B|........|
|00000a50| 06 04 02 06 02 1a 02 20 | 02 16 04 94 91 02 02 5c |....... |.......\|
|00000a60| 00 92 02 12 00 00 16 18 | 93 00 00 94 18 8e 40 00 |........|......@.|
|00000a70| 00 10 00 90 06 06 90 36 | fe 94 40 00 00 10 00 96 |.......6|..@.....|
|00000a80| 06 06 96 56 fe 9a 20 00 | 00 00 10 9c 20 00 00 00 |...V.. .|.... ...|
|00000a90| 00 61                   |                         |.a      |        |
+--------+-------------------------+-------------------------+--------+--------+