mesg.pas

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

unit mesg;

interface

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

type
  TFrmfont = 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);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frmfont: TFrmfont;

implementation

uses GraphWin,IniLang,qs2002;

{$R *.DFM}

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