Delphi уроки: ComboBox равняйсь на право
Простой пример того как установить выравнивание записей по правому краю в компоненте ComboBox.
Для начала запустим Delphi и создадим новый проект. На форму кидаем один компонент ComboBox с закладки Standard. После чего создайте в нем несколько записей, делается это очень просто выделяем ComboBox находим у него свойство Item жмем по нему два раза, открывается окно записываем в нем какой ни будь текст.
Затем создадим обработчик событий OnCreate на Форме и в нем пропишем следующую строку :
ComboBox1.Style := csOwnerDrawFixed;
Полный код обработчика событий OnCreate должен выглядеть так:
procedure TForm1.FormCreate(Sender: TObject) ;
begin
ComboBox1.Style := csOwnerDrawFixed;
end;
Далее опять же выделяем ComboBox и создаем на нем обработчик событий OnDrawItem (полный код обработчика представлен ниже)
procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState) ;
var
x: Integer;
txt: String;
begin
with ComboBox1 do
begin
Canvas.FillRect(Rect) ;
txt := Items[Index];
x := Rect.Right - Canvas.TextWidth(txt) - 4;
Canvas.TextOut(x, Rect.Top, txt) ;
end;
end;
Посмотрите что получилось у меня и допишите не достающие строки.
Вот в принципе и все запускаем проект ... теперь записи выравниваются по правому краю!
До встречи DelphiExpert.ru !!!
Похожие материалы
- Добавляем иконку в trey
- New Audio Components
- xKeyHook - перехват нажатых клавиш
- Компонент Error OFF
- Indy Demo
Последние из рубрики
- Delphi уроки: Делаем многострочный Caption у Button
- Видео обзор - компилятора CodeGear 2009
- Delphi уроки - Учимся работать с Excel документами в Delphi