Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.044 c
2-1161357694
Zurius
2006-10-20 19:21
2006.11.05
Отображения длинной строки в ComboBox


4-1150793137
Lagrima_JN
2006-06-20 12:45
2006.11.05
Приостановка завершения Windows


15-1161070678
Kolan
2006-10-17 11:37
2006.11.05
Обещаный фото со свадьбы :)


9-1137854589
Mario-Hoi
2006-01-21 17:43
2006.11.05
Анимация


15-1161121504
ДЛЛ
2006-10-18 01:45
2006.11.05
А можно ли сделать так, чтобы другие не могли подключить мою ДЛЛ





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский