Height в CombBox

← →
sldragon (2005-01-20 11:52) [0]

Буду краток: как изменить высоту ComboBox`а

← →
ECM © (2005-01-20 12:34) [1]

Да... проблема насущная...:)
ComboBox "сам себе на уме" и свою высоту настраивает исходя из
высоты шрифта...
Особенно интересный эффект был у меня когда-то когда я влепил ему выравнивание caClient в панели - получилась бесконечная
рекурсия - программа просто повисала при старте...

← →
Ajax © (2005-01-20 16:30) [2]

AFAIK это невозможно. Если НУ ОЧЕНЬ сильно надо, то можно склепать свой комбобокс из эдита и листбокса. Если надумаешь делать, напиши мне, дам исходники самодельного комбобокса.

← →
thaddy (2005-01-20 17:42) [3]

You can resize the comboboxheight safely by resizing the font height, or do you mean something different, my russian is not very good?
Small example:

---
unit unit1;
interface
uses
Windows, Messages, Kol;

type

PForm1=^TForm1;
TForm1=object(Tobj)
Form:pControl;
Combo,
Combo2,
Combo3:Pcontrol;
public
end;

procedure NewForm1( var Result: PForm1; AParent: PControl );
var
Form1:pForm1;

implementation

procedure NewForm1( var Result: PForm1; AParent: PControl );
begin
New(Result,Create);
with Result^ do
begin
Form:= NewForm(AParent,'KOLForm').SetSize(600,400).centeronparent.Tabulate;
Applet:=Form;
Form.Add2AutoFree(Result);
// smaller
Combo:=NewCombobox(form,[]).SetAlign(caTop);
Combo.Font.FontHeight:=6;
// Normal
Combo2:=Newcombobox(form,[]).setalign(catop);
// Larger
Combo3:=NewComboBox(form,[]).setalign(caTop);
Combo3.Font.FontHeight:=36;
Combo3.ResizeParent;
end;
end;

← →
thaddy (2005-01-20 17:52) [4]

And even beteer with these two lines:
form.Font.ReleaseHandle;
form.Font.assignhandle(GetStockObject(DEFAULT_GUI_FONT));

← →
SPeller © (2005-01-20 20:29) [5]

А лучше использовать LB_SETITEMHEIGHT

← →
thaddy (2005-01-20 20:47) [6]

Thats for listbox? for combo too...??

← →
thaddy (2005-01-20 20:54) [7]

Ok, CB_SETITEMHEIGHT :) but in that case you"ll still have to adapt the font by hand. If he fontsize isn"t adapted it can be unreadable. try Combo3.perform(CB_SETITEMHEIGHT,-1,12); on my example!

It is more accurate, though, although if there"s a fixed relation between fontsize and comboheight, it may be more efficient to set the fontheight.

← →
sldragon (2005-01-21 16:08) [8]

Благодарствую, все способы работают :), но лучшим из них оказался способ с изменением размера шрифта (большое СПАСИБО thaddy), т. к. последний способ вызывает побочный эффект при уменьшении высоты ComboBox`а - скрытие части текста.

P.S.: Заработало!!! Ура!!! :)

Height в CombBox Найти похожие ветки