mesg.~pa

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

unit mesg;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Spin, ExtCtrls, Grids, AdvGrid, ComCtrls, Buttons;

type
  TForm2 = class(TForm)
    Panel1: TPanel;
    FontName: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    SpinEdit1: TSpinEdit;
    Panel2: TPanel;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    Panel3: TPanel;
    Panel4: TPanel;
    AdvStringGrid1: TAdvStringGrid;
    Label3: TLabel;
    ComboBox1: TComboBox;
    Label4: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Panel5: TPanel;
    Label5: TLabel;
    RichEdit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure FontNameClick(Sender: TObject);
    procedure SpinEdit1Change(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure GetFontStyle(Value:integer);
    procedure CheckBox1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure AdvStringGrid1ButtonClick(Sender: TObject; ACol,
      ARow: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses GraphWin;

{$R *.DFM}

procedure TForm2.FormCreate(Sender: TObject);
var
i:integer;
begin
for i:=1 to 100 do
  with AdvStringGrid1 do begin
      cells[0,i]:=inttostr(i);
      AddButton(2,i,50,25,'禟