Rafael Marques wrote: > Bom Dia pessoal > > alguem sabe como formatar textos em celulas de uma StringGrid!?!? eu gostaria > de formatar o alinhamento e a fonte do texto.
Estou fazendo isto escrevendo direto no canvas do stringgrid. Funciona legal. Veja uns exemplos de código que você pode adaptar para o que você precisa: procedure TPressMVPDrawGridInteractor.DrawCell( Sender: TPressMVPGridView; ACanvas: TCanvas; ACol, ARow: Integer; ARect: TRect; State: TGridDrawState); var VAlignment: TAlignment; VText: string; begin if ACol = -1 then begin if (ARow = -1) or (Owner.Model.Count = 0) then VText := '' else VText := InttoStr(ARow + 1); VAlignment := taRightJustify; end else if ARow = -1 then begin VText := Owner.DisplayHeader(ACol); VAlignment := Owner.HeaderAlignment(ACol); end else begin VText := Owner.Model.DisplayText(ACol, ARow); VAlignment := Owner.Model.TextAlignment(ACol); end; DrawTextRect(ACanvas, ARect, VText, VAlignment); end; procedure TPressMVPDrawItemsInteractor.DrawTextRect( ACanvas: TCanvas; ARect: TRect; const AText: string; AAlignment: TAlignment); var VTop: Integer; VLeft: Integer; begin VTop := ARect.Top + 1; case AAlignment of taLeftJustify: VLeft := ARect.Left + 2; taRightJustify: VLeft := ARect.Right - ACanvas.TextWidth(AText) - 2; else {taCenter} VLeft := (ARect.Left + ARect.Right - ACanvas.TextWidth(AText)) div 2; end; ACanvas.TextRect(ARect, VLeft, VTop, AText); end; -- João Morais -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html