?? dgrfshq.pas
字號:
unit DGRfsHq;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls, ExtCtrls
type
TFrmRefreshHQ=class(TForm)
Timer1: TTimer;
procedure FormCreate(Sender : TObject);
procedure FormDestroy(Sender : TObject);
procedure Timer1Timer(Sender : TObject);
procedure FormPaint(Sender : TObject);
procedure _PROC_006A842C(Sender : TObject);
procedure _PROC_006A85D9(Sender : TObject);
procedure _PROC_006A8608(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
FrmRefreshHQ: TFrmRefreshHQ;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TFrmRefreshHQ.FormCreate(Sender : TObject);
begin
(*
* Reference to pointer to GlobalVar_0078CF18
|
006A8414 A1E8D07700 mov eax, dword ptr [$0077D0E8]
006A8419 8B00 mov eax, [eax]
006A841B B20E mov dl, $0E
006A841D 8B08 mov ecx, [eax]
* Possible reference to virtual method TGlobalVar_0078CF18.OFFS_5C
|
006A841F FF515C call dword ptr [ecx+$5C]
006A8422 C3 ret
*)
end;
procedure TFrmRefreshHQ.FormDestroy(Sender : TObject);
begin
(*
006A8424 33C0 xor eax, eax
006A8426 A3B8AD7700 mov dword ptr [$0077ADB8], eax
006A842B C3 ret
*)
end;
procedure TFrmRefreshHQ.Timer1Timer(Sender : TObject);
begin
(*
* Reference to : TFrmRefreshHQ._PROC_006A842C()
|
006A8434 E8F3FFFFFF call 006A842C
006A8439 C3 ret
*)
end;
procedure TFrmRefreshHQ.FormPaint(Sender : TObject);
begin
(*
006A843C 55 push ebp
006A843D 8BEC mov ebp, esp
006A843F 83C4E0 add esp, -$20
006A8442 53 push ebx
006A8443 56 push esi
006A8444 57 push edi
006A8445 33C9 xor ecx, ecx
006A8447 894DF4 mov [ebp-$0C], ecx
006A844A 8BF0 mov esi, eax
006A844C 33C0 xor eax, eax
006A844E 55 push ebp
006A844F 6892856A00 push $006A8592
***** TRY
|
006A8454 64FF30 push dword ptr fs:[eax]
006A8457 648920 mov fs:[eax], esp
006A845A B201 mov dl, $01
* Reference to class TBitmap32
|
006A845C A1BC925200 mov eax, dword ptr [$005292BC]
* Reference to : TBitmap32._PROC_005297DC()
|
006A8461 E87613E8FF call 005297DC
006A8466 8BD8 mov ebx, eax
006A8468 8BC6 mov eax, esi
* Reference to: controls.TControl.GetClientWidth(TControl):Integer;
|
006A846A E84510D9FF call 004394B4
006A846F 8BD0 mov edx, eax
006A8471 8BC3 mov eax, ebx
* Reference to : TBitmap32._PROC_005297D0()
|
006A8473 E85813E8FF call 005297D0
006A8478 8BC6 mov eax, esi
* Reference to: controls.TControl.GetClientHeight(TControl):Integer;
|
006A847A E87910D9FF call 004394F8
006A847F 8BD0 mov edx, eax
006A8481 8BC3 mov eax, ebx
* Reference to : TBitmap32._PROC_00529778()
|
006A8483 E8F012E8FF call 00529778
* Possible String Reference to: '楷體_GB2312'
|
006A8488 BAA8856A00 mov edx, $006A85A8
* Reference to field TBitmap32.OFFS_0078
|
006A848D 8B4378 mov eax, [ebx+$78]
* Reference to: graphics.TFont.SetName(TFont;TFontName);
|
006A8490 E84F5CD7FF call 0041E0E4
006A8495 BA12000000 mov edx, $00000012
* Reference to field TBitmap32.OFFS_0078
|
006A849A 8B4378 mov eax, [ebx+$78]
* Reference to: graphics.TFont.SetSize(TFont;Integer);
|
006A849D E8BA5CD7FF call 0041E15C
006A84A2 8D45F4 lea eax, [ebp-$0C]
* Possible String Reference to: '正在刷新行情數據，請稍候...'
|
006A84A5 BABC856A00 mov edx, $006A85BC
* Reference to: system.@LStrLAsg;
|
006A84AA E8DDBCD5FF call 0040418C
006A84AF 8D4DF8 lea ecx, [ebp-$08]
006A84B2 8B55F4 mov edx, [ebp-$0C]
006A84B5 8BC3 mov eax, ebx
* Reference to : TBitmap32._PROC_0052AA14()
|
006A84B7 E85825E8FF call 0052AA14
* Reference to field TBitmap32.OFFS_0034
|
006A84BC 8B7B34 mov edi, [ebx+$34]
006A84BF 2B7DF8 sub edi, dword ptr [ebp-$08]
006A84C2 D1FF sar edi, 1
006A84C4 7903 jns 006A84C9
006A84C6 83D700 adc edi, +$00
* Reference to field TBitmap32.OFFS_0030
|
006A84C9 8B4330 mov eax, [ebx+$30]
006A84CC 2B45FC sub eax, dword ptr [ebp-$04]
006A84CF D1F8 sar eax, 1
006A84D1 7903 jns 006A84D6
006A84D3 83D000 adc eax, +$00
006A84D6 8945F0 mov [ebp-$10], eax
006A84D9 8BC3 mov eax, ebx
* Reference to : TBitmap32._PROC_0052A180()
|
006A84DB E8A01CE8FF call 0052A180
* Reference to field TBitmap32.OFFS_0014
|
006A84E0 8B4014 mov eax, [eax+$14]
006A84E3 BA0000FF00 mov edx, $00FF0000
* Reference to: graphics.TBrush.SetColor(TBrush;TColor);
|
006A84E8 E8CB61D7FF call 0041E6B8
006A84ED 8BC3 mov eax, ebx
* Reference to : TBitmap32._PROC_0052A180()
|
006A84EF E88C1CE8FF call 0052A180
* Reference to field TBitmap32.OFFS_0010
|
006A84F4 8B4010 mov eax, [eax+$10]
006A84F7 BAFFFFFF00 mov edx, $00FFFFFF
* Reference to: graphics.TPen.SetColor(TPen;TColor);
|
006A84FC E8A75ED7FF call 0041E3A8
006A8501 8D55E0 lea edx, [ebp-$20]
006A8504 8BC6 mov eax, esi
006A8506 8B08 mov ecx, [eax]
* Reference to method TFrmRefreshHQ.GetClientRect()
|
006A8508 FF5140 call dword ptr [ecx+$40]
006A850B 8D45E0 lea eax, [ebp-$20]
006A850E 50 push eax
006A850F 8BC3 mov eax, ebx
* Reference to : TBitmap32._PROC_0052A180()
|
006A8511 E86A1CE8FF call 0052A180
006A8516 5A pop edx
* Reference to: graphics.TCanvas.Ellipse(TCanvas;TRect;TRect);overload;
|
006A8517 E8206BD7FF call 0041F03C
006A851C 8B45F4 mov eax, [ebp-$0C]
006A851F 50 push eax
006A8520 6A01 push $01
006A8522 B8FFFF5000 mov eax, $0050FFFF
* Reference to: GR32.Proc_005294A8
|
006A8527 E87C0FE8FF call 005294A8
006A852C 50 push eax
006A852D 8B4DF0 mov ecx, [ebp-$10]
006A8530 8BD7 mov edx, edi
006A8532 8BC3 mov eax, ebx
* Reference to : TBitmap32._PROC_0052ACD4()
|
006A8534 E89B27E8FF call 0052ACD4
006A8539 682000CC00 push $00CC0020
006A853E 6A00 push $00
006A8540 6A00 push $00
006A8542 8BC3 mov eax, ebx
* Reference to : TBitmap32._PROC_0052A180()
|
006A8544 E8371CE8FF call 0052A180
* Reference to: graphics.TCanvas.GetHandle(TCanvas):HDC;
|
006A8549 E8FA6ED7FF call 0041F448
006A854E 50 push eax
006A854F 8BC6 mov eax, esi
* Reference to: controls.TControl.GetClientHeight(TControl):Integer;
|
006A8551 E8A20FD9FF call 004394F8
006A8556 50 push eax
006A8557 8BC6 mov eax, esi
* Reference to: controls.TControl.GetClientWidth(TControl):Integer;
|
006A8559 E8560FD9FF call 004394B4
006A855E 50 push eax
006A855F 6A00 push $00
006A8561 6A00 push $00
006A8563 8BC6 mov eax, esi
* Reference to: forms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
|
006A8565 E8B6B5DAFF call 00453B20
* Reference to: graphics.TCanvas.GetHandle(TCanvas):HDC;
|
006A856A E8D96ED7FF call 0041F448
006A856F 50 push eax
* Reference to: gdi32.BitBlt()
|
006A8570 E84BFED5FF call 004083C0
006A8575 8BC3 mov eax, ebx
* Reference to: system.TObject.Free(TObject);
|
006A8577 E850ADD5FF call 004032CC
006A857C 33C0 xor eax, eax
006A857E 5A pop edx
006A857F 59 pop ecx
006A8580 59 pop ecx
006A8581 648910 mov fs:[eax], edx
****** FINALLY
|
006A8584 6899856A00 push $006A8599
006A8589 8D45F4 lea eax, [ebp-$0C]
* Reference to: system.@LStrClr(String;String);
|
006A858C E863BBD5FF call 004040F4
006A8591 C3 ret
* Reference to: system.@HandleFinally;
|
006A8592 E995B4D5FF jmp 00403A2C
006A8597 EBF0 jmp 006A8589
****** END
|
006A8599 5F pop edi
006A859A 5E pop esi
006A859B 5B pop ebx
006A859C 8BE5 mov esp, ebp
006A859E 5D pop ebp
006A859F C3 ret
*)
end;
procedure TFrmRefreshHQ._PROC_006A842C(Sender : TObject);
begin
(*
* Reference to: forms.TCustomForm.Close(TCustomForm);
|
006A842C E88BDCDAFF call 004560BC
006A8431 C3 ret
*)
end;
procedure TFrmRefreshHQ._PROC_006A85D9(Sender : TObject);
begin
(*
006A85D9 8BEC mov ebp, esp
006A85DB 33C0 xor eax, eax
006A85DD 55 push ebp
* Possible String Reference to: '?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -