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

Вниз

Работа с Edit   Найти похожие ветки 

← →
apic ©   (2006-09-28 07:38) [0]

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

---

← →
MBo ©   (2006-09-28 08:05) [1]

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

---

← →
apic ©   (2006-09-28 08:14) [2]

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

---

← →
MBo ©   (2006-09-28 08:19) [3]

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:24) [4]

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

---

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

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

Наверх

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