Altura de un Combobox

[delphi.com.ar]

Empezado por dec

Esta búsqueda en Torry's Delphi Pages ofrece algunos componentes y utilidades que emulan el Inspector de Objetos de Delphi.

Precisamente yo tuve el mismo inconveniente cuando desarrollé un "Inspector de Objetos", no recuerdo bien, pero creo que no pude achicar el combo de Windows. Si recuerdo que finalmente terminé haciendo uno propio, pero no se si ese fue el motivo!

Saludos!

[elcigarra]

Estuve mirando todos los componentes de Torry referidos a Comboboxes, inclusive el que mandaste. Si los ves en NINGUNO se modifica la altura del Combo, a lo más, lo tapan con lineas y le re-dibujan arriba un botoncito nuevo u poco mas colorido, pero el "alto" es el mismo.
En el caso del run-time Object Inspector, el combobox sigue siendo el mismo con el mismo height, no como el inspector de Delphi que es mucho más angosto.

Yo pregunto: ¿Qué pasa si defino una región más angosta para el control (después hay la posibilidad de dibujar arriba para mejorar el botón recortado)? Yo intenté hacerlo pero me dá un error "Control '' has no parent window" que no supe resolver. En todo caso, no estoy seguro que si la región está restringida a ese rectángulo, luego se vea el drop down que, por supuesto, va a estar por fuera.

[roman]

Empezado por elcigarra

el combobox sigue siendo el mismo con el mismo height, no como el inspector de Delphi que es mucho más angosto.

¿A qué se refieren con esto? Haciendo una medición veo que el del inspector de objeto mide 17 pixeles de altura contra 21 pixeles del combobox. ¿Cuatro pixels es mucho?

// Saludos

[elcigarra]

4 pixels en 21 es aproximadamente el 20%. No estoy seguro en altura de un combobox, pero en mi sueldo un 20% menos es mucho

Mas allá de la broma, no importa si es mucho o poco, el tema es que ese combobox no es igual y de alguna forma lo hicieron.

[elcigarra]

Desde el código de una aplicación se puede hacer poniendo en el FormCreate del formulario donde está el combo:

 
procedure TForm1.FormCreate(Sender: TObject);
begin
// Angosto los comboboxes
SetWindowRgn(ComboBox1.Handle, CreateRectRgn(0,2,Width,Height-2), True);

y poniendo encima algún botón que oficie de DropDown Button y que además tape el botón cortado.

El tema es que el DropDown sale dos pixels separado abajo. Se podría definir la región así

SetWindowRgn(ComboBox1.Handle, CreateRectRgn(0,4,Width,Height), True);

Pero en este caso el texto no sale centrado
Yo lo subsané con la desprolijidad de definir una región de 0 pixels y desaparecerlo totalmente. Arriba con un TEdit y un botón está todo. El resto es código.

Mi idea era hacer un componente al que inicialmente le pueda definir una región:

constructor TMiComboBox.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FRegion := CreateRectRgn(2,2,Width-2,Height-2);
  SetWindowRgn(Handle, FRegion, True);
end;

El tema que en ejecución sale el error
"Control '' has no parent window"
Alguien sabe que tengo que ponerle al componente (de tipo TComboBox) para que no me de este error?

[delphi.com.ar]

Empezado por elcigarra

Estuve mirando todos los componentes de Torry referidos a Comboboxes, inclusive el que mandaste. Si los ves en NINGUNO se modifica la altura del Combo....

¿Cómo que ninguno en Torry?... ¿No viste ninguno de mis compoenentes TComboEditor, TCheckCombo, TDBCheckCombo, TDBComboGrid, TDBIncComboGrid de la EditSuite? (El problema es que ninguno de ellos son combos tradicionales )

Saludos!

[elcigarra]

Los ví, si... No me sirvió la parte donde decía: "source: none"
Es chiste, no los había visto porque busqué en Checklist and comboboxes, componentes individuales, no paquetes. Los bajé recién... en un rato los pruebo a ver si pueden adaptarse a la idea que busco. Gracias

Tenés idea a qué se debe el error ese del "Parent Window"?