combobox текст по центру

[tarakan1983]

Здравствуйте, помогите пожалуйста.
Использование сторонних компонентов критично.
Нужно сделать текст в combobox по центру.
Начал так.

procedure TFmCode.Button1Click(Sender: TObject);
  var
    i,j,h : Integer;
begin
  h := ComboBox1.Width;
  for i := 0 to ComboBox1.Items.Count -1 do
    begin
      j := Canvas.TextWidth(ComboBox1.Items[i]);
      // Дальше не могу сообразить
    end;
end;

Измерил ширину ComboBox1.
Измерил ширину текста в каждой строке.
как теперь добавить пробелов, чтобы текст по центру получился?
Спасибо.

[Аватар]

Баловство какое-то. Можно так, но придется еще поиграться с цветом и фоном в зависимости от State. Да, и ComboBox1.Style:=csOwnerDrawFixed

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  DrawText(ComboBox1.Canvas.Handle,PChar(ComboBox1.Items[Index]),Length(ComboBox1.Items[Index]),Rect,DT_CENTER)
end;

[tarakan1983]

Сообщение от Аватар

Баловство какое-то. Можно так, но придется еще поиграться с цветом и фоном в зависимости от State. Да, и ComboBox1.Style:=csOwnerDrawFixed

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  DrawText(ComboBox1.Canvas.Handle,PChar(ComboBox1.Items[Index]),Length(ComboBox1.Items[Index]),Rect,DT_CENTER)
end;

спасибо конечно, но на данный пример я натыкался, нужен стиль csDropDownList. Тут никак нельзя?

[Аватар]

csOwnerDrawFixed и отличается от csDropDownList тем, что нужно самостоятельно прорисовывать. Да, и интересно зачем центрировать выпадающий список? Выбирать же юзеру не удобно. А подсчитать пробелы можно конечно, типа не большого говнокода, добавляя слева и справа пробелы в цикле, пока ширина текста не станет равной или больше клиентской ширине

[tarakan1983]

типа не большого говнокода

а можете помочь с таким кодом?

[Аватар]

ComboBox1.ClientWidth - клиентская ширина
и цикл WHILE или REPEAT добавляя поочередно пробел слева и справа к тексу опции, пока TextWidth не станет >= ClientWidth

[tarakan1983]

Сообщение от Аватар

ComboBox1.ClientWidth - клиентская ширина
и цикл WHILE или REPEAT добавляя поочередно пробел слева и справа к тексу опции, пока TextWidth не станет >= ClientWidth

Спасибо большое

[Аватар]

Вот еще вариант, не такой говнокодистый

procedure TForm1.Button1Click(Sender: TObject);
var k,i,j: Integer;
begin
  ComboBox1.Items.BeginUpdate;
  k:=ComboBox1.Canvas.TextWidth(' ')*2;
  for i:=0 to ComboBox1.Items.Count-1 do begin
    j:=ComboBox1.Canvas.TextWidth(Trim(ComboBox1.Items[i]));
    if j<ComboBox1.ClientWidth then ComboBox1.Items[i]:=StringOfChar(' ',(ComboBox1.ClientWidth-j) div k)+Trim(ComboBox1.Items[i])
                               else ComboBox1.Items[i]:=Trim(ComboBox1.Items[i]);
  end;
  ComboBox1.Items.EndUpdate;
end;

[tarakan1983]

у меня чуть проще получилось

procedure TForm1.CbCenter(cb: TComboBox);
  var
    i: Integer;
begin
  for i := 0 to cb.Items.Count - 1 do
    while cb.Width >= Canvas.TextWidth(cb.Items[i]) do
      cb.Items[i] := ' '+cb.Items[i]+' ';

end;

[Аватар]

Это проще , но дольше

PS

Кстати, с днем рождения!