Caption en botones de un TToolbar

[cmfab]

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,

[*Caro*]

Hola cmfab, tendrías que dibujar el texto del caption de tus botones, para ello podrías utilizar el evento OnAdvancedCustomDrawButton.

Saluditos

[*Caro*]

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

[cmfab]

Muchas gracias, por ahi andaba el tema.

un saludo Grande