Вот, быстренький примерчик как можно заюзать:
Unit 1
| Код | unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Unit2, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
myEdit : TMyEdit;
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
myEdit := TMyEdit.Create(Self);
myEdit.Left := 10;
myEdit.Top := 10;
myEdit.Show;
myEdit.Width := 100;
myEdit.Height := 100;
myEdit.AutoSize := false;
myEdit.Picture.LoadFromFile('C:\Program Files\Common Files\Borland Shared\Images\Buttons\Abort.bmp');
end;
end.
|
Unit2
| Код | unit Unit2;
interface
uses Controls, StdCtrls, Graphics, Classes, Messages, Windows;
type
TMyEdit = class (TCustomEdit)
private
FPicture : TPicture;
FCanvas : TCanvas;
procedure WndProc(var Message : TMessage); override;
procedure Paint;
public
constructor Create(AOwner : TComponent); override;
destructor Destroy; override;
property Picture : TPicture read FPicture write FPicture;
property Autosize;
end;
implementation
{ MyEdit }
constructor TMyEdit.Create(AOwner: TComponent);
begin
inherited CReate(AOwner);
FPicture := TPicture.Create;
Parent := TWinControl(AOwner);
FCanvas := TControlCanvas.Create;
TControlCanvas(FCanvas).Control := Self;
end;
destructor TMyEdit.Destroy;
begin
FPicture.Free;
FCanvas.Free;
inherited destroy;
end;
procedure TMyEdit.Paint;
begin
try
if FCanvas.LockCount > 0 then exit;
FCanvas.Lock;
FCanvas.Brush.Bitmap := FPicture.Bitmap;
FillRect(FCanvas.Handle, ClientRect, 0);
FCanvas.TextOut(0,0, Text);
FCanvas.Unlock;
finally
end;
end;
procedure TMyEdit.WndProc(var Message: TMessage);
begin
Case Message.Msg of
WM_PAINT:
begin
Inherited WndProc(Message);
Paint;
end;
else
Inherited WndProc(Message);
end;
end;
end. |
В смысле как можно добавить св-во PIcture к Edit. |
