📄 billbrd.pas
字号:
unit BillBrd;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TfrmBillBrd=class(TForm)
Timer1: TTimer;
Image1: TImage;
Label1: TLabel;
Panel1: TPanel;
Timer2: TTimer;
RxGIFAnimator1: TImage;
procedure Timer1Timer(Sender : TObject);
procedure FormKeyDown(Sender : TObject);
procedure FormDestroy(Sender : TObject);
procedure FormClose(Sender : TObject);
procedure FormMouseWheelUp(Sender : TObject);
procedure FormMouseWheelDown(Sender : TObject);
procedure FormCreate(Sender : TObject);
procedure Image1MouseDown(Sender : TObject);
procedure Image1MouseMove(Sender : TObject);
procedure Timer2Timer(Sender : TObject);
procedure _PROC_00741928(Sender : TObject);
procedure _PROC_00741D74(Sender : TObject);
procedure _PROC_00741DA4(Sender : TObject);
procedure Proc_007416BC(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
frmBillBrd: TfrmBillBrd;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TfrmBillBrd.Timer1Timer(Sender : TObject);
begin
(*
007418B8 53 push ebx
007418B9 8BD8 mov ebx, eax
007418BB 33D2 xor edx, edx
* Reference to control TfrmBillBrd.Timer1 : TTimer
|
007418BD 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to: extctrls.TTimer.SetEnabled(TTimer;Boolean);
|
007418C3 E808DCD1FF call 0045F4D0
007418C8 6A00 push $00
007418CA 6820F00000 push $0000F020
007418CF 6812010000 push $00000112
007418D4 8BC3 mov eax, ebx
* Reference to: controls.TWinControl.GetHandle(TWinControl):HWND;
|
007418D6 E8ADE4CFFF call 0043FD88
007418DB 50 push eax
* Reference to: user32.DefWindowProcA()
|
007418DC E8976FCCFF call 00408878
007418E1 5B pop ebx
007418E2 C3 ret
*)
end;
procedure TfrmBillBrd.FormKeyDown(Sender : TObject);
begin
(*
007418E4 55 push ebp
007418E5 8BEC mov ebp, esp
007418E7 53 push ebx
007418E8 8BD8 mov ebx, eax
007418EA 668B01 mov ax, word ptr [ecx]
007418ED 6683E80D sub ax, +$0D
007418F1 7406 jz 007418F9
007418F3 6683E80E sub ax, +$0E
007418F7 7516 jnz 0074190F
007418F9 33D2 xor edx, edx
* Reference to control TfrmBillBrd.Timer1 : TTimer
|
007418FB 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to: extctrls.TTimer.SetEnabled(TTimer;Boolean);
|
00741901 E8CADBD1FF call 0045F4D0
00741906 8BC3 mov eax, ebx
* Reference to: forms.TCustomForm.Close(TCustomForm);
|
00741908 E8AF47D1FF call 004560BC
0074190D EB14 jmp 00741923
* Reference to field TfrmBillBrd.OFFS_02F0
|
0074190F 8B83F0020000 mov eax, [ebx+$02F0]
00741915 85C0 test eax, eax
00741917 740A jz 00741923
00741919 8BD1 mov edx, ecx
0074191B 8A4D08 mov cl, byte ptr [ebp+$08]
* Reference to : TLifeBoard._PROC_0075B91C()
|
0074191E E8F99F0100 call 0075B91C
00741923 5B pop ebx
00741924 5D pop ebp
00741925 C20400 ret $0004
*)
end;
procedure TfrmBillBrd.FormDestroy(Sender : TObject);
begin
(*
* Reference to field TfrmBillBrd.OFFS_02F0
|
00741ABC 8B80F0020000 mov eax, [eax+$02F0]
* Reference to: system.TObject.Free(TObject);
|
00741AC2 E80518CCFF call 004032CC
00741AC7 C3 ret
*)
end;
procedure TfrmBillBrd.FormClose(Sender : TObject);
begin
(*
00741AC8 C60102 mov byte ptr [ecx], $02
00741ACB C3 ret
*)
end;
procedure TfrmBillBrd.FormMouseWheelUp(Sender : TObject);
begin
(*
00741ACC 55 push ebp
00741ACD 8BEC mov ebp, esp
00741ACF 83C4F4 add esp, -$0C
00741AD2 56 push esi
00741AD3 57 push edi
00741AD4 8B750C mov esi, [ebp+$0C]
00741AD7 8D7DF8 lea edi, [ebp-$08]
00741ADA A5 movsd
00741ADB A5 movsd
00741ADC 66C745F62600 mov word ptr [ebp-$0A], $0026
00741AE2 8D55F6 lea edx, [ebp-$0A]
00741AE5 8A0D001B7400 mov cl, byte ptr [$00741B00]
* Reference to field TfrmBillBrd.OFFS_02F0
|
00741AEB 8B80F0020000 mov eax, [eax+$02F0]
* Reference to : TLifeBoard._PROC_0075B91C()
|
00741AF1 E8269E0100 call 0075B91C
00741AF6 5F pop edi
00741AF7 5E pop esi
00741AF8 8BE5 mov esp, ebp
00741AFA 5D pop ebp
00741AFB C20800 ret $0008
*)
end;
procedure TfrmBillBrd.FormMouseWheelDown(Sender : TObject);
begin
(*
00741B04 55 push ebp
00741B05 8BEC mov ebp, esp
00741B07 83C4F4 add esp, -$0C
00741B0A 56 push esi
00741B0B 57 push edi
00741B0C 8B750C mov esi, [ebp+$0C]
00741B0F 8D7DF8 lea edi, [ebp-$08]
00741B12 A5 movsd
00741B13 A5 movsd
00741B14 66C745F62800 mov word ptr [ebp-$0A], $0028
00741B1A 8D55F6 lea edx, [ebp-$0A]
00741B1D 8A0D381B7400 mov cl, byte ptr [$00741B38]
* Reference to field TfrmBillBrd.OFFS_02F0
|
00741B23 8B80F0020000 mov eax, [eax+$02F0]
* Reference to : TLifeBoard._PROC_0075B91C()
|
00741B29 E8EE9D0100 call 0075B91C
00741B2E 5F pop edi
00741B2F 5E pop esi
00741B30 8BE5 mov esp, ebp
00741B32 5D pop ebp
00741B33 C20800 ret $0008
*)
end;
procedure TfrmBillBrd.FormCreate(Sender : TObject);
begin
(*
00741B3C 55 push ebp
00741B3D 8BEC mov ebp, esp
00741B3F 51 push ecx
00741B40 53 push ebx
00741B41 56 push esi
00741B42 57 push edi
00741B43 8945FC mov [ebp-$04], eax
* Reference to pointer to GlobalVar_007992D0
|
00741B46 A1E8CC7700 mov eax, dword ptr [$0077CCE8]
00741B4B 8B00 mov eax, [eax]
* Reference to: Unit_00409434.Proc_0040A8BC
|
00741B4D E86A8DCCFF call 0040A8BC
00741B52 84C0 test al, al
00741B54 741C jz 00741B72
* Reference to pointer to GlobalVar_007992D0
|
00741B56 8B15E8CC7700 mov edx, [$0077CCE8]
00741B5C 8B12 mov edx, [edx]
00741B5E 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmBillBrd.Image1 : TImage
|
00741B61 8B80D4020000 mov eax, [eax+$02D4]
* Reference to field TImage.Picture : TPicture
|
00741B67 8B8028010000 mov eax, [eax+$0128]
* Reference to: graphics.TPicture.LoadFromFile(TPicture;AnsiString);
|
00741B6D E8DEFBCDFF call 00421750
00741B72 33C0 xor eax, eax
00741B74 55 push ebp
00741B75 68E31B7400 push $00741BE3
***** TRY
|
00741B7A 64FF30 push dword ptr fs:[eax]
00741B7D 648920 mov fs:[eax], esp
00741B80 A12CD37700 mov eax, dword ptr [$0077D32C]
00741B85 803800 cmp byte ptr [eax], $00
00741B88 7444 jz 00741BCE
00741B8A 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmBillBrd.Panel1 : TPanel
|
00741B8D 8B88DC020000 mov ecx, [eax+$02DC]
00741B93 B201 mov dl, $01
* Reference to class TShockwaveFlash
|
00741B95 A110B45200 mov eax, dword ptr [$0052B410]
* Reference to: olectrls.TOleControl.Create(TOleControl;boolean;TComponent);
|
00741B9A E8E1AEDCFF call 0050CA80
00741B9F 8BD8 mov ebx, eax
00741BA1 8B45FC mov eax, [ebp-$04]
* Reference to field TfrmBillBrd.OFFS_02F4
|
00741BA4 8998F4020000 mov [eax+$02F4], ebx
00741BAA 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmBillBrd.Panel1 : TPanel
|
00741BAD 8B90DC020000 mov edx, [eax+$02DC]
00741BB3 8BC3 mov eax, ebx
00741BB5 8B08 mov ecx, [eax]
* Possible reference to virtual method TShockwaveFlash.OFFS_60
|
00741BB7 FF5160 call dword ptr [ecx+$60]
00741BBA B205 mov dl, $05
00741BBC 8BC3 mov eax, ebx
* Reference to: controls.TControl.SetAlign(TControl;TAlign);
|
00741BBE E87974CFFF call 0043903C
00741BC3 33D2 xor edx, edx
00741BC5 8BC3 mov eax, ebx
* Reference to: controls.TControl.SetVisible(TControl;Boolean);
|
00741BC7 E89C7DCFFF call 00439968
00741BCC EB0B jmp 00741BD9
00741BCE 8B45FC mov eax, [ebp-$04]
00741BD1 33D2 xor edx, edx
* Reference to field TfrmBillBrd.OFFS_02F4
|
00741BD3 8990F4020000 mov [eax+$02F4], edx
00741BD9 33C0 xor eax, eax
00741BDB 5A pop edx
00741BDC 59 pop ecx
00741BDD 59 pop ecx
00741BDE 648910 mov fs:[eax], edx
00741BE1 EB15 jmp 00741BF8
* Reference to: system.@HandleAnyException;
|
00741BE3 E9901BCCFF jmp 00403778
00741BE8 8B45FC mov eax, [ebp-$04]
00741BEB 33D2 xor edx, edx
* Reference to field TfrmBillBrd.OFFS_02F4
|
00741BED 8990F4020000 mov [eax+$02F4], edx
* Reference to: system.@DoneExcept;
|
00741BF3 E89C1FCCFF call 00403B94
****** END
|
00741BF8 5F pop edi
00741BF9 5E pop esi
00741BFA 5B pop ebx
00741BFB 59 pop ecx
00741BFC 5D pop ebp
00741BFD C3 ret
*)
end;
procedure TfrmBillBrd.Image1MouseDown(Sender : TObject);
begin
(*
00741C00 55 push ebp
00741C01 8BEC mov ebp, esp
00741C03 53 push ebx
00741C04 8BD8 mov ebx, eax
00741C06 8B5508 mov edx, [ebp+$08]
00741C09 8B450C mov eax, [ebp+$0C]
00741C0C 3D88010000 cmp eax, $00000188
00741C11 7C1D jl 00741C30
00741C13 3D93010000 cmp eax, $00000193
00741C18 7F16 jnle 00741C30
00741C1A 83FA0E cmp edx, +$0E
00741C1D 7C11 jl 00741C30
00741C1F 83FA19 cmp edx, +$19
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -