Italian community of Lazarus and Free Pascal

Programmazione => Generale => Topic aperto da: alexarmato66 - Febbraio 05, 2023, 06:31:33 pm

Titolo: [RISOLTO]Stringgrid font color
Inserito da: alexarmato66 - Febbraio 05, 2023, 06:31:33 pm

Vorrei cambiare il colore del font in una cella di una stringrid ma non riesco.Qulcuno puo darmi un esempio. Grazie

Titolo: Re:Stringgrid font color
Inserito da: DragoRosso - Febbraio 05, 2023, 06:35:53 pm

Prova a guardare questa discussione: https://www.lazaruspascal.it/index.php?topic=2515.msg16163#msg16163 (https://www.lazaruspascal.it/index.php?topic=2515.msg16163#msg16163)

Ciao

Titolo: Re:Stringgrid font color
Inserito da: alexarmato66 - Febbraio 05, 2023, 08:31:16 pm

RISOLTO

ho semplicemente scitto nell'evento OnPrepare Canvas della StrinGrid il seguente codice:

Codice: [Seleziona]

  // 



    if (form1.StringGrid15.Cells[2,1]<>'') and  (strtofloat(form1.StringGrid15.Cells[2,1]) > (0.6*poli[1].fck))  then
       begin
           if  (ACol=2) and  (ARow=1) then
           begin
         StringGrid15.Canvas.Font.Color := clRed;
         StringGrid15.Canvas.Font.Style := [fsBold];

           end;
       end;

    if (form1.StringGrid15.Cells[2,1]<>'') and  (strtofloat(form1.StringGrid15.Cells[2,1]) < (0.6*poli[1].fck))  then
       begin
              if  (ACol=2) and  (ARow=1)then
           begin
           StringGrid15.Canvas.Font.Color := clBlack;
           StringGrid15.Canvas.Font.Style := [];
           end;
         end;  

Titolo: Re:[RISOLTO]Stringgrid font color
Inserito da: alexarmato66 - Febbraio 05, 2023, 08:34:49 pm

Grazie DragoRosso!!