| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

курсор в Tedit [D7, WinXP]

webpauk ©   (2009-01-27 17:22:00) 

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

---

KSergey   (2009-01-28 09:01:00) [1]

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

Его - кого?

---

webpauk   (2009-01-27 18:54:00) [2]

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

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

---

Игорь Шевченко   (2009-01-27 18:01:00) [3]

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


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

---

webpauk   (2009-01-27 17:48:00) [4]

Здесь хочется чегой-нить нарисовать:
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.

---

Наверх