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

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

Работа с Edit [D7, Win95/98, WinXP]

apic ©   (2006-09-28 07:38:00) 

Доброго времени!!! Как выровнять текст по правому краю в стандартном Edit'е

---

apic   (2006-09-28 08:24:00) [1]

СПАСИБО! Если у кого по роще придложения, то я не против, просто я гдето встречал пример, года два назад, но он утерян...

---

MBo   (2006-09-28 08:19:00) [2]

TMyEdit = Class(TEdit)
 private
   FAlignment: TAlignment;
   procedure SetAlignment(Value: TAlignment);
 protected
   procedure CreateParams(var Params: TCreateParams); override;
 public
 published
   Property Alignment: TAlignment  read FAlignment  write SetAlignment ;
 end;

procedure TMyEdit.CreateParams(var Params: TCreateParams);
begin
 inherited CreateParams(Params);
 case Alignment of
   taLeftJustify: Params.Style := Params.Style or ES_LEFT and not ES_MULTILINE;
   taRightJustify: Params.Style := Params.Style or ES_RIGHT and not ES_MULTILINE;
   taCenter: Params.Style := Params.Style or ES_CENTER and not ES_MULTILINE;
 end;
end;

procedure TMyEdit.SetAlignment(Value: TAlignment);
begin
 if FAlignment <> Value then
 begin
   FAlignment := Value;
   RecreateWnd;
 end;
end;

//Tip by Steve Zimmelman

---

apic   (2006-09-28 08:14:00) [3]

Можно пример, никогда подобного не делал

---

MBo   (2006-09-28 08:05:00) [4]

Сделать наследника, в CreateParams добавить стиль ES_RIGHT

---

Наверх