D7myChuangpin/YSYF/cxFilterControlDialog.pas
“ddf” ece69a5ac1 1
2024-07-23 20:18:14 +08:00

692 lines
22 KiB
ObjectPascal
Raw Blame History

unit cxFilterControlDialog;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TfmFilterControlDialog=class(TForm)
pnlBottom: TPanel;
btOpen: TcxButton;
btSave: TcxButton;
OpenDialog: TOpenDialog;
SaveDialog: TSaveDialog;
pnlBottomRight: TPanel;
btApply: TcxButton;
btCancel: TcxButton;
btOk: TcxButton;
procedure acApplyExecute(Sender : TObject);
procedure acOkExecute(Sender : TObject);
procedure acOpenExecute(Sender : TObject);
procedure acSaveExecute(Sender : TObject);
procedure FormClose(Sender : TObject);
procedure FormKeyPress(Sender : TObject);
procedure FormKeyDown(Sender : TObject);
procedure _PROC_005CBC3D(Sender : TObject);
procedure _PROC_005CBC68(Sender : TObject);
procedure _PROC_005CBCA0(Sender : TObject);
procedure _PROC_005CBCB4(Sender : TObject);
procedure _PROC_005CBF38(Sender : TObject);
procedure _PROC_005CBFB8(Sender : TObject);
procedure _PROC_005CC20C(Sender : TObject);
procedure _PROC_005CC23C(Sender : TObject);
procedure _PROC_005CC244(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
fmFilterControlDialog: TfmFilterControlDialog;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TfmFilterControlDialog.acApplyExecute(Sender : TObject);
begin
(*
* Reference to field TfmFilterControlDialog.OFFS_0320
|
005CC07C 8B8020030000 mov eax, [eax+$0320]
* Reference to: ActnMenus.TCustomizeActionToolBar.CMItemSelected(TCustomizeActionToolBar;TCMItemMsg;TCMItemMsg);
|
005CC082 E83DFFFDFF call 005ABFC4
005CC087 C3 ret
*)
end;
procedure TfmFilterControlDialog.acOkExecute(Sender : TObject);
begin
(*
* Reference to field TfmFilterControlDialog.OFFS_0320
|
005CC088 8B8020030000 mov eax, [eax+$0320]
* Reference to: ActnMenus.TCustomizeActionToolBar.CMItemSelected(TCustomizeActionToolBar;TCMItemMsg;TCMItemMsg);
|
005CC08E E831FFFDFF call 005ABFC4
005CC093 C3 ret
*)
end;
procedure TfmFilterControlDialog.acOpenExecute(Sender : TObject);
begin
(*
005CC094 55 push ebp
005CC095 8BEC mov ebp, esp
005CC097 6A00 push $00
005CC099 6A00 push $00
005CC09B 53 push ebx
005CC09C 8BD8 mov ebx, eax
005CC09E 33C0 xor eax, eax
005CC0A0 55 push ebp
* Possible String Reference to: '<27>׉<EFBFBD><D789><EFBFBD><EFBFBD>[YY]<5D>U<EFBFBD><55>j'
|
005CC0A1 6818C15C00 push $005CC118
***** TRY
|
005CC0A6 64FF30 push dword ptr fs:[eax]
005CC0A9 648920 mov fs:[eax], esp
* Reference to control TfmFilterControlDialog.OpenDialog : TOpenDialog
|
005CC0AC 8B8304030000 mov eax, [ebx+$0304]
005CC0B2 83C078 add eax, +$78
* Reference to: System.@LStrClr(void;void);
|
005CC0B5 E86A92E3FF call 00405324
* Reference to control TfmFilterControlDialog.OpenDialog : TOpenDialog
|
005CC0BA 8B8304030000 mov eax, [ebx+$0304]
005CC0C0 8B10 mov edx, [eax]
* Reference to method TOpenDialog.Execute()
|
005CC0C2 FF523C call dword ptr [edx+$3C]
005CC0C5 84C0 test al, al
005CC0C7 7434 jz 005CC0FD
005CC0C9 8D55FC lea edx, [ebp-$04]
* Reference to control TfmFilterControlDialog.OpenDialog : TOpenDialog
|
005CC0CC 8B8304030000 mov eax, [ebx+$0304]
* Reference to: Dialogs.TOpenDialog.GetFileName(TOpenDialog):TFileName;
|
005CC0D2 E8F144E7FF call 004405C8
005CC0D7 8B55FC mov edx, [ebp-$04]
* Reference to field TfmFilterControlDialog.OFFS_0320
|
005CC0DA 8B8320030000 mov eax, [ebx+$0320]
* Reference to: ComCtrls.TCustomTreeView.LoadFromFile(TCustomTreeView;AnsiString);
| or: DB.TBlobField.LoadFromFile(TBlobField;AnsiString);
| or: DBGrids.TDBGridColumns.LoadFromFile(TDBGridColumns;AnsiString);
| or: OleCtnrs.TOleContainer.LoadFromFile(TOleContainer;AnsiString);
| or: Outline.TCustomOutline.LoadFromFile(TCustomOutline;AnsiString);
| or: QComCtrls.TCustomTreeView.LoadFromFile(TCustomTreeView;AnsiString);
|
005CC0E0 E8CB01FEFF call 005AC2B0
005CC0E5 8D55F8 lea edx, [ebp-$08]
* Reference to control TfmFilterControlDialog.OpenDialog : TOpenDialog
|
005CC0E8 8B8304030000 mov eax, [ebx+$0304]
* Reference to: Dialogs.TOpenDialog.GetFileName(TOpenDialog):TFileName;
|
005CC0EE E8D544E7FF call 004405C8
005CC0F3 8B55F8 mov edx, [ebp-$08]
005CC0F6 8BC3 mov eax, ebx
* Reference to : TfmFilterControlDialog._PROC_005CBFB8()
|
005CC0F8 E8BBFEFFFF call 005CBFB8
005CC0FD 33C0 xor eax, eax
005CC0FF 5A pop edx
005CC100 59 pop ecx
005CC101 59 pop ecx
005CC102 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[YY]<5D>U<EFBFBD><55>j'
|
005CC105 681FC15C00 push $005CC11F
005CC10A 8D45F8 lea eax, [ebp-$08]
005CC10D BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
005CC112 E83192E3FF call 00405348
005CC117 C3 ret
* Reference to: System.@HandleFinally;
|
005CC118 E9D789E3FF jmp 00404AF4
005CC11D EBEB jmp 005CC10A
****** END
|
005CC11F 5B pop ebx
005CC120 59 pop ecx
005CC121 59 pop ecx
005CC122 5D pop ebp
005CC123 C3 ret
*)
end;
procedure TfmFilterControlDialog.acSaveExecute(Sender : TObject);
begin
(*
005CC124 55 push ebp
005CC125 8BEC mov ebp, esp
005CC127 6A00 push $00
005CC129 6A00 push $00
005CC12B 53 push ebx
005CC12C 8BD8 mov ebx, eax
005CC12E 33C0 xor eax, eax
005CC130 55 push ebp
005CC131 689AC15C00 push $005CC19A
***** TRY
|
005CC136 64FF30 push dword ptr fs:[eax]
005CC139 648920 mov fs:[eax], esp
* Reference to control TfmFilterControlDialog.SaveDialog : TSaveDialog
|
005CC13C 8B8308030000 mov eax, [ebx+$0308]
005CC142 8B10 mov edx, [eax]
* Reference to method TSaveDialog.Execute()
|
005CC144 FF523C call dword ptr [edx+$3C]
005CC147 84C0 test al, al
005CC149 7434 jz 005CC17F
005CC14B 8D55FC lea edx, [ebp-$04]
* Reference to control TfmFilterControlDialog.SaveDialog : TSaveDialog
|
005CC14E 8B8308030000 mov eax, [ebx+$0308]
* Reference to: Dialogs.TOpenDialog.GetFileName(TOpenDialog):TFileName;
|
005CC154 E86F44E7FF call 004405C8
005CC159 8B55FC mov edx, [ebp-$04]
* Reference to field TfmFilterControlDialog.OFFS_0320
|
005CC15C 8B8320030000 mov eax, [ebx+$0320]
* Reference to: Classes.TCustomMemoryStream.SaveToFile(TCustomMemoryStream;AnsiString);
| or: ComCtrls.TCustomTreeView.SaveToFile(TCustomTreeView;AnsiString);
| or: DB.TBlobField.SaveToFile(TBlobField;AnsiString);
| or: DBGrids.TDBGridColumns.SaveToFile(TDBGridColumns;AnsiString);
| or: IBSQL.TIBXSQLVAR.SaveToFile(TIBXSQLVAR;AnsiString);
| or: OleCtnrs.TOleContainer.SaveToFile(TOleContainer;AnsiString);
|
005CC162 E82502FEFF call 005AC38C
005CC167 8D55F8 lea edx, [ebp-$08]
* Reference to control TfmFilterControlDialog.SaveDialog : TSaveDialog
|
005CC16A 8B8308030000 mov eax, [ebx+$0308]
* Reference to: Dialogs.TOpenDialog.GetFileName(TOpenDialog):TFileName;
|
005CC170 E85344E7FF call 004405C8
005CC175 8B55F8 mov edx, [ebp-$08]
005CC178 8BC3 mov eax, ebx
* Reference to : TfmFilterControlDialog._PROC_005CBFB8()
|
005CC17A E839FEFFFF call 005CBFB8
005CC17F 33C0 xor eax, eax
005CC181 5A pop edx
005CC182 59 pop ecx
005CC183 59 pop ecx
005CC184 648910 mov fs:[eax], edx
****** FINALLY
|
005CC187 68A1C15C00 push $005CC1A1
005CC18C 8D45F8 lea eax, [ebp-$08]
005CC18F BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
005CC194 E8AF91E3FF call 00405348
005CC199 C3 ret
* Reference to: System.@HandleFinally;
|
005CC19A E95589E3FF jmp 00404AF4
005CC19F EBEB jmp 005CC18C
****** END
|
005CC1A1 5B pop ebx
005CC1A2 59 pop ecx
005CC1A3 59 pop ecx
005CC1A4 5D pop ebp
005CC1A5 C3 ret
*)
end;
procedure TfmFilterControlDialog.FormClose(Sender : TObject);
begin
(*
005CC1A8 53 push ebx
005CC1A9 56 push esi
005CC1AA 57 push edi
005CC1AB 83C4F0 add esp, -$10
005CC1AE 8BD8 mov ebx, eax
* Reference to field TfmFilterControlDialog.Height : Integer
|
005CC1B0 8B434C mov eax, [ebx+$4C]
005CC1B3 50 push eax
005CC1B4 8D442404 lea eax, [esp+$04]
005CC1B8 50 push eax
* Reference to field TfmFilterControlDialog.Width : Integer
|
005CC1B9 8B4B48 mov ecx, [ebx+$48]
* Reference to field TfmFilterControlDialog.Top : Integer
|
005CC1BC 8B5344 mov edx, [ebx+$44]
* Reference to field TfmFilterControlDialog.Left : Integer
|
005CC1BF 8B4340 mov eax, [ebx+$40]
|
005CC1C2 E8AD53E5FF call 00421574
005CC1C7 8BF4 mov esi, esp
005CC1C9 BF4C848800 mov edi, $0088844C
005CC1CE A5 movsd
005CC1CF A5 movsd
005CC1D0 A5 movsd
005CC1D1 A5 movsd
005CC1D2 83C410 add esp, +$10
005CC1D5 5F pop edi
005CC1D6 5E pop esi
005CC1D7 5B pop ebx
005CC1D8 C3 ret
*)
end;
procedure TfmFilterControlDialog.FormKeyPress(Sender : TObject);
begin
(*
005CC1DC 80391B cmp byte ptr [ecx], $1B
005CC1DF 750E jnz 005CC1EF
* Reference to field TfmFilterControlDialog.OFFS_031C
|
005CC1E1 80B81C03000000 cmp byte ptr [eax+$031C], $00
005CC1E8 7505 jnz 005CC1EF
* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
005CC1EA E8A99DEDFF call 004A5F98
005CC1EF C3 ret
*)
end;
procedure TfmFilterControlDialog.FormKeyDown(Sender : TObject);
begin
(*
005CC1F0 55 push ebp
005CC1F1 8BEC mov ebp, esp
005CC1F3 53 push ebx
005CC1F4 8BD8 mov ebx, eax
* Reference to field TfmFilterControlDialog.ActiveControl : TWinControl
|
005CC1F6 8B8320020000 mov eax, [ebx+$0220]
* Reference to : TcxCustomInnerListBox._PROC_0051EC30()
|
005CC1FC E82F2AF5FF call 0051EC30
* Reference to field TfmFilterControlDialog.OFFS_031C
|
005CC201 88831C030000 mov [ebx+$031C], al
005CC207 5B pop ebx
005CC208 5D pop ebp
005CC209 C20400 ret $0004
*)
end;
procedure TfmFilterControlDialog._PROC_005CBC3D(Sender : TObject);
begin
(*
005CBC3D 8BEC mov ebp, esp
005CBC3F 53 push ebx
005CBC40 FF751C push dword ptr [ebp+$1C]
005CBC43 FF7518 push dword ptr [ebp+$18]
005CBC46 FF7514 push dword ptr [ebp+$14]
005CBC49 FF7510 push dword ptr [ebp+$10]
005CBC4C 51 push ecx
005CBC4D 8B4D0C mov ecx, [ebp+$0C]
005CBC50 51 push ecx
005CBC51 8B4D08 mov ecx, [ebp+$08]
005CBC54 51 push ecx
* Reference to class TcxFilterControl
|
005CBC55 8B0DFC965A00 mov ecx, [$005A96FC]
005CBC5B 91 xchg eax, ecx
005CBC5C 87CA xchg edx, ecx
|
005CBC5E E869FEFFFF call 005CBACC
005CBC63 5B pop ebx
005CBC64 5D pop ebp
005CBC65 C21800 ret $0018
*)
end;
procedure TfmFilterControlDialog._PROC_005CBC68(Sender : TObject);
begin
(*
005CBC68 53 push ebx
005CBC69 56 push esi
005CBC6A 84D2 test dl, dl
005CBC6C 7408 jz 005CBC76
005CBC6E 83C4F0 add esp, -$10
* Reference to: System.@ClassCreate(TClass;Boolean):TObject;
|
005CBC71 E84E8AE3FF call 004046C4
005CBC76 8BDA mov ebx, edx
005CBC78 8BF0 mov esi, eax
005CBC7A 33D2 xor edx, edx
005CBC7C 8BC6 mov eax, esi
* Reference to: Forms.TCustomForm.Create(TCustomForm;boolean;TComponent);
| or: QForms.TCustomForm.Create(TCustomForm;boolean;TComponent);
|
005CBC7E E84D61EDFF call 004A1DD0
005CBC83 8BC6 mov eax, esi
005CBC85 84DB test bl, bl
005CBC87 740F jz 005CBC98
* Reference to: System.@AfterConstruction(TObject):TObject;
|
005CBC89 E88E8AE3FF call 0040471C
005CBC8E 648F0500000000 pop dword ptr fs:[$00000000]
005CBC95 83C40C add esp, +$0C
005CBC98 8BC6 mov eax, esi
005CBC9A 5E pop esi
005CBC9B 5B pop ebx
005CBC9C C3 ret
*)
end;
procedure TfmFilterControlDialog._PROC_005CBCA0(Sender : TObject);
begin
(*
005CBCA0 53 push ebx
005CBCA1 8BDA mov ebx, edx
005CBCA3 8BD3 mov edx, ebx
* Reference to: Forms.TCustomForm.CreateParams(TCustomForm;TCreateParams;TCreateParams);
|
005CBCA5 E80684EDFF call 004A40B0
005CBCAA 814B0400000080 or dword ptr [ebx+$04], $80000000
005CBCB1 5B pop ebx
005CBCB2 C3 ret
*)
end;
procedure TfmFilterControlDialog._PROC_005CBCB4(Sender : TObject);
begin
(*
005CBCB4 55 push ebp
005CBCB5 8BEC mov ebp, esp
005CBCB7 B90A000000 mov ecx, $0000000A
005CBCBC 6A00 push $00
005CBCBE 6A00 push $00
005CBCC0 49 dec ecx
005CBCC1 75F9 jnz 005CBCBC
005CBCC3 53 push ebx
005CBCC4 56 push esi
005CBCC5 57 push edi
005CBCC6 8BF2 mov esi, edx
005CBCC8 8BD8 mov ebx, eax
005CBCCA BF4C848800 mov edi, $0088844C
005CBCCF 33C0 xor eax, eax
005CBCD1 55 push ebp
* Possible String Reference to: '<27>ȋ<EFBFBD><C88B><EFBFBD><EFBFBD>_^[<5B><>]Í@'
|
005CBCD2 6827BF5C00 push $005CBF27
***** TRY
|
005CBCD7 64FF30 push dword ptr fs:[eax]
005CBCDA 648920 mov fs:[eax], esp
005CBCDD 8D55F8 lea edx, [ebp-$08]
*)
end;
procedure TfmFilterControlDialog._PROC_005CBF38(Sender : TObject);
begin
(*
005CBF38 53 push ebx
005CBF39 56 push esi
005CBF3A 8BF2 mov esi, edx
005CBF3C 8BD8 mov ebx, eax
005CBF3E 85F6 test esi, esi
005CBF40 7472 jz 005CBFB4
* Reference to control TfmFilterControlDialog.btOk : TcxButton
|
005CBF42 8B8318030000 mov eax, [ebx+$0318]
* Reference to field TcxButton.OFFS_0234
|
005CBF48 8B8034020000 mov eax, [eax+$0234]
005CBF4E 8BD6 mov edx, esi
|
005CBF50 E88302F2FF call 004EC1D8
* Reference to control TfmFilterControlDialog.btCancel : TcxButton
|
005CBF55 8B8314030000 mov eax, [ebx+$0314]
* Reference to field TcxButton.OFFS_0234
|
005CBF5B 8B8034020000 mov eax, [eax+$0234]
005CBF61 8BD6 mov edx, esi
|
005CBF63 E87002F2FF call 004EC1D8
* Reference to control TfmFilterControlDialog.btApply : TcxButton
|
005CBF68 8B8310030000 mov eax, [ebx+$0310]
* Reference to field TcxButton.OFFS_0234
|
005CBF6E 8B8034020000 mov eax, [eax+$0234]
005CBF74 8BD6 mov edx, esi
|
005CBF76 E85D02F2FF call 004EC1D8
* Reference to control TfmFilterControlDialog.btOpen : TcxButton
|
005CBF7B 8B83FC020000 mov eax, [ebx+$02FC]
* Reference to field TcxButton.OFFS_0234
|
005CBF81 8B8034020000 mov eax, [eax+$0234]
005CBF87 8BD6 mov edx, esi
|
005CBF89 E84A02F2FF call 004EC1D8
* Reference to control TfmFilterControlDialog.btSave : TcxButton
|
005CBF8E 8B8300030000 mov eax, [ebx+$0300]
* Reference to field TcxButton.OFFS_0234
|
005CBF94 8B8034020000 mov eax, [eax+$0234]
005CBF9A 8BD6 mov edx, esi
|
005CBF9C E83702F2FF call 004EC1D8
* Reference to field TfmFilterControlDialog.OFFS_0320
|
005CBFA1 8B8320030000 mov eax, [ebx+$0320]
005CBFA7 8B8040020000 mov eax, [eax+$0240]
005CBFAD 8BD6 mov edx, esi
|
005CBFAF E82402F2FF call 004EC1D8
005CBFB4 5E pop esi
005CBFB5 5B pop ebx
005CBFB6 C3 ret
*)
end;
procedure TfmFilterControlDialog._PROC_005CBFB8(Sender : TObject);
begin
(*
005CBFB8 55 push ebp
005CBFB9 8BEC mov ebp, esp
005CBFBB 83C4E4 add esp, -$1C
005CBFBE 53 push ebx
005CBFBF 56 push esi
005CBFC0 33C9 xor ecx, ecx
005CBFC2 894DFC mov [ebp-$04], ecx
005CBFC5 894DE8 mov [ebp-$18], ecx
005CBFC8 894DE4 mov [ebp-$1C], ecx
005CBFCB 8BF2 mov esi, edx
005CBFCD 8BD8 mov ebx, eax
005CBFCF 33C0 xor eax, eax
005CBFD1 55 push ebp
* Possible String Reference to: '閊<><E9968A><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
005CBFD2 6859C05C00 push $005CC059
***** TRY
|
005CBFD7 64FF30 push dword ptr fs:[eax]
005CBFDA 648920 mov fs:[eax], esp
* Reference to control TfmFilterControlDialog.SaveDialog : TSaveDialog
|
005CBFDD 8B8308030000 mov eax, [ebx+$0308]
005CBFE3 83C078 add eax, +$78
005CBFE6 8BD6 mov edx, esi
* Reference to: System.@LStrAsg(void;void;void;void);
|
005CBFE8 E88B93E3FF call 00405378
005CBFED 8D45FC lea eax, [ebp-$04]
005CBFF0 50 push eax
005CBFF1 8D55E4 lea edx, [ebp-$1C]
*)
end;
procedure TfmFilterControlDialog._PROC_005CC20C(Sender : TObject);
begin
(*
005CC20C 55 push ebp
005CC20D 8BEC mov ebp, esp
005CC20F 33C0 xor eax, eax
005CC211 55 push ebp
* Possible String Reference to: '龈<><E9BE88><EFBFBD><EFBFBD><><C38B>-<2D>3<EFBFBD>'
|
005CC212 6831C25C00 push $005CC231
***** TRY
|
005CC217 64FF30 push dword ptr fs:[eax]
005CC21A 648920 mov fs:[eax], esp
005CC21D FF05D4338900 inc dword ptr [$008933D4]
005CC223 33C0 xor eax, eax
005CC225 5A pop edx
005CC226 59 pop ecx
005CC227 59 pop ecx
005CC228 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: ']Ë<><C38B>-<2D>3<EFBFBD>'
|
005CC22B 6838C25C00 push $005CC238
005CC230 C3 ret
* Reference to: System.@HandleFinally;
|
005CC231 E9BE88E3FF jmp 00404AF4
005CC236 EBF8 jmp 005CC230
****** END
|
005CC238 5D pop ebp
005CC239 C3 ret
*)
end;
procedure TfmFilterControlDialog._PROC_005CC23C(Sender : TObject);
begin
(*
005CC23C 832DD433890001 sub dword ptr [$008933D4], +$01
005CC243 C3 ret
*)
end;
procedure TfmFilterControlDialog._PROC_005CC244(Sender : TObject);
begin
(*
005CC244 48 dec eax
005CC245 C25C00 ret $005C
*)
end;
end.