?? graphwin.~pas
字號:
unit GraphWin;
interface
uses
SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs,
Buttons, ExtCtrls, StdCtrls, ComCtrls, Menus, OoMisc, AdPort, NumConv, ShellAPI,
Handles, FonTImag, Spin, Resizer, ImgList, ToolWin, ExtDlgs;
type
TDrawingTool = (dtnome, dtLine, dtRectangle, dtEllipse, dtRoundRect, dtPixels, dtPixelsn, dtPixelsd);
TFrmprint = class(TForm)
Panel1: TPanel;
BrushButton: TSpeedButton;
PenBar: TPanel;
StatusBar1: TStatusBar;
ScrollBox1: TScrollBox;
ColorDialog1: TColorDialog;
MainMenu1: TMainMenu;
File1: TMenuItem;
New1: TMenuItem;
Open1: TMenuItem;
Save1: TMenuItem;
Saveas1: TMenuItem;
N1: TMenuItem;
Exit1: TMenuItem;
Edit1: TMenuItem;
Cut1: TMenuItem;
Copy1: TMenuItem;
Paste1: TMenuItem;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
NumConv1: TNumConv;
Timer1: TTimer;
Button1: TButton;
StretchHandle1: TStretchHandle;
Panel2: TPanel;
ProgressBar1: TProgressBar;
GroupBox1: TGroupBox;
SpeedButton5: TSpeedButton;
SpeedButton4: TSpeedButton;
LineButton: TSpeedButton;
RectangleButton: TSpeedButton;
EllipseButton: TSpeedButton;
RoundRectButton: TSpeedButton;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
GroupBox2: TGroupBox;
ComboBox1: TComboBox;
PenSize: TSpinEdit;
Label4: TLabel;
Label5: TLabel;
Panel3: TPanel;
Panel4: TPanel;
Image1: TImage;
Panel5: TPanel;
Image2: TImage;
Panel6: TPanel;
Image3: TImage;
Panel7: TPanel;
Image4: TImage;
Panel8: TPanel;
Image5: TImage;
Panel9: TPanel;
Image6: TImage;
Panel10: TPanel;
Image7: TImage;
Panel11: TPanel;
Image8: TImage;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Panel12: TPanel;
Image: TImage;
ToolBar1: TToolBar;
BitBtn2: TBitBtn;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ImageList1: TImageList;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
ToolButton7: TToolButton;
ToolButton8: TToolButton;
ToolButton9: TToolButton;
ToolButton10: TToolButton;
ToolButton11: TToolButton;
Memo1: TMemo;
ToolButton12: TToolButton;
ToolButton13: TToolButton;
SpeedButton7: TSpeedButton;
Label1: TLabel;
SpeedButton8: TSpeedButton;
SpeedButton9: TSpeedButton;
Label2: TLabel;
Timer2: TTimer;
FontImage1: TFontImage;
OpenPictureDialog1: TOpenPictureDialog;
SpeedButton6: TSpeedButton;
N2: TMenuItem;
Timer3: TTimer;
ToolButton14: TToolButton;
SpinEdit1: TSpinEdit;
Label3: TLabel;
Label14: TLabel;
procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure LineButtonClick(Sender: TObject);
procedure RectangleButtonClick(Sender: TObject);
procedure EllipseButtonClick(Sender: TObject);
procedure RoundRectButtonClick(Sender: TObject);
procedure BrushButtonClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure PenColorClick(Sender: TObject);
procedure BrushColorClick(Sender: TObject);
procedure Exit1Click(Sender: TObject);
procedure Open1Click(Sender: TObject);
procedure Save1Click(Sender: TObject);
procedure Saveas1Click(Sender: TObject);
procedure New1Click(Sender: TObject);
procedure Copy1Click(Sender: TObject);
procedure Cut1Click(Sender: TObject);
procedure Paste1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FontNameClick(Sender: TObject);
procedure StretchHandle1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure StretchHandle1DblClick(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton6Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton7Click(Sender: TObject);
procedure PenSizeChange(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure Image1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure gipdata;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure ToolButton4Click(Sender: TObject);
procedure ToolButton13Click(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure Timer3Timer(Sender: TObject);
procedure RadioGroup1Click(Sender: TObject); //
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -