📄 configmerchant.pas
字号:
* Reference to: System.@LStrCatN;
|
00555962 E839FAEAFF call 004053A0
00555967 8B55D0 mov edx, [ebp-$30]
0055596A 8B45F4 mov eax, [ebp-$0C]
0055596D 8B08 mov ecx, [eax]
0055596F FF5138 call dword ptr [ecx+$38]
00555972 FF45F8 inc dword ptr [ebp-$08]
00555975 FF4DD8 dec dword ptr [ebp-$28]
00555978 0F8527FEFFFF jnz 005557A5
0055597E 8B55EC mov edx, [ebp-$14]
00555981 8B45F4 mov eax, [ebp-$0C]
00555984 8B08 mov ecx, [eax]
00555986 FF5174 call dword ptr [ecx+$74]
00555989 33C0 xor eax, eax
0055598B 5A pop edx
0055598C 59 pop ecx
0055598D 59 pop ecx
0055598E 648910 mov fs:[eax], edx
****** FINALLY
|
00555991 68AD595500 push $005559AD
00555996 A1ACB46500 mov eax, dword ptr [$0065B4AC]
0055599B 8B00 mov eax, [eax]
0055599D 8B407C mov eax, [eax+$7C]
* Reference to : TQuickList._PROC_00490348()
|
005559A0 E8A3A9F3FF call 00490348
005559A5 C3 ret
* Reference to: System.@HandleFinally;
|
005559A6 E9CDEFEAFF jmp 00404978
005559AB EBE9 jmp 00555996
****** END
|
005559AD 8B45F4 mov eax, [ebp-$0C]
* Reference to: System.TObject.Free(TObject);
|
005559B0 E81BE8EAFF call 004041D0
005559B5 8B45FC mov eax, [ebp-$04]
* Reference to : TfrmConfigMerchant._PROC_00555638()
|
005559B8 E87BFCFFFF call 00555638
005559BD 33C0 xor eax, eax
005559BF 5A pop edx
005559C0 59 pop ecx
005559C1 59 pop ecx
005559C2 648910 mov fs:[eax], edx
****** FINALLY
|
005559C5 68EC595500 push $005559EC
005559CA 8D45B0 lea eax, [ebp-$50]
005559CD BA09000000 mov edx, $00000009
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
005559D2 E86DF6EAFF call 00405044
005559D7 8D45E0 lea eax, [ebp-$20]
005559DA BA04000000 mov edx, $00000004
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
005559DF E860F6EAFF call 00405044
005559E4 C3 ret
* Reference to: System.@HandleFinally;
|
005559E5 E98EEFEAFF jmp 00404978
005559EA EBDE jmp 005559CA
****** END
|
005559EC 8BE5 mov esp, ebp
005559EE 5D pop ebp
005559EF C3 ret
*)
end;
procedure TfrmConfigMerchant.CheckBoxDenyRefStatusClick(Sender : TObject);
begin
(*
00556198 55 push ebp
00556199 8BEC mov ebp, esp
0055619B 83C4F8 add esp, -$08
0055619E 8955F8 mov [ebp-$08], edx
005561A1 8945FC mov [ebp-$04], eax
005561A4 8B45FC mov eax, [ebp-$04]
005561A7 83B8A803000000 cmp dword ptr [eax+$03A8], +$00
005561AE 7420 jz 005561D0
005561B0 8B45FC mov eax, [ebp-$04]
005561B3 8B8044030000 mov eax, [eax+$0344]
005561B9 8B10 mov edx, [eax]
005561BB FF92C8000000 call dword ptr [edx+$00C8]
005561C1 8B55FC mov edx, [ebp-$04]
005561C4 8B92A8030000 mov edx, [edx+$03A8]
005561CA 8882200A0000 mov [edx+$0A20], al
005561D0 59 pop ecx
005561D1 59 pop ecx
005561D2 5D pop ebp
005561D3 C3 ret
*)
end;
procedure TfrmConfigMerchant.EditXChange(Sender : TObject);
begin
(*
005561D4 55 push ebp
005561D5 8BEC mov ebp, esp
005561D7 83C4F8 add esp, -$08
005561DA 8955F8 mov [ebp-$08], edx
005561DD 8945FC mov [ebp-$04], eax
005561E0 8B45FC mov eax, [ebp-$04]
005561E3 80B8AC03000000 cmp byte ptr [eax+$03AC], $00
005561EA 742E jz 0055621A
005561EC 8B45FC mov eax, [ebp-$04]
005561EF 83B8A803000000 cmp dword ptr [eax+$03A8], +$00
005561F6 7422 jz 0055621A
005561F8 8B45FC mov eax, [ebp-$04]
005561FB 8B8030030000 mov eax, [eax+$0330]
* Reference to : TTimerSpeedButton._PROC_0051A158()
|
00556201 E8523FFCFF call 0051A158
00556206 8B55FC mov edx, [ebp-$04]
00556209 8B92A8030000 mov edx, [edx+$03A8]
0055620F 894230 mov [edx+$30], eax
00556212 8B45FC mov eax, [ebp-$04]
|
00556215 E8F2F3FFFF call 0055560C
0055621A 59 pop ecx
0055621B 59 pop ecx
0055621C 5D pop ebp
0055621D C3 ret
*)
end;
procedure TfrmConfigMerchant.EditYChange(Sender : TObject);
begin
(*
00556220 55 push ebp
00556221 8BEC mov ebp, esp
00556223 83C4F8 add esp, -$08
00556226 8955F8 mov [ebp-$08], edx
00556229 8945FC mov [ebp-$04], eax
0055622C 8B45FC mov eax, [ebp-$04]
0055622F 80B8AC03000000 cmp byte ptr [eax+$03AC], $00
00556236 742E jz 00556266
00556238 8B45FC mov eax, [ebp-$04]
0055623B 83B8A803000000 cmp dword ptr [eax+$03A8], +$00
00556242 7422 jz 00556266
00556244 8B45FC mov eax, [ebp-$04]
00556247 8B8034030000 mov eax, [eax+$0334]
* Reference to : TTimerSpeedButton._PROC_0051A158()
|
0055624D E8063FFCFF call 0051A158
00556252 8B55FC mov edx, [ebp-$04]
00556255 8B92A8030000 mov edx, [edx+$03A8]
0055625B 894234 mov [edx+$34], eax
0055625E 8B45FC mov eax, [ebp-$04]
|
00556261 E8A6F3FFFF call 0055560C
00556266 59 pop ecx
00556267 59 pop ecx
00556268 5D pop ebp
00556269 C3 ret
*)
end;
procedure TfrmConfigMerchant.EditShowNameChange(Sender : TObject);
begin
(*
0055626C 55 push ebp
0055626D 8BEC mov ebp, esp
0055626F 81C4F0FEFFFF add esp, $FFFFFEF0
00556275 33C9 xor ecx, ecx
00556277 898DF4FEFFFF mov [ebp+$FFFFFEF4], ecx
0055627D 898DF0FEFFFF mov [ebp+$FFFFFEF0], ecx
00556283 8955F8 mov [ebp-$08], edx
00556286 8945FC mov [ebp-$04], eax
00556289 33C0 xor eax, eax
0055628B 55 push ebp
0055628C 682F635500 push $0055632F
***** TRY
|
00556291 64FF30 push dword ptr fs:[eax]
00556294 648920 mov fs:[eax], esp
00556297 8B45FC mov eax, [ebp-$04]
0055629A 80B8AC03000000 cmp byte ptr [eax+$03AC], $00
005562A1 7468 jz 0055630B
005562A3 8B45FC mov eax, [ebp-$04]
005562A6 83B8A803000000 cmp dword ptr [eax+$03A8], +$00
005562AD 745C jz 0055630B
005562AF 8D95F0FEFFFF lea edx, [ebp+$FFFFFEF0]
005562B5 8B45FC mov eax, [ebp-$04]
005562B8 8B8018030000 mov eax, [eax+$0318]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
005562BE E8852DF1FF call 00469048
005562C3 8B85F0FEFFFF mov eax, [ebp+$FFFFFEF0]
005562C9 8D95F4FEFFFF lea edx, [ebp+$FFFFFEF4]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
005562CF E8B44DEBFF call 0040B088
005562D4 8B95F4FEFFFF mov edx, [ebp+$FFFFFEF4]
005562DA 8D85F8FEFFFF lea eax, [ebp+$FFFFFEF8]
005562E0 B9FF000000 mov ecx, $000000FF
* Reference to: System.@LStrToString;
|
005562E5 E8D2EFEAFF call 004052BC
005562EA 8D95F8FEFFFF lea edx, [ebp+$FFFFFEF8]
005562F0 8B45FC mov eax, [ebp-$04]
005562F3 8B80A8030000 mov eax, [eax+$03A8]
005562F9 83C020 add eax, +$20
005562FC B10E mov cl, $0E
* Reference to: System.@PStrNCpy(PShortString;PShortString;Byte);
|
005562FE E841D5EAFF call 00403844
00556303 8B45FC mov eax, [ebp-$04]
|
00556306 E801F3FFFF call 0055560C
0055630B 33C0 xor eax, eax
0055630D 5A pop edx
0055630E 59 pop ecx
0055630F 59 pop ecx
00556310 648910 mov fs:[eax], edx
****** FINALLY
|
00556313 6836635500 push $00556336
00556318 8D85F0FEFFFF lea eax, [ebp+$FFFFFEF0]
* Reference to: System.@LStrClr(void;void);
|
0055631E E8FDECEAFF call 00405020
00556323 8D85F4FEFFFF lea eax, [ebp+$FFFFFEF4]
* Reference to: System.@LStrClr(void;void);
|
00556329 E8F2ECEAFF call 00405020
0055632E C3 ret
* Reference to: System.@HandleFinally;
|
0055632F E944E6EAFF jmp 00404978
00556334 EBE2 jmp 00556318
****** END
|
00556336 8BE5 mov esp, ebp
00556338 5D pop ebp
00556339 C3 ret
*)
end;
procedure TfrmConfigMerchant.EditImageIdxChange(Sender : TObject);
begin
(*
0055633C 55 push ebp
0055633D 8BEC mov ebp, esp
0055633F 83C4F8 add esp, -$08
00556342 8955F8 mov [ebp-$08], edx
00556345 8945FC mov [ebp-$04], eax
00556348 8B45FC mov eax, [ebp-$04]
0055634B 80B8AC03000000 cmp byte ptr [eax+$03AC], $00
00556352 7432 jz 00556386
00556354 8B45FC mov eax, [ebp-$04]
00556357 83B8A803000000 cmp dword ptr [eax+$03A8], +$00
0055635E 7426 jz 00556386
00556360 8B45FC mov eax, [ebp-$04]
00556363 8B802C030000 mov eax, [eax+$032C]
* Reference to : TTimerSpeedButton._PROC_0051A158()
|
00556369 E8EA3DFCFF call 0051A158
0055636E 8B55FC mov edx, [ebp-$04]
00556371 8B92A8030000 mov edx, [edx+$03A8]
00556377 66898270060000 mov [edx+$0670], ax
0055637E 8B45FC mov eax, [ebp-$04]
|
00556381 E886F2FFFF call 0055560C
00556386 59 pop ecx
00556387 59 pop ecx
00556388 5D pop ebp
00556389 C3 ret
*)
end;
procedure TfrmConfigMerchant.CheckBoxOfCastleClick(Sender : TObject);
begin
(*
00556568 55 push ebp
00556569 8BEC mov ebp, esp
0055656B 83C4F8 add esp, -$08
0055656E 8955F8 mov [ebp-$08], edx
00556571 8945FC mov [ebp-$04], eax
00556574 8B45FC mov eax, [ebp-$04]
00556577 80B8AC03000000 cmp byte ptr [eax+$03AC], $00
0055657E 7434 jz 005565B4
00556580 8B45FC mov eax, [ebp-$04]
00556583 83B8A803000000 cmp dword ptr [eax+$03A8], +$00
0055658A 7428 jz 005565B4
0055658C 8B45FC mov eax, [ebp-$04]
0055658F 8B8024030000 mov eax, [eax+$0324]
00556595 8B10 mov edx, [eax]
00556597 FF92C8000000 call dword ptr [edx+$00C8]
0055659D 8B55FC mov edx, [ebp-$04]
005565A0 8B92A8030000 mov edx, [edx+$03A8]
005565A6 8882910B0000 mov [edx+$0B91], al
005565AC 8B45FC mov eax, [ebp-$04]
|
005565AF E858F0FFFF call 0055560C
005565B4 59 pop ecx
005565B5 59 pop ecx
005565B6 5D pop ebp
005565B7 C3 ret
*)
end;
procedure TfrmConfigMerchant.CheckBoxBuyClick(Sender : TObject);
begin
(*
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -