📄 doartext.pas
字号:
unit DOArText;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls, ComCtrls, Buttons, ExtCtrls
type
TTextAttrDlg=class(TForm)
Panel2: TPanel;
OKBtn: TBitBtn;
CancelBtn: TBitBtn;
Panel1: TPanel;
vpcCtrl: TPageControl;
vtsStyle: TTabSheet;
Label1: TLabel;
Label2: TLabel;
mStrEdit: TEdit;
Label3: TLabel;
procedure _PROC_0050811C(Sender : TObject);
procedure _PROC_00508230(Sender : TObject);
procedure _PROC_00508250(Sender : TObject);
procedure _PROC_00508280(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
TextAttrDlg: TTextAttrDlg;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TTextAttrDlg._PROC_0050811C(Sender : TObject);
begin
(*
0050811C 55 push ebp
0050811D 8BEC mov ebp, esp
0050811F 6A00 push $00
00508121 6A00 push $00
00508123 6A00 push $00
00508125 6A00 push $00
00508127 53 push ebx
00508128 56 push esi
00508129 57 push edi
0050812A 894DFC mov [ebp-$04], ecx
0050812D 8BFA mov edi, edx
0050812F 8BD8 mov ebx, eax
00508131 8B7508 mov esi, [ebp+$08]
00508134 33C0 xor eax, eax
00508136 55 push ebp
00508137 681C825000 push $0050821C
***** TRY
|
0050813C 64FF30 push dword ptr fs:[eax]
0050813F 648920 mov fs:[eax], esp
00508142 8D55F8 lea edx, [ebp-$08]
* Reference to control TTextAttrDlg.mStrEdit : TEdit
|
00508145 8B83F0020000 mov eax, [ebx+$02F0]
* Reference to: controls.TControl.GetText(TControl):TCaption;
|
0050814B E80019F3FF call 00439A50
00508150 837DF800 cmp dword ptr [ebp-$08], +$00
00508154 0F849D000000 jz 005081F7
0050815A 8D55F4 lea edx, [ebp-$0C]
* Reference to control TTextAttrDlg.mStrEdit : TEdit
|
0050815D 8B83F0020000 mov eax, [ebx+$02F0]
* Reference to: controls.TControl.GetText(TControl):TCaption;
|
00508163 E8E818F3FF call 00439A50
00508168 8B55F4 mov edx, [ebp-$0C]
0050816B 8BC7 mov eax, edi
* Reference to: system.@LStrAsg;
|
0050816D E8D6BFEFFF call 00404148
00508172 8D55F0 lea edx, [ebp-$10]
* Reference to control TTextAttrDlg.vcbbFont : TFontComboBox
|
00508175 8B83F4020000 mov eax, [ebx+$02F4]
* Reference to : TFontComboBox._PROC_00507920()
|
0050817B E8A0F7FFFF call 00507920
00508180 8B55F0 mov edx, [ebp-$10]
00508183 8B06 mov eax, [esi]
* Reference to: graphics.TFont.SetName(TFont;TFontName);
|
00508185 E85A5FF1FF call 0041E0E4
* Reference to control TTextAttrDlg.vcbbColor : TColorComboBox
|
0050818A 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to : TFontComboBox._PROC_00506FDC()
|
00508190 E847EEFFFF call 00506FDC
00508195 8BD0 mov edx, eax
00508197 8B06 mov eax, [esi]
* Reference to: graphics.TFont.SetColor(TFont;TColor);
|
00508199 E81E5DF1FF call 0041DEBC
* Reference to control TTextAttrDlg.vcbbFont : TFontComboBox
|
0050819E 8B83F4020000 mov eax, [ebx+$02F4]
* Reference to field TFontComboBox.OFFS_0058
|
005081A4 8B4058 mov eax, [eax+$58]
* Reference to: graphics.TFont.GetSize(TFont):Integer;
|
005081A7 E8945FF1FF call 0041E140
005081AC 8BD0 mov edx, eax
005081AE 8B06 mov eax, [esi]
* Reference to: graphics.TFont.SetSize(TFont;Integer);
|
005081B0 E8A75FF1FF call 0041E15C
* Reference to control TTextAttrDlg.vcbbFont : TFontComboBox
|
005081B5 8B83F4020000 mov eax, [ebx+$02F4]
* Reference to field TFontComboBox.OFFS_0058
|
005081BB 8B4058 mov eax, [eax+$58]
* Reference to: graphics.TFont.GetStyle(TFont):TFontStyles;
|
005081BE E8B95FF1FF call 0041E17C
005081C3 8BD0 mov edx, eax
005081C5 8B06 mov eax, [esi]
* Reference to: graphics.TFont.SetStyle(TFont;TFontStyles);
|
005081C7 E8BC5FF1FF call 0041E188
* Reference to control TTextAttrDlg.vcbbFont : TFontComboBox
|
005081CC 8B83F4020000 mov eax, [ebx+$02F4]
* Reference to field TFontComboBox.OFFS_0058
|
005081D2 8B4058 mov eax, [eax+$58]
* Reference to: graphics.TFont.GetCharset(TFont):TFontCharset;
|
005081D5 E80A60F1FF call 0041E1E4
005081DA 8BD0 mov edx, eax
005081DC 8B06 mov eax, [esi]
* Reference to: graphics.TFont.SetCharset(TFont;TFontCharset);
|
005081DE E80960F1FF call 0041E1EC
* Reference to control TTextAttrDlg.vcbbColor : TColorComboBox
|
005081E3 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to : TFontComboBox._PROC_00506FDC()
|
005081E9 E8EEEDFFFF call 00506FDC
005081EE 8B55FC mov edx, [ebp-$04]
005081F1 8902 mov [edx], eax
005081F3 B301 mov bl, $01
005081F5 EB02 jmp 005081F9
005081F7 33DB xor ebx, ebx
005081F9 33C0 xor eax, eax
005081FB 5A pop edx
005081FC 59 pop ecx
005081FD 59 pop ecx
005081FE 648910 mov fs:[eax], edx
****** FINALLY
|
00508201 6823825000 push $00508223
00508206 8D45F0 lea eax, [ebp-$10]
* Reference to: system.@LStrClr(String;String);
|
00508209 E8E6BEEFFF call 004040F4
0050820E 8D45F4 lea eax, [ebp-$0C]
00508211 BA02000000 mov edx, $00000002
* Reference to: system.@LStrArrayClr;
|
00508216 E8FDBEEFFF call 00404118
0050821B C3 ret
* Reference to: system.@HandleFinally;
|
0050821C E90BB8EFFF jmp 00403A2C
00508221 EBE3 jmp 00508206
****** END
|
00508223 8BC3 mov eax, ebx
00508225 5F pop edi
00508226 5E pop esi
00508227 5B pop ebx
00508228 8BE5 mov esp, ebp
0050822A 5D pop ebp
0050822B C20400 ret $0004
*)
end;
procedure TTextAttrDlg._PROC_00508230(Sender : TObject);
begin
(*
00508230 53 push ebx
00508231 56 push esi
00508232 8BF1 mov esi, ecx
00508234 8BD8 mov ebx, eax
00508236 83EA0A sub edx, +$0A
00508239 8BC3 mov eax, ebx
* Reference to: controls.TControl.SetLeft(TControl;Integer);
|
0050823B E80410F3FF call 00439244
00508240 8BD6 mov edx, esi
00508242 83EA2D sub edx, +$2D
00508245 8BC3 mov eax, ebx
* Reference to: controls.TControl.SetTop(TControl;Integer);
|
00508247 E81810F3FF call 00439264
0050824C 5E pop esi
0050824D 5B pop ebx
0050824E C3 ret
*)
end;
procedure TTextAttrDlg._PROC_00508250(Sender : TObject);
begin
(*
00508250 55 push ebp
00508251 8BEC mov ebp, esp
00508253 33C0 xor eax, eax
00508255 55 push ebp
* Possible String Reference to: '椴凤⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -