graphwin.~pas

一個可載入圖型編輯文字程式 可繪圖輸入文字等...功能,轉成2進製圖片

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); //