📄 buttons.pas
字号:
|
00456244 E87BD0FAFF call 004032C4
00456249 648F0500000000 pop dword ptr fs:[$00000000]
00456250 83C40C add esp, +$0C
00456253 8BC6 mov eax, esi
00456255 5E pop esi
00456256 5B pop ebx
00456257 C3 ret
*)
end;
procedure TGlyphList._PROC_00456258(Sender : TObject);
begin
(*
00456258 53 push ebx
00456259 56 push esi
* Reference to: System.Proc_004032CC
|
0045625A E86DD0FAFF call 004032CC
0045625F 8BDA mov ebx, edx
00456261 8BF0 mov esi, eax
* Reference to field TGlyphList.OFFS_0004
|
00456263 8B4604 mov eax, [esi+$04]
* Reference to: System.Proc_00402F6C
|
00456266 E801CDFAFF call 00402F6C
0045626B 8BD3 mov edx, ebx
0045626D 80E2FC and dl, $FC
00456270 8BC6 mov eax, esi
* Reference to: System.Proc_00402F5C
|
00456272 E8E5CCFAFF call 00402F5C
00456277 84DB test bl, bl
00456279 7E07 jle 00456282
0045627B 8BC6 mov eax, esi
* Reference to: System.Proc_004032BC
|
0045627D E83AD0FAFF call 004032BC
00456282 5E pop esi
00456283 5B pop ebx
00456284 C3 ret
*)
end;
procedure TGlyphList._PROC_00456288(Sender : TObject);
begin
(*
00456288 53 push ebx
00456289 56 push esi
0045628A 57 push edi
0045628B 55 push ebp
0045628C 51 push ecx
0045628D 890C24 mov [esp], ecx
00456290 8BEA mov ebp, edx
00456292 8BF8 mov edi, eax
00456294 8B4704 mov eax, [edi+$04]
* Reference to field TGlyphList.OFFS_0008
|
00456297 8B7008 mov esi, [eax+$08]
0045629A 4E dec esi
0045629B 83FE00 cmp esi, +$00
0045629E 7C1F jl 004562BF
004562A0 8B4704 mov eax, [edi+$04]
004562A3 8BD6 mov edx, esi
* Reference to: Classes.Proc_00411ADC
|
004562A5 E832B8FBFF call 00411ADC
004562AA 8BD8 mov ebx, eax
* Reference to field TGlyphList.OFFS_0028
|
004562AC 3B6B28 cmp ebp, [ebx+$28]
004562AF 7508 jnz 004562B9
004562B1 8B0424 mov eax, [esp]
* Reference to field TGlyphList.OFFS_0024
|
004562B4 3B4324 cmp eax, [ebx+$24]
004562B7 7424 jz 004562DD
004562B9 4E dec esi
004562BA 83FEFF cmp esi, -$01
004562BD 75E1 jnz 004562A0
004562BF 8B0424 mov eax, [esp]
004562C2 50 push eax
004562C3 8BCD mov ecx, ebp
004562C5 B201 mov dl, $01
* Reference to class TGlyphList
|
004562C7 A1945F4500 mov eax, dword ptr [$00455F94]
* Reference to: Buttons.Proc_00456100
|
004562CC E82FFEFFFF call 00456100
004562D1 8BD8 mov ebx, eax
004562D3 8B4704 mov eax, [edi+$04]
004562D6 8BD3 mov edx, ebx
* Reference to: Classes.Proc_00411930
|
004562D8 E853B6FBFF call 00411930
004562DD 8BC3 mov eax, ebx
004562DF 5A pop edx
004562E0 5D pop ebp
004562E1 5F pop edi
004562E2 5E pop esi
004562E3 5B pop ebx
004562E4 C3 ret
*)
end;
procedure TGlyphList._PROC_004562E8(Sender : TObject);
begin
(*
004562E8 53 push ebx
004562E9 8BDA mov ebx, edx
004562EB 85DB test ebx, ebx
004562ED 7417 jz 00456306
004562EF 837B7C00 cmp dword ptr [ebx+$7C], +$00
004562F3 7511 jnz 00456306
004562F5 8BD3 mov edx, ebx
* Reference to field TGlyphList.OFFS_0004
|
004562F7 8B4004 mov eax, [eax+$04]
* Reference to: Classes.Proc_00411C74
|
004562FA E875B9FBFF call 00411C74
004562FF 8BC3 mov eax, ebx
* Reference to: System.Proc_00402F6C
|
00456301 E866CCFAFF call 00402F6C
00456306 5B pop ebx
00456307 C3 ret
*)
end;
procedure TGlyphList._PROC_00456308(Sender : TObject);
begin
(*
* Reference to field TGlyphList.OFFS_0004
|
00456308 8B4004 mov eax, [eax+$04]
0045630B 83780800 cmp dword ptr [eax+$08], +$00
0045630F 0F94C0 setz al
00456312 C3 ret
*)
end;
procedure TGlyphList._PROC_00456314(Sender : TObject);
begin
(*
00456314 55 push ebp
00456315 8BEC mov ebp, esp
00456317 51 push ecx
00456318 53 push ebx
00456319 56 push esi
0045631A 84D2 test dl, dl
0045631C 7408 jz 00456326
0045631E 83C4F0 add esp, -$10
* Reference to: System.Proc_0040326C
|
00456321 E846CFFAFF call 0040326C
00456326 8855FF mov [ebp-$01], dl
00456329 8BD8 mov ebx, eax
0045632B 33D2 xor edx, edx
0045632D 8BC3 mov eax, ebx
* Reference to: System.Proc_00402F3C
|
0045632F E808CCFAFF call 00402F3C
00456334 B201 mov dl, $01
* Reference to class TBitmap
|
00456336 A1A48E4100 mov eax, dword ptr [$00418EA4]
* Reference to : TBitmapCanvas._PROC_0041EA10()
|
0045633B E8D086FCFF call 0041EA10
00456340 8BF0 mov esi, eax
* Reference to field TGlyphList.OFFS_0004
|
00456342 897304 mov [ebx+$04], esi
* Reference to field TBitmap.OFFS_000C
|
00456345 895E0C mov [esi+$0C], ebx
* Reference to field TBitmap.OFFS_0008
|
00456348 C746084C644500 mov dword ptr [esi+$08], $0045644C
* Reference to field TGlyphList.OFFS_001C
|
0045634F C7431C80800000 mov dword ptr [ebx+$1C], $00008080
* Reference to field TGlyphList.OFFS_0020
|
00456356 C6432001 mov byte ptr [ebx+$20], $01
0045635A 33C0 xor eax, eax
0045635C 33D2 xor edx, edx
0045635E 8AD0 mov dl, al
00456360 C744930CFFFFFFFF mov dword ptr [ebx+edx*4+$0C], $FFFFFFFF
00456368 40 inc eax
00456369 3C04 cmp al, $04
0045636B 75EF jnz 0045635C
0045636D 833DEC0C500000 cmp dword ptr [$00500CEC], +$00
00456374 7511 jnz 00456387
00456376 B201 mov dl, $01
* Reference to class TGlyphCache
|
00456378 A14C604500 mov eax, dword ptr [$0045604C]
* Reference to : TGlyphList._PROC_00456214()
|
0045637D E892FEFFFF call 00456214
00456382 A3EC0C5000 mov dword ptr [$00500CEC], eax
00456387 8BC3 mov eax, ebx
00456389 807DFF00 cmp byte ptr [ebp-$01], $00
0045638D 740F jz 0045639E
* Reference to: System.Proc_004032C4
|
0045638F E830CFFAFF call 004032C4
00456394 648F0500000000 pop dword ptr fs:[$00000000]
0045639B 83C40C add esp, +$0C
0045639E 8BC3 mov eax, ebx
004563A0 5E pop esi
004563A1 5B pop ebx
004563A2 59 pop ecx
004563A3 5D pop ebp
004563A4 C3 ret
*)
end;
procedure TGlyphList._PROC_004563A8(Sender : TObject);
begin
(*
004563A8 53 push ebx
004563A9 56 push esi
* Reference to: System.Proc_004032CC
|
004563AA E81DCFFAFF call 004032CC
004563AF 8BDA mov ebx, edx
004563B1 8BF0 mov esi, eax
* Reference to field TGlyphList.OFFS_0004
|
004563B3 8B4604 mov eax, [esi+$04]
* Reference to: System.Proc_00402F6C
|
004563B6 E8B1CBFAFF call 00402F6C
004563BB 8BC6 mov eax, esi
* Reference to : TGlyphList._PROC_00456404()
|
004563BD E842000000 call 00456404
004563C2 833DEC0C500000 cmp dword ptr [$00500CEC], +$00
004563C9 741F jz 004563EA
004563CB A1EC0C5000 mov eax, dword ptr [$00500CEC]
* Reference to : TGlyphList._PROC_00456308()
|
004563D0 E833FFFFFF call 00456308
004563D5 84C0 test al, al
004563D7 7411 jz 004563EA
004563D9 A1EC0C5000 mov eax, dword ptr [$00500CEC]
* Reference to: System.Proc_00402F6C
|
004563DE E889CBFAFF call 00402F6C
004563E3 33C0 xor eax, eax
004563E5 A3EC0C5000 mov dword ptr [$00500CEC], eax
004563EA 8BD3 mov edx, ebx
004563EC 80E2FC and dl, $FC
004563EF 8BC6 mov eax, esi
* Reference to: System.Proc_00402F5C
|
004563F1 E866CBFAFF call 00402F5C
004563F6 84DB test bl, bl
004563F8 7E07 jle 00456401
004563FA 8BC6 mov eax, esi
* Reference to: System.Proc_004032BC
|
004563FC E8BBCEFAFF call 004032BC
00456401 5E pop esi
00456402 5B pop ebx
00456403 C3 ret
*)
end;
procedure TGlyphList._PROC_00456404(Sender : TObject);
begin
(*
00456404 53 push ebx
00456405 56 push esi
00456406 57 push edi
00456407 8BF0 mov esi, eax
00456409 33DB xor ebx, ebx
0045640B 8BFB mov edi, ebx
0045640D 83E77F and edi, +$7F
00456410 8B44BE0C mov eax, [esi+edi*4+$0C]
00456414 83F8FF cmp eax, -$01
00456417 740E jz 00456427
00456419 33D2 xor edx, edx
0045641B 8AD3 mov dl, bl
0045641D 8BD0 mov edx, eax
* Reference to field TGlyphList.OFFS_0008
|
0045641F 8B4608 mov eax, [esi+$08]
* Reference to : TGlyphList._PROC_004561EC()
|
00456422 E8C5FDFFFF call 004561EC
00456427 C744BE0CFFFFFFFF mov dword ptr [esi+edi*4+$0C], $FFFFFFFF
0045642F 43 inc ebx
00456430 80FB04 cmp bl, $04
00456433 75D6 jnz 0045640B
* Reference to field TGlyphList.OFFS_0008
|
00456435 8B5608 mov edx, [esi+$08]
00456438 A1EC0C5000 mov eax, dword ptr [$00500CEC]
* Reference to : TGlyphList._PROC_004562E8()
|
0045643D E8A6FEFFFF call 004562E8
00456442 33C0 xor eax, eax
* Reference to field TGlyphList.OFFS_0008
|
00456444 894608 mov [esi+$08], eax
00456447 5F pop edi
00456448 5E pop esi
00456449 5B pop ebx
0045644A C3 ret
*)
end;
procedure TGlyphList._PROC_0045644C(Sender : TObject);
begin
(*
0045644C 53 push ebx
0045644D 56 push esi
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -