Ver la Versión Completa : Caption en botones de un TToolbar
cmfab
02-04-2012, 19:52:33
Hola a todos, quiza mi pregunta sea facil de resolver, pero por mas que busco no doy con el diseño correcto. el tema es que necesito que los botones de mi toolbar tengan un icono en la parte superior de estos, pero que se se muestre el caption en dos lineas, porque los mismos son muy largos. espero me den la solucion
Gracias,
Hola cmfab, tendrías que dibujar el texto del caption de tus botones, para ello podrías utilizar el evento OnAdvancedCustomDrawButton.
Saluditos
Hola, acabo de hacer la prueba y mas o menos quedaría así:
procedure TForm1.ToolBar1AdvancedCustomDrawButton(Sender: TToolBar;
Button: TToolButton; State: TCustomDrawState; Stage: TCustomDrawStage;
var Flags: TTBCustomDrawFlags; var DefaultDraw: Boolean);
var
Texto : String;
Rect : TRect;
begin
Texto := Button.Caption;
Rect := Button.BoundsRect;
DrawText(Sender.Canvas.Handle, PChar(Texto),
StrLen(PChar(Texto)), Rect, DT_WORDBREAK);
end;
Saluditos
cmfab
02-04-2012, 22:49:51
Muchas gracias, por ahi andaba el tema.
un saludo Grande
vBulletin v3.6.8, Derechos ©2000-2024, Jelsoft Enterprises Ltd.