📄 editgroup_unit.pas
字号:
unit EditGroup_Unit;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TEditGroup_Form=class(TForm)
GroupBox5: TspSkinGroupBox;
ListView1: TspSkinListView;
spSkinScrollBar9: TspSkinScrollBar;
spSkinScrollBar11: TspSkinScrollBar;
Button1: TspSkinButton;
spSkinButton1: TspSkinButton;
spSkinButton2: TspSkinButton;
DSF: TspDynamicSkinForm;
procedure Button1Click(Sender : TObject);
procedure spSkinButton1Click(Sender : TObject);
procedure spSkinButton2Click(Sender : TObject);
procedure ListView1Editing(Sender : TObject);
procedure ListView1Edited(Sender : TObject);
procedure _PROC_005B193C(Sender : TObject);
procedure _PROC_005B196C(Sender : TObject);
procedure _PROC_005B1974(Sender : TObject);
procedure _PROC_005B1E9E(Sender : TObject);
procedure _PROC_005B3187(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
EditGroup_Form: TEditGroup_Form;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TEditGroup_Form.Button1Click(Sender : TObject);
begin
(*
* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
005B16B8 E82B29EDFF call 00483FE8
005B16BD C3 ret
*)
end;
procedure TEditGroup_Form.spSkinButton1Click(Sender : TObject);
begin
(*
005B16C0 53 push ebx
005B16C1 8BD8 mov ebx, eax
* Reference to control TEditGroup_Form.ListView1 : TspSkinListView
|
005B16C3 8B83FC020000 mov eax, [ebx+$02FC]
* Reference to field TspSkinListView.OFFS_022C
|
005B16C9 8B802C020000 mov eax, [eax+$022C]
* Reference to: ComCtrls.TTreeNodes.BeginUpdate(TTreeNodes);
| or: ComCtrls.TListItems.BeginUpdate(TListItems);
|
005B16CF E830FEE9FF call 00451504
* Reference to control TEditGroup_Form.ListView1 : TspSkinListView
|
005B16D4 8B83FC020000 mov eax, [ebx+$02FC]
* Reference to field TspSkinListView.OFFS_022C
|
005B16DA 8B802C020000 mov eax, [eax+$022C]
* Reference to: ComCtrls.TListItems.Clear(TListItems);
|
005B16E0 E8FFFDE9FF call 004514E4
* Reference to control TEditGroup_Form.ListView1 : TspSkinListView
|
005B16E5 8B83FC020000 mov eax, [ebx+$02FC]
* Reference to field TspSkinListView.OFFS_022C
|
005B16EB 8B802C020000 mov eax, [eax+$022C]
* Reference to: ComCtrls.TTreeNodes.EndUpdate(TTreeNodes);
| or: ComCtrls.TListItems.EndUpdate(TListItems);
|
005B16F1 E8EAFFE9FF call 004516E0
* Reference to pointer to GlobalVar_005DF8C8
|
005B16F6 A134B95D00 mov eax, dword ptr [$005DB934]
* Reference to field GlobalVar_005DF8C8.OFFS_0004
|
005B16FB 8B4004 mov eax, [eax+$04]
005B16FE 8B10 mov edx, [eax]
005B1700 FF5244 call dword ptr [edx+$44]
* Reference to pointer to GlobalVar_005DF8C8
|
005B1703 A134B95D00 mov eax, dword ptr [$005DB934]
* Reference to field GlobalVar_005DF8C8.OFFS_0008
|
005B1708 8B4008 mov eax, [eax+$08]
005B170B 8B10 mov edx, [eax]
005B170D FF5244 call dword ptr [edx+$44]
* Reference to TMainForm instance
|
005B1710 A1ACB55D00 mov eax, dword ptr [$005DB5AC]
005B1715 8B00 mov eax, [eax]
|
005B1717 E820480000 call 005B5F3C
005B171C 5B pop ebx
005B171D C3 ret
*)
end;
procedure TEditGroup_Form.spSkinButton2Click(Sender : TObject);
begin
(*
005B1720 55 push ebp
005B1721 8BEC mov ebp, esp
005B1723 6A00 push $00
005B1725 6A00 push $00
005B1727 6A00 push $00
005B1729 53 push ebx
005B172A 56 push esi
005B172B 57 push edi
005B172C 8945FC mov [ebp-$04], eax
005B172F 33C0 xor eax, eax
005B1731 55 push ebp
005B1732 6824185B00 push $005B1824
***** TRY
|
005B1737 64FF30 push dword ptr fs:[eax]
005B173A 648920 mov fs:[eax], esp
* Reference to EditGroup_Form
|
005B173D 8B45FC mov eax, [ebp-$04]
* Reference to control TEditGroup_Form.ListView1 : TspSkinListView
|
005B1740 8B80FC020000 mov eax, [eax+$02FC]
* Reference to: ComCtrls.TCustomListView.GetSelected(TCustomListView):TListItem;
| or: ComCtrls.TCustomListView.GetFocused(TCustomListView):TListItem;
|
005B1746 E8C933EAFF call 00454B14
005B174B 85C0 test eax, eax
005B174D 0F84B6000000 jz 005B1809
005B1753 33C0 xor eax, eax
005B1755 55 push ebp
005B1756 68FF175B00 push $005B17FF
***** TRY
|
005B175B 64FF30 push dword ptr fs:[eax]
005B175E 648920 mov fs:[eax], esp
* Reference to EditGroup_Form
|
005B1761 8B45FC mov eax, [ebp-$04]
* Reference to control TEditGroup_Form.ListView1 : TspSkinListView
|
005B1764 8B80FC020000 mov eax, [eax+$02FC]
* Reference to: ComCtrls.TCustomListView.GetSelected(TCustomListView):TListItem;
| or: ComCtrls.TCustomListView.GetFocused(TCustomListView):TListItem;
|
005B176A E8A533EAFF call 00454B14
* Reference to field TspSkinListView.OFFS_0008
|
005B176F 8B4008 mov eax, [eax+$08]
005B1772 8D4DF8 lea ecx, [ebp-$08]
005B1775 33D2 xor edx, edx
005B1777 8B18 mov ebx, [eax]
005B1779 FF530C call dword ptr [ebx+$0C]
* Reference to pointer to GlobalVar_005DF8C8
|
005B177C A134B95D00 mov eax, dword ptr [$005DB934]
* Reference to field GlobalVar_005DF8C8.OFFS_0004
|
005B1781 8B4004 mov eax, [eax+$04]
005B1784 8B10 mov edx, [eax]
005B1786 FF5214 call dword ptr [edx+$14]
005B1789 8BF0 mov esi, eax
005B178B 4E dec esi
005B178C 85F6 test esi, esi
005B178E 7C46 jl 005B17D6
005B1790 46 inc esi
005B1791 33DB xor ebx, ebx
005B1793 8D4DF4 lea ecx, [ebp-$0C]
* Reference to pointer to GlobalVar_005DF8C8
|
005B1796 A134B95D00 mov eax, dword ptr [$005DB934]
* Reference to field GlobalVar_005DF8C8.OFFS_0004
|
005B179B 8B4004 mov eax, [eax+$04]
005B179E 8BD3 mov edx, ebx
005B17A0 8B38 mov edi, [eax]
005B17A2 FF570C call dword ptr [edi+$0C]
005B17A5 8B55F4 mov edx, [ebp-$0C]
005B17A8 8B45F8 mov eax, [ebp-$08]
* Reference to: System.@LStrCmp;
|
005B17AB E88836E5FF call 00404E38
005B17B0 7520 jnz 005B17D2
* Reference to pointer to GlobalVar_005DF8C8
|
005B17B2 A134B95D00 mov eax, dword ptr [$005DB934]
* Reference to field GlobalVar_005DF8C8.OFFS_0004
|
005B17B7 8B4004 mov eax, [eax+$04]
005B17BA 8BD3 mov edx, ebx
005B17BC 8B08 mov ecx, [eax]
005B17BE FF5148 call dword ptr [ecx+$48]
* Reference to pointer to GlobalVar_005DF8C8
|
005B17C1 A134B95D00 mov eax, dword ptr [$005DB934]
* Reference to field GlobalVar_005DF8C8.OFFS_0008
|
005B17C6 8B4008 mov eax, [eax+$08]
005B17C9 8BD3 mov edx, ebx
005B17CB 8B08 mov ecx, [eax]
005B17CD FF5148 call dword ptr [ecx+$48]
005B17D0 EB04 jmp 005B17D6
005B17D2 43 inc ebx
005B17D3 4E dec esi
005B17D4 75BD jnz 005B1793
* Reference to TMainForm instance
|
005B17D6 A1ACB55D00 mov eax, dword ptr [$005DB5AC]
005B17DB 8B00 mov eax, [eax]
|
005B17DD E85A470000 call 005B5F3C
* Reference to EditGroup_Form
|
005B17E2 8B45FC mov eax, [ebp-$04]
* Reference to control TEditGroup_Form.ListView1 : TspSkinListView
|
005B17E5 8B80FC020000 mov eax, [eax+$02FC]
* Reference to: ComCtrls.TCustomListView.GetSelected(TCustomListView):TListItem;
| or: ComCtrls.TCustomListView.GetFocused(TCustomListView):TListItem;
|
005B17EB E82433EAFF call 00454B14
* Reference to: ComCtrls.TListItem.Delete(TListItem);
|
005B17F0 E82BF5E9FF call 00450D20
005B17F5 33C0 xor eax, eax
005B17F7 5A pop edx
005B17F8 59 pop ecx
005B17F9 59 pop ecx
005B17FA 648910 mov fs:[eax], edx
005B17FD EB0A jmp 005B1809
* Reference to: System.@HandleAnyException;
|
005B17FF E9D828E5FF jmp 004040DC
* Reference to: System.@DoneExcept;
|
005B1804 E83B2CE5FF call 00404444
****** END
|
005B1809 33C0 xor eax, eax
005B180B 5A pop edx
005B180C 59 pop ecx
005B180D 59 pop ecx
005B180E 648910 mov fs:[eax], edx
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -