Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > mxFlatComboBox & hint

Автор: santilaas 17.3.2007, 13:58

Привет всем: вопрос такой - у меня на форме лежит компонент 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

Цитата(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;