Выравнивание по центру в ComboBox

@d7d1cd · Регистрация: 30.06.2011

Author24 — интернет-сервис помощи студентам

Привет всем! Собственно вопрос уже прозвучал... Как осуществить сие действие в С++Builder?

LK · 20.02.2012, 20:14

увы, делфий, но... все интуитивно понятно

Pascal

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var
  s: string;
begin
  s:=ComboBox1.Items[Index];
  with ComboBox1.Canvas.Brush do
  begin
    Style := bsSolid;
    if (odSelected in State) then
      Color := clHighlight
    else
      Color := clWindow;
  end;
  ComboBox1.Canvas.FillRect(Rect);
  DrawText(ComboBox1.Canvas.Handle, PChar(s), Length(s),
           Rect,DT_SINGLELINE or DT_CENTER {DT_RIGHT});
end;

@d7d1cd 279 / 156 / 52 Регистрация: 30.06.2011 Сообщений: 1,712
		1
	Выравнивание по центру в ComboBox 20.02.2012, 19:35. Показов 1952. Ответов 1 Метки нет (Все метки) Привет всем! Собственно вопрос уже прозвучал... Как осуществить сие действие в С++Builder? 0

	20.02.2012, 20:14