unit Image;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, ExtCtrls;

type
  TImageForm=class(TForm)
    ScrollBox1: TScrollBox;
    Image1: TImage;
    procedure FormShow(Sender: TObject);
    procedure Image1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  ImageForm: TImageForm;


{This file is generated by DeDe v2.30 (c) 1999 by DaFixer}

implementation

{$R *.DFM}


procedure TImageForm.FormShow(Sender: TObject);
begin
{
00464BF8   53                     push    ebx
00464BF9   56                     push    esi
00464BFA   57                     push    edi
00464BFB   8BD8                   mov     ebx, eax
00464BFD   8BC3                   mov     eax, ebx
00464BFF   E8D4D2FCFF             call    00431ED8
00464C04   50                     push    eax

* Reference to: user32.SetForegroundWindow
|
00464C05   E8FE22FAFF             call    00406F08
00464C0A   6A00                   push    $00
00464C0C   A1582C4700             mov     eax, dword ptr [$472C58]
00464C11   8B00                   mov     eax, [eax]
00464C13   8B4024                 mov     eax, [eax+$24]
00464C16   50                     push    eax

* Reference to: user32.ShowWindow
|
00464C17   E88423FAFF             call    00406FA0
00464C1C   8B83C8020000           mov     eax, [ebx+$02C8]
00464C22   8BB018010000           mov     esi, [eax+$0118]
00464C28   8BC6                   mov     eax, esi
00464C2A   E8E978FBFF             call    0041C518
00464C2F   85C0                   test    eax, eax
00464C31   0F84E7000000           jz      00464D1E
00464C37   8BC6                   mov     eax, esi
00464C39   E8F278FBFF             call    0041C530
00464C3E   85C0                   test    eax, eax
00464C40   0F84D8000000           jz      00464D1E
00464C46   8BB3C8020000           mov     esi, [ebx+$02C8]
00464C4C   8B8618010000           mov     eax, [esi+$0118]
00464C52   E8C178FBFF             call    0041C518
00464C57   8BF8                   mov     edi, eax
00464C59   A1B02D4700             mov     eax, dword ptr [$472DB0]
00464C5E   8B00                   mov     eax, [eax]
00464C60   E88F16FEFF             call    004462F4
00464C65   3BF8                   cmp     edi, eax
00464C67   7E17                   jle     00464C80
00464C69   A1B02D4700             mov     eax, dword ptr [$472DB0]
00464C6E   8B00                   mov     eax, [eax]
00464C70   E87F16FEFF             call    004462F4
00464C75   8BD0                   mov     edx, eax
00464C77   8BC3                   mov     eax, ebx
00464C79   E8766DFCFF             call    0042B9F4
00464C7E   EB17                   jmp     00464C97
00464C80   8B8618010000           mov     eax, [esi+$0118]
00464C86   E88D78FBFF             call    0041C518
00464C8B   8BD0                   mov     edx, eax
00464C8D   83C204                 add     edx, +$04
00464C90   8BC3                   mov     eax, ebx
00464C92   E85D6DFCFF             call    0042B9F4
00464C97   8B8618010000           mov     eax, [esi+$0118]
00464C9D   E88E78FBFF             call    0041C530
00464CA2   8BF8                   mov     edi, eax
00464CA4   A1B02D4700             mov     eax, dword ptr [$472DB0]
00464CA9   8B00                   mov     eax, [eax]
00464CAB   E83816FEFF             call    004462E8
00464CB0   3BF8                   cmp     edi, eax
00464CB2   7E17                   jle     00464CCB
00464CB4   A1B02D4700             mov     eax, dword ptr [$472DB0]
00464CB9   8B00                   mov     eax, [eax]
00464CBB   E82816FEFF             call    004462E8
00464CC0   8BD0                   mov     edx, eax
00464CC2   8BC3                   mov     eax, ebx
00464CC4   E84F6DFCFF             call    0042BA18
00464CC9   EB17                   jmp     00464CE2
00464CCB   8B8618010000           mov     eax, [esi+$0118]
00464CD1   E85A78FBFF             call    0041C530
00464CD6   8BD0                   mov     edx, eax
00464CD8   83C204                 add     edx, +$04
00464CDB   8BC3                   mov     eax, ebx
00464CDD   E8366DFCFF             call    0042BA18
00464CE2   8B8618010000           mov     eax, [esi+$0118]
00464CE8   E82B78FBFF             call    0041C518
00464CED   8BD0                   mov     edx, eax
00464CEF   8B83C4020000           mov     eax, [ebx+$02C4]
00464CF5   8B80EC010000           mov     eax, [eax+$01EC]
00464CFB   E814BCFDFF             call    00440914
00464D00   8B8618010000           mov     eax, [esi+$0118]
00464D06   E82578FBFF             call    0041C530
00464D0B   8BD0                   mov     edx, eax
00464D0D   8B83C4020000           mov     eax, [ebx+$02C4]
00464D13   8B80F0010000           mov     eax, [eax+$01F0]
00464D19   E8F6BBFDFF             call    00440914
00464D1E   5F                     pop     edi
00464D1F   5E                     pop     esi
00464D20   5B                     pop     ebx
00464D21   C3                     ret


}
 end ; 

procedure TImageForm.Image1Click(Sender: TObject);
begin
{
00464D24   E8EF05FEFF             call    00445318
00464D29   C3                     ret


}
 end ; 

end.
