Форум: "Основная";
Текущий архив: 2010.01.10;
Скачать: [xml.tar.bz2];

Вниз

курсор в Tedit   Найти похожие ветки 

← →
webpauk ©   (2009-01-27 17:22) [0]

как поместить начальное размещение курсора, чтобы начало  вводимого текста было не сразу за Clientrect.left.
Хочу нарисовать в Tedit картинку, а потом вводить текст, чтобы текст шел за картинкой

---

← →
webpauk ©   (2009-01-27 17:48) [1]

Здесь хочется чегой-нить нарисовать:
procedure WMPaint(var Message: TWMPaint);

unit Edit1;

interface

uses
 SysUtils, Classes, Controls, StdCtrls, Messages, Windows;

type
 TEdit1 = class(TEdit)
 private
   procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
 protected
 public
 published
   constructor Create(AOwner: TComponent); override;
 end;

procedure Register;

implementation

procedure Register;
begin
 RegisterComponents("KVL", [TEdit1]);
end;

constructor TEdit1.Create(AOwner: TComponent);
begin
 inherited Create(AOwner);
 ControlStyle:=ControlStyle-[csSetCaption];
end;

procedure TEdit1.WMPaint(var Message: TWMPaint);
const
 cText = "Hello";
var
 Edit1_DC: HDC;
begin
 inherited;

 Edit1_DC:=GetDC(Handle);

 SetTextColor(Edit1_DC, $FF0000);
 TextOut(Edit1_DC, 0, 0, cText, Length(cText));

 ReleaseDC(Handle, Edit1_DC);
end;

end.

---

← →
Игорь Шевченко ©   (2009-01-27 18:01) [2]

> Хочу нарисовать в Tedit картинку, а потом вводить текст,
>  чтобы текст шел за картинкой


EM_SETRECTNP (только tEdit должен создаваться со стилем ES_MULTILINE)

---

← →
webpauk ©   (2009-01-27 18:54) [3]

> Игорь Шевченко ©   (27.01.09 18:01) [2]

схавал!
вопрос: а куда в компонент можно его засунуть, чтобы не париться на формах?

---

← →
KSergey ©   (2009-01-28 09:01) [4]

> webpauk ©   (27.01.09 18:54) [3]
> вопрос: а куда в компонент можно его засунуть, чтобы не париться на формах?

Его - кого?

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2010.01.10;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.006 c