VPF::mxFlatComboBox & hint - Форум программистов

santilaas

Дата 17.3.2007, 13:58 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 322
Регистрация: 28.8.2005
Где: Блага

Репутация: нет
Всего: нет

Привет всем: вопрос такой - у меня на форме лежит компонент mxFlatComboBox.
В onCreate формы заполняю выпадающий список значениями:

Код


for i:=0 to DM.DataSet.RecordCount - 1 do
   begin
      mxFlatComboBox.Items.Add(DM.DataSet.fieldbyName('FullName').AsString);
      DM.DataSet.Next;
   end;

Проблема такая: как сделать, чтобы если значения не помещаются по ширине выпадающего списка,
то:
- во-первых, на конце этого значения ставились точки ("...") (наподобие EndEllipsis для столбцов
DBGridEh);
- во-вторых, работала всплывающая подсказка hint, отображающая полное значение (опять же:
наподобие EndEllipsis для столбцов DBGridEh).
Только, пожалуйста, не спрашивайте почему нельзя воспользоваться тем же DBLookupComboBox (там это все есть), - надо именно так и все.
Заранее спасибо.

--------------------

[

VICTAR

Дата 17.3.2007, 16:34 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 37
Всего: 80

Цитата(santilaas @ 17.3.2007, 13:58

)

- во-первых, на конце этого значения ставились точки ("...") (наподобие EndEllipsis для столбцов
DBGridEh);

Вот что у меня получилось:

Код


procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox1.Style:=csOwnerDrawFixed;
end;

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
const pts = '...';
var tmp       : string;
    i, cWidth : integer;
begin
tmp:=ComboBox1.Items[Index];
with TComboBox(Control).Canvas do
  begin
    FillRect(Rect);
    cWidth:=Rect.Right-Rect.Left;
    if TextWidth(tmp)>cWidth then
      begin
        i:=pred(length(tmp));
        while (TextWidth(tmp+pts)>cWidth)and(i>1)do
          begin
            tmp:=Copy(tmp,1,i);
            dec(i);
          end;
        tmp:=tmp+pts;
      end;
    TextOut(Rect.Left, Rect.Top, tmp);
  end;
end;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »