Как нарисовать текст на форме

@eXPonent · Регистрация: 21.05.2012

Author24 — интернет-сервис помощи студентам

Вот описания функций:

Pascal

PaintBox = class(BaseDockControl) /// Окно для рисования
  private 
    procedure PResize(sender: Object;   e: EventArgs);
    procedure PPaint(sender: Object;    e: PaintEventArgs);
    procedure PMouseDown(sender: Object;    e: MouseEventArgs);
    procedure PMouseUp(sender: Object;  e: MouseEventArgs);
    procedure PMouseMove(sender: Object;    e: MouseEventArgs);
  public 
    event Resize: procedure;
    event Paint: procedure (e: PaintEventArgs);
    event MouseDown: procedure (e: MouseEventArgs);
    event MouseUp: procedure (e: MouseEventArgs);
    event MouseMove: procedure (e: MouseEventArgs);
    constructor Create();
    function Graphics: System.Drawing.Graphics;
    procedure Invalidate;
    //function pb: PictureBox;
  end;

Каким образом там рисовать?

Добавлено через 3 часа 4 минуты
Попытаюсь как-то конкретизировать задачу

Pascal

Uses FormsABC;
 
Var pt:=new PaintBox;
 
BEGIN
 
MainForm.Title := 'Текст';
MainForm.SetSize(500,410);
MainForm.CenterOnScreen;
 
pt.Height:=100;
pt.Width:=300;
 
END.

Как вывести в PaintBox текст Привет, если можно с оформлением или нарисовать линию диагональ.

Люди помогите мне это очень нужно, в интернете никакой информации не нашёл

@Sedlex · 22.01.2014, 18:59

http://delphi-prg.ru/komponent-delphi-paintbox
Транслируется на ABC.net, элементарно.

@Sedlex 6 / 6 / 7 Регистрация: 13.01.2013 Сообщений: 122
	22.01.2014, 18:59	2
	http://delphi-prg.ru/komponent-delphi-paintbox Транслируется на ABC.net, элементарно. 0