📄 labeltab.pas
字号:
unit LabelTab;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TfrmLabelTab=class(TForm)
Image1: TImage;
procedure FormCreate(Sender : TObject);
procedure FormShow(Sender : TObject);
procedure FormDestroy(Sender : TObject);
procedure FormPaint(Sender : TObject);
procedure FormMouseMove(Sender : TObject);
procedure FormMouseDown(Sender : TObject);
procedure LabelClick(Sender : TObject);
procedure _PROC_00749B2C(Sender : TObject);
procedure _PROC_00749B5C(Sender : TObject);
procedure Proc_007496A0(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
frmLabelTab: TfrmLabelTab;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TfrmLabelTab.FormCreate(Sender : TObject);
begin
(*
007496A8 53 push ebx
007496A9 56 push esi
007496AA 57 push edi
007496AB 55 push ebp
007496AC 83C4EC add esp, -$14
007496AF 8BD8 mov ebx, eax
007496B1 33F6 xor esi, esi
007496B3 33C0 xor eax, eax
007496B5 8984B3E4020000 mov [ebx+esi*4+$02E4], eax
007496BC 46 inc esi
007496BD 83FE03 cmp esi, +$03
007496C0 75F1 jnz 007496B3
007496C2 BA12000000 mov edx, $00000012
007496C7 8BC3 mov eax, ebx
* Reference to: controls.TControl.SetWidth(TControl;Integer);
|
007496C9 E8BAFBCEFF call 00439288
007496CE 33C0 xor eax, eax
* Reference to field TfrmLabelTab.OFFS_02E0
|
007496D0 8983E0020000 mov [ebx+$02E0], eax
007496D6 B201 mov dl, $01
* Reference to class TBitmap
|
007496D8 A184CF4100 mov eax, dword ptr [$0041CF84]
* Reference to: graphics.TBitmap.Create(TBitmap;boolean);
|
007496DD E8FEA5CDFF call 00423CE0
* Reference to field TfrmLabelTab.OFFS_02D8
|
007496E2 8983D8020000 mov [ebx+$02D8], eax
007496E8 B201 mov dl, $01
* Reference to class TBitmap
|
007496EA A184CF4100 mov eax, dword ptr [$0041CF84]
* Reference to: graphics.TBitmap.Create(TBitmap;boolean);
|
007496EF E8ECA5CDFF call 00423CE0
* Reference to field TfrmLabelTab.OFFS_02DC
|
007496F4 8983DC020000 mov [ebx+$02DC], eax
007496FA BAE0010000 mov edx, $000001E0
* Reference to field TfrmLabelTab.OFFS_02D8
|
007496FF 8B83D8020000 mov eax, [ebx+$02D8]
00749705 8B08 mov ecx, [eax]
00749707 FF5134 call dword ptr [ecx+$34]
0074970A 33FF xor edi, edi
* Reference to field TfrmLabelTab.OFFS_02D8
|
0074970C 8BB3D8020000 mov esi, [ebx+$02D8]
00749712 BA12000000 mov edx, $00000012
00749717 8BC6 mov eax, esi
00749719 8B08 mov ecx, [eax]
0074971B FF5140 call dword ptr [ecx+$40]
0074971E 8BC6 mov eax, esi
* Reference to: graphics.TBitmap.GetCanvas(TBitmap):TCanvas;
|
00749720 E827ABCDFF call 0042424C
00749725 8B400C mov eax, [eax+$0C]
* Possible String Reference to: '宋体'
|
00749728 BAA0997400 mov edx, $007499A0
* Reference to: graphics.TFont.SetName(TFont;TFontName);
|
0074972D E8B249CDFF call 0041E0E4
00749732 8BC6 mov eax, esi
* Reference to: graphics.TBitmap.GetCanvas(TBitmap):TCanvas;
|
00749734 E813ABCDFF call 0042424C
00749739 8B400C mov eax, [eax+$0C]
0074973C BA09000000 mov edx, $00000009
* Reference to: graphics.TFont.SetSize(TFont;Integer);
|
00749741 E8164ACDFF call 0041E15C
00749746 8BC6 mov eax, esi
* Reference to: graphics.TBitmap.GetCanvas(TBitmap):TCanvas;
|
00749748 E8FFAACDFF call 0042424C
0074974D 8B400C mov eax, [eax+$0C]
00749750 BAFFFFFF00 mov edx, $00FFFFFF
* Reference to: graphics.TFont.SetColor(TFont;TColor);
|
00749755 E86247CDFF call 0041DEBC
* Reference to pointer to GlobalVar_007991D8
|
0074975A A1A0D37700 mov eax, dword ptr [$0077D3A0]
0074975F 8B00 mov eax, [eax]
* Reference to field GlobalVar_007991D8.OFFS_0054
|
00749761 8B4054 mov eax, [eax+$54]
00749764 48 dec eax
00749765 85C0 test eax, eax
00749767 0F8C26010000 jl 00749893
0074976D 40 inc eax
0074976E 890424 mov [esp], eax
00749771 33F6 xor esi, esi
00749773 8BCB mov ecx, ebx
00749775 B201 mov dl, $01
* Reference to class TLabel
|
00749777 A160984200 mov eax, dword ptr [$00429860]
* Reference to: stdctrls.TCustomLabel.Create(TCustomLabel;boolean;TComponent);
|
0074977C E85358CEFF call 0042EFD4
00749781 8BE8 mov ebp, eax
00749783 89ACB3E4020000 mov [ebx+esi*4+$02E4], ebp
0074978A 8BD3 mov edx, ebx
0074978C 8BC5 mov eax, ebp
0074978E 8B08 mov ecx, [eax]
* Reference to method TLabel.SetParent(TWinControl)
|
00749790 FF5160 call dword ptr [ecx+$60]
00749793 8B84B3E4020000 mov eax, [ebx+esi*4+$02E4]
* Reference to field TLabel.Font : TFont
|
0074979A 8B4058 mov eax, [eax+$58]
0074979D BA09000000 mov edx, $00000009
* Reference to: graphics.TFont.SetSize(TFont;Integer);
|
007497A2 E8B549CDFF call 0041E15C
007497A7 8B84B3E4020000 mov eax, [ebx+esi*4+$02E4]
* Reference to field TFont.OFFS_0058
|
007497AE 8B4058 mov eax, [eax+$58]
* Possible String Reference to: '宋体'
|
007497B1 BAA0997400 mov edx, $007499A0
* Reference to: graphics.TFont.SetName(TFont;TFontName);
|
007497B6 E82949CDFF call 0041E0E4
007497BB 8B84B3E4020000 mov eax, [ebx+esi*4+$02E4]
007497C2 8B4058 mov eax, [eax+$58]
007497C5 BAFFFFFF00 mov edx, $00FFFFFF
* Reference to: graphics.TFont.SetColor(TFont;TColor);
|
007497CA E8ED46CDFF call 0041DEBC
007497CF B201 mov dl, $01
007497D1 8B84B3E4020000 mov eax, [ebx+esi*4+$02E4]
* Reference to: stdctrls.TCustomLabel.SetWordWrap(TCustomLabel;Boolean);
|
007497D8 E8875CCEFF call 0042F464
* Reference to pointer to GlobalVar_007991D8
|
007497DD A1A0D37700 mov eax, dword ptr [$0077D3A0]
007497E2 8B00 mov eax, [eax]
007497E4 8B54F064 mov edx, [eax+esi*8+$64]
007497E8 8B84B3E4020000 mov eax, [ebx+esi*4+$02E4]
* Reference to: controls.TControl.SetText(TControl;TCaption);
|
007497EF E88C02CFFF call 00439A80
007497F4 B201 mov dl, $01
007497F6 8B84B3E4020000 mov eax, [ebx+esi*4+$02E4]
* Reference to: stdctrls.TCustomLabel.SetTransparent(TCustomLabel;Boolean);
|
007497FD E80E5CCEFF call 0042F410
00749802 8B84B3E4020000 mov eax, [ebx+esi*4+$02E4]
* Reference to field GlobalVar_007991D8.OFFS_000C
|
00749809 89700C mov [eax+$0C], esi
* Reference to field GlobalVar_007991D8.OFFS_010C
|
0074980C 89980C010000 mov [eax+$010C], ebx
* Reference to field GlobalVar_007991D8.OFFS_0108
|
00749812 C78008010000C89A7400 mov dword ptr [eax+$0108], $00749AC8
* Reference to field GlobalVar_007991D8.OFFS_003C
|
0074981C 8B683C mov ebp, [eax+$3C]
0074981F 83C51E add ebp, +$1E
00749822 682000CC00 push $00CC0020
00749827 6A48 push $48
00749829 6A12 push $12
0074982B 6A00 push $00
0074982D 6A00 push $00
* Reference to control TfrmLabelTab.Image1 : TImage
|
0074982F 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to: extctrls.TImage.GetCanvas(TImage):TCanvas;
|
00749835 E8EA53D1FF call 0045EC24
* Reference to: graphics.TCanvas.GetHandle(TCanvas):HDC;
|
0074983A E8095CCDFF call 0041F448
0074983F 50 push eax
00749840 55 push ebp
00749841 6A12 push $12
00749843 57 push edi
00749844 6A00 push $00
* Reference to field TfrmLabelTab.OFFS_02D8
|
00749846 8B83D8020000 mov eax, [ebx+$02D8]
* Reference to: graphics.TBitmap.GetCanvas(TBitmap):TCanvas;
|
0074984C E8FBA9CDFF call 0042424C
* Reference to: graphics.TCanvas.GetHandle(TCanvas):HDC;
|
00749851 E8F25BCDFF call 0041F448
00749856 50 push eax
* Reference to: gdi32.StretchBlt()
|
00749857 E81CEFCBFF call 00408778
0074985C BA02000000 mov edx, $00000002
00749861 8B84B3E4020000 mov eax, [ebx+esi*4+$02E4]
* Reference to: controls.TControl.SetLeft(TControl;Integer);
|
00749868 E8D7F9CEFF call 00439244
0074986D 8D5704 lea edx, [edi+$04]
00749870 8B84B3E4020000 mov eax, [ebx+esi*4+$02E4]
* Reference to: controls.TControl.SetTop(TControl;Integer);
|
00749877 E8E8F9CEFF call 00439264
0074987C 03FD add edi, ebp
* Reference to pointer to GlobalVar_007991D8
|
0074987E A1A0D37700 mov eax, dword ptr [$0077D3A0]
00749883 8B00 mov eax, [eax]
00749885 897CB058 mov [eax+esi*4+$58], edi
00749889 46 inc esi
0074988A FF0C24 dec dword ptr [esp]
0074988D 0F85E0FEFFFF jnz 00749773
00749893 8BD7 mov edx, edi
00749895 8BC3 mov eax, ebx
* Reference to: controls.TControl.SetHeight(TControl;Integer);
|
00749897 E80CFACEFF call 004392A8
* Reference to pointer to GlobalVar_007991D8
|
0074989C A1A0D37700 mov eax, dword ptr [$0077D3A0]
007498A1 8B00 mov eax, [eax]
* Reference to field GlobalVar_007991D8.OFFS_0050
|
007498A3 897850 mov [eax+$50], edi
* Reference to field TfrmLabelTab.OFFS_02D8
|
007498A6 8B83D8020000 mov eax, [ebx+$02D8]
007498AC 8B10 mov edx, [eax]
007498AE FF522C call dword ptr [edx+$2C]
007498B1 8BD0 mov edx, eax
* Reference to field TfrmLabelTab.OFFS_02DC
|
007498B3 8B83DC020000 mov eax, [ebx+$02DC]
007498B9 8B08 mov ecx, [eax]
007498BB FF5140 call dword ptr [ecx+$40]
* Reference to field TfrmLabelTab.OFFS_02D8
|
007498BE 8B83D8020000 mov eax, [ebx+$02D8]
007498C4 8B10 mov edx, [eax]
007498C6 FF5220 call dword ptr [edx+$20]
007498C9 8BD0 mov edx, eax
* Reference to field TfrmLabelTab.OFFS_02DC
|
007498CB 8B83DC020000 mov eax, [ebx+$02DC]
007498D1 8B08 mov ecx, [eax]
007498D3 FF5134 call dword ptr [ecx+$34]
007498D6 33C0 xor eax, eax
007498D8 89442404 mov [esp+$04], eax
007498DC 33C0 xor eax, eax
007498DE 89442408 mov [esp+$08], eax
* Reference to field TfrmLabelTab.OFFS_02DC
|
007498E2 8B83DC020000 mov eax, [ebx+$02DC]
007498E8 8B10 mov edx, [eax]
007498EA FF522C call dword ptr [edx+$2C]
007498ED 8944240C mov [esp+$0C], eax
* Reference to field TfrmLabelTab.OFFS_02DC
|
007498F1 8B83DC020000 mov eax, [ebx+$02DC]
007498F7 8B10 mov edx, [eax]
007498F9 FF5220 call dword ptr [edx+$20]
007498FC 89442410 mov [esp+$10], eax
* Reference to field TfrmLabelTab.OFFS_02DC
|
00749900 8B83DC020000 mov eax, [ebx+$02DC]
* Reference to: graphics.TBitmap.GetCanvas(TBitmap):TCanvas;
|
00749906 E841A9CDFF call 0042424C
0074990B 8B4014 mov eax, [eax+$14]
0074990E 33D2 xor edx, edx
* Reference to: graphics.TBrush.SetColor(TBrush;TColor);
|
00749910 E8A34DCDFF call 0041E6B8
* Reference to field TfrmLabelTab.OFFS_02DC
|
00749915 8B83DC020000 mov eax, [ebx+$02DC]
* Reference to: graphics.TBitmap.GetCanvas(TBitmap):TCanvas;
|
0074991B E82CA9CDFF call 0042424C
00749920 8D542404 lea edx, [esp+$04]
* Reference to: graphics.TCanvas.FillRect(TCanvas;TRect;TRect);
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -