RegEditUnit.pas
上传用户：gdszzsp
上传日期：2007-01-08
资源大小：621k
文件大小：73k
- unit RegEditUnit;
- interface
- uses
- Windows, Messages, SysUtils, Classes, Graphics,
- Controls, Forms, Dialogs, StdCtrls, ExtCtrls;
- type
- TRegEdit=class(TForm)
- CaptionLabel: TLabel;
- CloseButton: TFlatSpeedButton;
- Label1: TLabel;
- Label4: TLabel;
- OutlookBtn1: TOutlookBtn;
- OutlookBtn2: TOutlookBtn;
- OutlookBtn3: TOutlookBtn;
- OutlookBtn4: TOutlookBtn;
- OutlookBtn5: TOutlookBtn;
- OutlookBtn6: TOutlookBtn;
- Panel1: TPanel;
- Label5: TLabel;
- Panel2: TPanel;
- Label2: TLabel;
- DirList: TListBox;
- tmpList: TListBox;
- RxSplitter1: TRxSplitter;
- Panel3: TPanel;
- Label3: TLabel;
- KeyList: TListBox;
- FlatEdit1: TFlatEdit;
- FlatBox2: TFlatComboBox;
- FlatHint: TFlatHint;
- procedure CaptionLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
- procedure CaptionLabelMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
- procedure CaptionLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
- procedure CloseButtonClick(Sender: TObject);
- procedure DirListClick(Sender: TObject);
- procedure FlatBox2Change(Sender: TObject);{?}
- procedure FormCreate(Sender: TObject);
- procedure FormPaint(Sender: TObject);
- procedure FormResize(Sender: TObject);
- procedure KeyListClick(Sender: TObject);
- procedure OutlookBtn1Click(Sender: TObject);
- procedure OutlookBtn2Click(Sender: TObject);
- procedure OutlookBtn3Click(Sender: TObject);
- procedure OutlookBtn4Click(Sender: TObject);
- procedure OutlookBtn5Click(Sender: TObject);
- procedure OutlookBtn6Click(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end ;
- var
- RegEdit: TRegEdit;
- {This file is generated by DeDe v2.34 (c) 1999 by DaFixer}
- implementation
- {$R *.DFM}
- procedure TRegEdit.CaptionLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
- begin
- {
- 004D85E8 55 push ebp
- 004D85E9 8BEC mov ebp, esp
- 004D85EB 53 push ebx
- 004D85EC 8BD8 mov ebx, eax
- 004D85EE 8B83C4020000 mov eax, [ebx+$02C4]
- 004D85F4 8B4024 mov eax, [eax+$24]
- 004D85F7 E8E03EF6FF call 0043C4DC
- 004D85FC 50 push eax
- * Reference to: SHBrowseForFolderA.SetCapture
- |
- 004D85FD E876F2F2FF call 00407878
- 004D8602 C78328030000FFFFFFFF mov dword ptr [ebx+$0328], $FFFFFFFF
- 004D860C 8B450C mov eax, [ebp+$0C]
- 004D860F 898320030000 mov [ebx+$0320], eax
- 004D8615 8B4508 mov eax, [ebp+$08]
- 004D8618 898324030000 mov [ebx+$0324], eax
- 004D861E 5B pop ebx
- 004D861F 5D pop ebp
- 004D8620 C20C ret $0C
- }
- end ;
- procedure TRegEdit.CaptionLabelMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
- begin
- {
- 004D8624 55 push ebp
- 004D8625 8BEC mov ebp, esp
- 004D8627 53 push ebx
- 004D8628 56 push esi
- 004D8629 8BD8 mov ebx, eax
- 004D862B 83BB2803000000 cmp dword ptr [ebx+$0328], +$00
- 004D8632 7433 jz 004D8667
- 004D8634 8B83C4020000 mov eax, [ebx+$02C4]
- 004D863A 8B7024 mov esi, [eax+$24]
- 004D863D 8B8320030000 mov eax, [ebx+$0320]
- 004D8643 2B450C sub eax, dword ptr [ebp+$0C]
- 004D8646 8B5630 mov edx, [esi+$30]
- 004D8649 2BD0 sub edx, eax
- 004D864B 8BC6 mov eax, esi
- 004D864D E85AD8F5FF call 00435EAC
- 004D8652 8B8324030000 mov eax, [ebx+$0324]
- 004D8658 2B4508 sub eax, dword ptr [ebp+$08]
- 004D865B 8B5634 mov edx, [esi+$34]
- 004D865E 2BD0 sub edx, eax
- 004D8660 8BC6 mov eax, esi
- 004D8662 E869D8F5FF call 00435ED0
- 004D8667 5E pop esi
- 004D8668 5B pop ebx
- 004D8669 5D pop ebp
- 004D866A C208 ret $08
- }
- end ;
- procedure TRegEdit.CaptionLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
- begin
- {
- 004D8670 55 push ebp
- 004D8671 8BEC mov ebp, esp
- 004D8673 53 push ebx
- 004D8674 56 push esi
- 004D8675 8BD8 mov ebx, eax
- 004D8677 83BB2803000000 cmp dword ptr [ebx+$0328], +$00
- 004D867E 7440 jz 004D86C0
- 004D8680 8B83C4020000 mov eax, [ebx+$02C4]
- 004D8686 8B7024 mov esi, [eax+$24]
- * Reference to: SHBrowseForFolderA.ReleaseCapture
- |
- 004D8689 E89AF1F2FF call 00407828
- 004D868E 33C0 xor eax, eax
- 004D8690 898328030000 mov [ebx+$0328], eax
- 004D8696 8B8320030000 mov eax, [ebx+$0320]
- 004D869C 2B450C sub eax, dword ptr [ebp+$0C]
- 004D869F 8B5630 mov edx, [esi+$30]
- 004D86A2 2BD0 sub edx, eax
- 004D86A4 8BC6 mov eax, esi
- 004D86A6 E801D8F5FF call 00435EAC
- 004D86AB 8B8324030000 mov eax, [ebx+$0324]
- 004D86B1 2B4508 sub eax, dword ptr [ebp+$08]
- 004D86B4 8B5634 mov edx, [esi+$34]
- 004D86B7 2BD0 sub edx, eax
- 004D86B9 8BC6 mov eax, esi
- 004D86BB E810D8F5FF call 00435ED0
- 004D86C0 5E pop esi
- 004D86C1 5B pop ebx
- 004D86C2 5D pop ebp
- 004D86C3 C20C ret $0C
- }
- end ;
- procedure TRegEdit.CloseButtonClick(Sender: TObject);
- begin
- {
- 004D85B0 53 push ebx
- 004D85B1 8BD8 mov ebx, eax
- 004D85B3 A1DC495400 mov eax, dword ptr [$5449DC]
- 004D85B8 8B00 mov eax, [eax]
- 004D85BA 8B808C030000 mov eax, [eax+$038C]
- 004D85C0 8B8080000000 mov eax, [eax+$0080]
- * Possible String Reference to: "CLG"
- |
- 004D85C6 BAE4854D00 mov edx, $004D85E4
- 004D85CB E85450FAFF call 0047D624
- 004D85D0 8BC3 mov eax, ebx
- 004D85D2 E8A574F7FF call 0044FA7C
- 004D85D7 5B pop ebx
- 004D85D8 C3 ret
- }
- end ;
- procedure TRegEdit.DirListClick(Sender: TObject);
- begin
- {
- 004D887C 55 push ebp
- 004D887D 8BEC mov ebp, esp
- 004D887F 33C9 xor ecx, ecx
- 004D8881 51 push ecx
- 004D8882 51 push ecx
- 004D8883 51 push ecx
- 004D8884 51 push ecx
- 004D8885 51 push ecx
- 004D8886 53 push ebx
- 004D8887 56 push esi
- 004D8888 57 push edi
- 004D8889 8BD8 mov ebx, eax
- 004D888B 33C0 xor eax, eax
- 004D888D 55 push ebp
- * Possible String Reference to: "槌
English
