【delphi开源代码栏目提醒】:以下是网学会员为您推荐的delphi开源代码-BmpWrite.pas,希望本篇文章对您学习有所帮助。
unit BmpWrite;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls,xpman;
type
TForm1 = class(TForm)
ImgPanel: TImage;
Panel1: TPanel;
TBOpenBMP: TButton;
EDWrite: TEdit;
TBClose: TButton;
OpenD: TOpenDialog;
TBSave: TButton;
TBStartWrite: TButton;
SaveD: TSaveDialog;
procedure TBOpenBMPClick(Sender: TObject);
procedure ImgPanelMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure TBStartWriteClick(Sender: TObject);
procedure EDWriteKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormCreate(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
private
MX,MY:Integer;
start:Boolean;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.TBOpenBMPClick(Sender: TObject);
begin
with opend do
begin
if Execute then
begin
ImgPanel.Picture.LoadFromFile(Filename);
TBStartWrite.Enabled:=true;
end;
end;
end;
procedure TForm1.ImgPanelMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
MX:=x;
MY:=Y;
if start then
begin
with EDWrite do
begin
Parent:=form1;
Show;
left:=mx;
top:=my;
SetFocus;
End;
end;
end;
procedure TForm1.TBStartWriteClick(Sender: TObject);
begin
start:=true;
TButton(Sender).Enabled:=false;
end;
procedure TForm1.EDWriteKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (key = vk_return)then
begin
if Trim(TEdit(Sender).Text) <> '' then
begin
ImgPanel.Picture.Bitmap.Canvas.Font.Size:=20;
ImgPanel.Picture.Bitmap.Canvas.Brush.Style:=BSCLear;
ImgPanel.Picture.Bitmap.Canvas.TextOut(MX,MY,TEdit(Sender).Text);
end;
start:=false;
TEdit(Sender).Hide;
TEdit(Sender).Clear;
TBStartWrite.Enabled:=true;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
EDWrite.Hide;
end;
procedure TForm1.TBSaveClick(Sender: TObject);
begin
with SaveD do
begin
if Execute then
begin
ImgPanel.Picture.SaveToFile(filename);
end;
end;
end;
procedure TForm1.TBCloseClick(Sender: TObject);
begin
Close;
end;
end.
上一篇:
BMPTOWMFForm.pas
下一篇:
促进小额贷款公司健康发展的建议