Элемент "Текст" как в Paint

[artemavd]

Как создать в Delphi аналог элемента "Текст"? Ну, например, такой как в MS Paint когда мы выбираем "А" и можем печатать текст. Хочу попробовать вставлять на Image много текста, поэтому создал эту тему.

[Alex Cones]

Главный холст - не TImage, а BitMap. На Имагу выводим Битмап. На имаге же и отрисоввываем служебные фигуры (в данном случае - рамка вокруг текста. В String по мере набора текста добавляем буквы и каждый раз выводим TextOut на ИМАГУ. В конце после окончания ввода рисуем на БИТМАП.

[dmitriegorovih]

Ну смотрите

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure razmer_image(razmer_width, razmer_height:integer);
    procedure Edit1Change(Sender: TObject);
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  kom:Timage;
  b:boolean;
  x2,y2:integer;
  obekt:Tobject;
implementation

{$R *.dfm}

procedure TForm1.razmer_image(razmer_width, razmer_height:integer);
begin
image1.Picture:=nil;
image1.Width:=razmer_width+20;
image1.Height:=razmer_height+20;
image1.Transparent:=true;
image1.Canvas.Pen.Color:=$00E4A68B; //$00805D4E;
image1.Canvas.Pen.Width:=3;
image1.Canvas.MoveTo(3,3);
image1.Canvas.LineTo(image1.Width-3,3);
image1.Canvas.MoveTo(image1.Width-3,3);
image1.Canvas.LineTo(image1.Width-3,image1.Height-3);
image1.Canvas.MoveTo(image1.Width-3,image1.Height-3);
image1.Canvas.LineTo(3,image1.Height-3);
image1.Canvas.MoveTo(3,image1.Height-3);
image1.Canvas.LineTo(3,3);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
kom:=Timage.Create(form1);
kom.Parent:=form1;
kom.Transparent:=true;
kom.Width:=kom.Canvas.TextWidth(edit1.Text);
kom.Height:=kom.Canvas.TextHeight(edit1.Text);
kom.Canvas.TextOut(0,0,edit1.text);
razmer_image(kom.Width,kom.Height);
image1.Left:=kom.Left-10;
image1.Top:=kom.Top-10;
kom.OnMouseDown:=image1.OnMouseDown;
kom.OnMouseMove:=image1.OnMouseMove;
kom.OnMouseUp:=image1.OnMouseUp;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
Timage(obekt).Picture:=nil;
Timage(obekt).Width:=Timage(obekt).Canvas.TextWidth(edit1.Text);
Timage(obekt).Height:=Timage(obekt).Canvas.TextHeight(edit1.Text);
Timage(obekt).Canvas.TextOut(0,0,edit1.text);
Timage(obekt).Picture:=nil;
Timage(obekt).Width:=Timage(obekt).Canvas.TextWidth(edit1.Text);
Timage(obekt).Height:=Timage(obekt).Canvas.TextHeight(edit1.Text);
Timage(obekt).Canvas.TextOut(0,0,edit1.text);
razmer_image(Timage(obekt).Width,Timage(obekt).Height);
image1.Left:=Timage(obekt).Left-10;
image1.Top:=Timage(obekt).Top-10;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if b=true then begin
Timage(sender).Left:=Timage(sender).Left+(x-x2);
Timage(sender).Top:=Timage(sender).Top+(y-y2);
image1.Left:=Timage(sender).Left-10;
image1.Top:=Timage(sender).Top-10;
end;
end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
b:=true;
x2:=x;
y2:=y;
obekt:=sender;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
b:=false;
end;

[ArtGrek]

если Edit зделат прозрачным, можно получит компонент Text
а поднего положить прозрачныи Image с изображением рамки по краям,
для Resize, реализовыват которыи можно описывая событиа движения
мышки над краями Image, что торчат из-под Edit

[ArtGrek]

если Edit зделат прозрачным, можно получит компонент Text

решение наидено
http://programmersforum.ru/showpost....62&postcount=4