Category

Development Platform
Home > SourceCode/Document > Internet-Socket-Network > Remote Control > View Code
Img.pas
Package: netbus.zip　[view]
Upload User: sbswcs
Upload Date: 2007-01-07
Package Size: 4k
Code Size: 1k
Category:

Remote Control

Development Platform:

Delphi

Img.pas：Code Content
  1. unit Img;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   ExtCtrls, Menus;
  9. type
  10.   TImageForm = class(TForm)
  11.     ScrollBox1: TScrollBox;
  12.     Image1: TImage;
  13.     SaveDialog1: TSaveDialog;
  14.     PopupMenu1: TPopupMenu;
  15.     CloseItem: TMenuItem;
  16.     SaveItem: TMenuItem;
  17.     procedure FormShow(Sender: TObject);
  18.     procedure Image1Click(Sender: TObject);
  19.     procedure FormCreate(Sender: TObject);
  20.     procedure CloseItemClick(Sender: TObject);
  21.     procedure SaveItemClick(Sender: TObject);
  22.     procedure FormPaint(Sender: TObject);
  23.     procedure FormDeactivate(Sender: TObject);
  24.   private
  25.     { Private declarations }
  26.   public
  27.     { Public declarations }
  28.   end;
  30. var
  31.   ImageForm: TImageForm;
  33. implementation
  35. {$R *.DFM}
  37. procedure TImageForm.FormShow(Sender: TObject);
  38. begin
  39. // Address $4336CC
  40. end;
  42. procedure TImageForm.Image1Click(Sender: TObject);
  43. begin
  44. // Address $4337D8
  45. end;
  47. procedure TImageForm.FormCreate(Sender: TObject);
  48. begin
  49. // Address $4337E8
  50. end;
  52. procedure TImageForm.CloseItemClick(Sender: TObject);
  53. begin
  54. // Address $4337F0
  55. end;
  57. procedure TImageForm.SaveItemClick(Sender: TObject);
  58. begin
  59. // Address $4337F8
  60. end;
  62. procedure TImageForm.FormPaint(Sender: TObject);
  63. begin
  64. // Address $433860
  65. end;
  67. procedure TImageForm.FormDeactivate(Sender: TObject);
  68. begin
  69. // Address $433870
  70. end;
  72. end.