Скачать: CL | DM;

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.: Заработало!!! Ура!!! :)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c