Problemas con Paneles de StatusBar
Publicado por Gelmin Martínez (58 intervenciones) el 03/08/2003 01:27:55
En la página "Delphi3000.com" encontré el código para colocar Imagen o ícono en la barra de estado la cual se hace en el evento "onDrawPanel"
procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);
begin
with StatusBar1.Canvas do
begin
Brush.Color := clBtnFace;
FillRect(Rect);
Font.Color := clblue;
Imagelist1.Draw(StatusBar1.Canvas,Rect.Left,Rect.Top,0);
TextOut(Rect.left + 20, Rect.top + 2,'Gelmin');
End;
El problema es que no puedo especificar en que panel de mi barra es que quiero que aparesca la imágen, porque con este código si tengo 3 paneles con su propiedad Style=psOwnerDraw; pues la imágen y el texto que especifico en el código anterior aparece en los 3 paneles de la barra; Talvés haya alguna forma de especificar la imágen y el texto que quiero que aparesca en cada panel...!
Saludos...!
Gelmin [Nicaragua]...!
procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);
begin
with StatusBar1.Canvas do
begin
Brush.Color := clBtnFace;
FillRect(Rect);
Font.Color := clblue;
Imagelist1.Draw(StatusBar1.Canvas,Rect.Left,Rect.Top,0);
TextOut(Rect.left + 20, Rect.top + 2,'Gelmin');
End;
El problema es que no puedo especificar en que panel de mi barra es que quiero que aparesca la imágen, porque con este código si tengo 3 paneles con su propiedad Style=psOwnerDraw; pues la imágen y el texto que especifico en el código anterior aparece en los 3 paneles de la barra; Talvés haya alguna forma de especificar la imágen y el texto que quiero que aparesca en cada panel...!
Saludos...!
Gelmin [Nicaragua]...!
Valora esta pregunta


0