Caption en botones de un TToolbar
 

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í:

Código Delphi [-]
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

Muchas gracias, por ahi andaba el tema.

un saludo Grande