TStatusBar em Negrito

[Leonardo Machado Moreira 0]

Fala ai Galera....Denovo com uma duvida pra você's rsrssvocê's sabem como eu faço pra deixar apenas um panel de um statusbar em negrito e os outros em branco??acho que deve ter que mexer no canvas.. mas nao sei rsrsrsrsrsdes de já agradeço Leonardo

[marcio.theis 3]

Pode fazer da seguinte forma, selecione o painel que deseja pintar o fundo, para isto, de dois cliques sobre o StatusBar, depois selecione um dos painéis, no exemplo que vou dar, vou usar o painel 0, selecione ele, e depois nas propriedades vá na propriedade Style e marque psOwnerDraw, e então no evento OnDrawPanel do StatusBar faça:

 

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel; const Rect: TRect);beginif panel = StatusBar1.Panels[0] then	begin	StatusBar1.Canvas.Brush.Color:=clRed;	StatusBar1.Canvas.FillRect(Rect);	StatusBar1.Canvas.TextOut(Rect.Left,Rect.Top,StatusBar1.Panels[0].Text)	end;end;

Vai colocar o fundo como vermelho e a fonte preta, caso queira mudar tb a cor da fonte faça:

 

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel; const Rect: TRect);beginif panel = StatusBar1.Panels[0] then	begin	StatusBar1.Canvas.Brush.Color:=clRed;	StatusBar1.Canvas.FillRect(Rect);	StatusBar1.Canvas.Font.Color:=clBlue;	StatusBar1.Canvas.TextOut(Rect.Left,Rect.Top,StatusBar1.Panels[0].Text)	end;end;

Vai deixar o fundo vermelho e fonte azul.

 

Para imprimir o primeiro em negrito e os demais em branco, faça:

 

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel; const Rect: TRect);beginif panel = StatusBar1.Panels[0] then	begin	StatusBar1.Canvas.Font.Color:=clBlack;	StatusBar1.Canvas.Font.Style:=[fsBold];	endelse	StatusBar1.Canvas.Font.Color:=clWhite;StatusBar1.Canvas.TextOut(Rect.Left,Rect.Top,Panel.Text)end;

Somente não se esquema de colocar o Style como psOwnerDraw dos desejados.

[Leonardo Machado Moreira 0]

Pode fazer da seguinte forma, selecione o painel que deseja pintar o fundo, para isto, de dois cliques sobre o StatusBar, depois selecione um dos painéis, no exemplo que vou dar, vou usar o painel 0, selecione ele, e depois nas propriedades vá na propriedade Style e marque psOwnerDraw, e então no evento OnDrawPanel do StatusBar faça:

 

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel; const Rect: TRect);beginif panel = StatusBar1.Panels[0] then	begin	StatusBar1.Canvas.Brush.Color:=clRed;	StatusBar1.Canvas.FillRect(Rect);	StatusBar1.Canvas.TextOut(Rect.Left,Rect.Top,StatusBar1.Panels[0].Text)	end;end;

Vai colocar o fundo como vermelho e a fonte preta, caso queira mudar tb a cor da fonte faça:

 

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel; const Rect: TRect);beginif panel = StatusBar1.Panels[0] then	begin	StatusBar1.Canvas.Brush.Color:=clRed;	StatusBar1.Canvas.FillRect(Rect);	StatusBar1.Canvas.Font.Color:=clBlue;	StatusBar1.Canvas.TextOut(Rect.Left,Rect.Top,StatusBar1.Panels[0].Text)	end;end;

Vai deixar o fundo vermelho e fonte azul.

 

Para imprimir o primeiro em negrito e os demais em branco, faça:

 

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel; const Rect: TRect);beginif panel = StatusBar1.Panels[0] then	begin	StatusBar1.Canvas.Font.Color:=clBlack;	StatusBar1.Canvas.Font.Style:=[fsBold];	endelse	StatusBar1.Canvas.Font.Color:=clWhite;StatusBar1.Canvas.TextOut(Rect.Left,Rect.Top,Panel.Text)end;

Somente não se esquema de colocar o Style como psOwnerDraw dos desejados.

 

valeu veio funciono direitinho

[marcio.theis 3]

beleza... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif