📄 jerect.pas
字号:
|
0063613E 8BB300030000 mov esi, [ebx+$0300]
00636144 8BC6 mov eax, esi
00636146 85C0 test eax, eax
00636148 7903 jns 0063614D
0063614A 83C003 add eax, +$03
0063614D C1F802 sar eax, $02
00636150 0345F4 add eax, [ebp-$0C]
00636153 50 push eax
00636154 D1FE sar esi, 1
00636156 7903 jns 0063615B
00636158 83D600 adc esi, +$00
0063615B 03FE add edi, esi
0063615D 57 push edi
0063615E 8BC3 mov eax, ebx
* Reference to: forms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
|
00636160 E8BBD9E1FF call 00453B20
* Reference to: graphics.TCanvas.GetHandle(TCanvas):HDC;
|
00636165 E8DE92DEFF call 0041F448
0063616A 50 push eax
* Reference to: gdi32.ExtTextOutA()
|
0063616B E88023DDFF call 004084F0
00636170 FF45F8 inc dword ptr [ebp-$08]
00636173 FF4DE0 dec dword ptr [ebp-$20]
00636176 0F85BCFCFFFF jnz 00635E38
0063617C FF45FC inc dword ptr [ebp-$04]
0063617F FF4DE4 dec dword ptr [ebp-$1C]
00636182 0F8596FCFFFF jnz 00635E1E
00636188 33C0 xor eax, eax
0063618A 5A pop edx
0063618B 59 pop ecx
0063618C 59 pop ecx
0063618D 648910 mov fs:[eax], edx
****** FINALLY
|
00636190 68A5616300 push $006361A5
00636195 8D45F0 lea eax, [ebp-$10]
* Reference to: system.@LStrClr(String;String);
|
00636198 E857DFDCFF call 004040F4
0063619D C3 ret
* Reference to: system.@HandleFinally;
|
0063619E E989D8DCFF jmp 00403A2C
006361A3 EBF0 jmp 00636195
****** END
|
006361A5 5F pop edi
006361A6 5E pop esi
006361A7 5B pop ebx
006361A8 8BE5 mov esp, ebp
006361AA 5D pop ebp
006361AB C3 ret
*)
end;
procedure TfrmJE.FormMouseDown(Sender : TObject);
begin
(*
006361B0 55 push ebp
006361B1 8BEC mov ebp, esp
006361B3 53 push ebx
006361B4 56 push esi
006361B5 8BF0 mov esi, eax
006361B7 33C0 xor eax, eax
006361B9 55 push ebp
006361BA 685B626300 push $0063625B
***** TRY
|
006361BF 64FF30 push dword ptr fs:[eax]
006361C2 648920 mov fs:[eax], esp
006361C5 84C9 test cl, cl
006361C7 0F8580000000 jnz 0063624D
006361CD 8B450C mov eax, [ebp+$0C]
006361D0 2B8604030000 sub eax, dword ptr [esi+$0304]
* Reference to field TfrmJE.OFFS_0300
|
006361D6 8B9E00030000 mov ebx, [esi+$0300]
006361DC 99 cdq
006361DD F7FB idiv ebx
006361DF 8BC8 mov ecx, eax
006361E1 8B4508 mov eax, [ebp+$08]
006361E4 2B8608030000 sub eax, dword ptr [esi+$0308]
006361EA 99 cdq
006361EB F7FB idiv ebx
006361ED 85C9 test ecx, ecx
006361EF 7C5C jl 0063624D
* Reference to field TfrmJE.OFFS_02FC
|
006361F1 3B8EFC020000 cmp ecx, [esi+$02FC]
006361F7 7D54 jnl 0063624D
006361F9 85C0 test eax, eax
006361FB 7C50 jl 0063624D
* Reference to field TfrmJE.OFFS_02FC
|
006361FD 3B86FC020000 cmp eax, [esi+$02FC]
00636203 7D48 jnl 0063624D
* Reference to field TfrmJE.OFFS_030C
|
00636205 898E0C030000 mov [esi+$030C], ecx
* Reference to field TfrmJE.OFFS_0310
|
0063620B 898610030000 mov [esi+$0310], eax
* Reference to control TfrmJE.MaskEdit1 : TMaskEdit
|
00636211 8B86DC020000 mov eax, [esi+$02DC]
* Reference to field TMaskEdit.Visible : Boolean
|
00636217 80784700 cmp byte ptr [eax+$47], $00
0063621B 7409 jz 00636226
0063621D 8BD6 mov edx, esi
0063621F 8BC6 mov eax, esi
* Reference to : TfrmJE.MaskEdit1Exit()
|
00636221 E85E050000 call 00636784
* Reference to control TfrmJE.MaskEdit2 : TMaskEdit
|
00636226 8B86E0020000 mov eax, [esi+$02E0]
* Reference to field TMaskEdit.Visible : Boolean
|
0063622C 80784700 cmp byte ptr [eax+$47], $00
00636230 7409 jz 0063623B
00636232 8BD6 mov edx, esi
00636234 8BC6 mov eax, esi
* Reference to : TfrmJE.MaskEdit2Exit()
|
00636236 E835060000 call 00636870
0063623B 8BC6 mov eax, esi
* Reference to : TfrmJE._PROC_00636268()
|
0063623D E826000000 call 00636268
00636242 8BC6 mov eax, esi
* Possible reference to dynamic method TfrmJE.OFFS_FFB0
|
00636244 66BBB0FF mov bx, $FFB0
* Reference to: system.@CallDynaInst;
|
00636248 E85BD2DCFF call 004034A8
0063624D 33C0 xor eax, eax
0063624F 5A pop edx
00636250 59 pop ecx
00636251 59 pop ecx
00636252 648910 mov fs:[eax], edx
****** FINALLY
|
00636255 6862626300 push $00636262
0063625A C3 ret
* Reference to: system.@HandleFinally;
|
0063625B E9CCD7DCFF jmp 00403A2C
00636260 EBF8 jmp 0063625A
****** END
|
00636262 5E pop esi
00636263 5B pop ebx
00636264 5D pop ebp
00636265 C20C00 ret $000C
*)
end;
procedure TfrmJE.FormKeyDown(Sender : TObject);
begin
(*
00636424 55 push ebp
00636425 8BEC mov ebp, esp
00636427 81C4ECFEFFFF add esp, $FFFFFEEC
0063642D 53 push ebx
0063642E 56 push esi
0063642F 57 push edi
00636430 33DB xor ebx, ebx
00636432 895DF8 mov [ebp-$08], ebx
00636435 895DF4 mov [ebp-$0C], ebx
00636438 894DFC mov [ebp-$04], ecx
0063643B 8BF0 mov esi, eax
0063643D 33C0 xor eax, eax
0063643F 55 push ebp
00636440 6872676300 push $00636772
***** TRY
|
00636445 64FF30 push dword ptr fs:[eax]
00636448 648920 mov fs:[eax], esp
0063644B F6450802 test byte ptr [ebp+$08], $02
0063644F 7423 jz 00636474
00636451 8B45FC mov eax, [ebp-$04]
00636454 66833848 cmp word ptr [eax], +$48
00636458 7409 jz 00636463
0063645A 8B45FC mov eax, [ebp-$04]
0063645D 66833810 cmp word ptr [eax], +$10
00636461 7511 jnz 00636474
* Reference to TApplication instance
|
00636463 A100D17700 mov eax, dword ptr [$0077D100]
00636468 8B00 mov eax, [eax]
0063646A BA35110000 mov edx, $00001135
* Reference to: forms.TApplication.HelpContext(TApplication;THelpContext):Boolean;
|
0063646F E80034E2FF call 00459874
00636474 8B45FC mov eax, [ebp-$04]
00636477 6683381B cmp word ptr [eax], +$1B
0063647B 7507 jnz 00636484
0063647D 8BC6 mov eax, esi
* Reference to: forms.TCustomForm.Close(TCustomForm);
|
0063647F E838FCE1FF call 004560BC
00636484 8B45FC mov eax, [ebp-$04]
00636487 66833870 cmp word ptr [eax], +$70
0063648B 7571 jnz 006364FE
* Reference to control TfrmJE.MaskEdit1 : TMaskEdit
|
0063648D 8B86DC020000 mov eax, [esi+$02DC]
* Reference to field TMaskEdit.Visible : Boolean
|
00636493 80784700 cmp byte ptr [eax+$47], $00
00636497 7565 jnz 006364FE
* Reference to control TfrmJE.MaskEdit2 : TMaskEdit
|
00636499 8B86E0020000 mov eax, [esi+$02E0]
* Reference to field TMaskEdit.Visible : Boolean
|
0063649F 80784700 cmp byte ptr [eax+$47], $00
006364A3 7559 jnz 006364FE
006364A5 B201 mov dl, $01
* Reference to control TfrmJE.MaskEdit1 : TMaskEdit
|
006364A7 8B86DC020000 mov eax, [esi+$02DC]
* Reference to: controls.TControl.SetVisible(TControl;Boolean);
|
006364AD E8B634E0FF call 00439968
006364B2 D98614030000 fld dword ptr [esi+$0314]
006364B8 83C4F4 add esp, -$0C
006364BB DB3C24 fstp tbyte ptr [esp]
006364BE 9B wait
006364BF 8D8DECFEFFFF lea ecx, [ebp+$FFFFFEEC]
006364C5 BA02000000 mov edx, $00000002
006364CA B805000000 mov eax, $00000005
* Reference to: system.@Str2Ext;
|
006364CF E8230EDDFF call 004072F7
006364D4 8D95ECFEFFFF lea edx, [ebp+$FFFFFEEC]
006364DA 8D45F8 lea eax, [ebp-$08]
* Reference to: system.@LStrFromString(String;String;ShortString;ShortString);
|
006364DD E836DEDCFF call 00404318
006364E2 8B55F8 mov edx, [ebp-$08]
* Reference to control TfrmJE.MaskEdit1 : TMaskEdit
|
006364E5 8B86DC020000 mov eax, [esi+$02DC]
* Reference to: mask.TCustomMaskEdit.SetText(TCustomMaskEdit;AnsiString);
|
006364EB E86C2FEBFF call 004E945C
* Reference to control TfrmJE.MaskEdit1 : TMaskEdit
|
006364F0 8B86DC020000 mov eax, [esi+$02DC]
006364F6 8B10 mov edx, [eax]
* Reference to method TMaskEdit.SetFocus()
|
006364F8 FF92B0000000 call dword ptr [edx+$00B0]
006364FE 8B45FC mov eax, [ebp-$04]
00636501 66833871 cmp word ptr [eax], +$71
00636505 7571 jnz 00636578
* Reference to control TfrmJE.MaskEdit1 : TMaskEdit
|
00636507 8B86DC020000 mov eax, [esi+$02DC]
* Reference to field TMaskEdit.Visible : Boolean
|
0063650D 80784700 cmp byte ptr [eax+$47], $00
00636511 7565 jnz 00636578
* Reference to control TfrmJE.MaskEdit2 : TMaskEdit
|
00636513 8B86E0020000 mov eax, [esi+$02E0]
* Reference to field TMaskEdit.Visible : Boolean
|
00636519 80784700 cmp byte ptr [eax+$47], $00
0063651D 7559 jnz 00636578
0063651F B201 mov dl, $01
* Reference to control TfrmJE.MaskEdit2 : TMaskEdit
|
00636521 8B86E0020000 mov eax, [esi+$02E0]
* Reference to: controls.TControl.SetVisible(TControl;Boolean);
|
00636527 E83C34E0FF call 00439968
0063652C D98618030000 fld dword ptr [esi+$0318]
00636532 83C4F4 add esp, -$0C
00636535 DB3C24 fstp tbyte ptr [esp]
00636538 9B wait
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -