[Risolto] StringGrid - colorare riga della casella selezionata

[petrusic]

Con non poca fatica sono riuscito a modificare il colore di sfondo e del testo della riga a cui appartiene la casella selezionata.

Dovrei essere soddisfatto, ed in parte lo sono, ma sono rimasto sorpreso nel vedere che il testo della casella selezionata è allineato a sinistra, mentre la relativa proprietà Alignment è impostata taRightJustify.

Non capisco perchè si verifica il disallineamento.
Allego l'immagine della schermata con la riga selezionata
Ecco il codice che riguarda la colorazione:

Codice: [Seleziona]

var
  Form2: TForm2;

  statoGridDraw: TGridDrawState;

implementation
uses
  FrmMain;

{$R *.lfm}

{ TForm2 }
. . . 
var
  rigaSel: Integer = 0;                                         
. . . 
procedure TForm2.GridMovvBeforeSelection(Sender: TObject; aCol, aRow: Integer);
begin
  rigaSel:= aRow;
  Form2.GridMovv.OnDrawCell(Form2.GridMovv, aCol, aRow, Form2.GridMovv.CellRect(aCol, aRow), statoGridDraw);
end;

procedure TForm2.GridMovvDrawCell(Sender: TObject; aCol, aRow: Integer;
  aRect: TRect; aState: TGridDrawState);
var
  CellaSel: String;

begin
  if (aRow = rigaSel) and (rigaSel <> 0) then
  begin
    WriteLn('procedure TForm2.GridMovvDrawCell  POST selezione');
    CellaSel:= Form2.GridMovv.Cells[ACol, ARow];
    Form2.GridMovv.Canvas.Brush.Color:= clBlue;
    Form2.GridMovv.Canvas.FillRect(aRect);
    Form2.GridMovv.Canvas.Font.Color:= clYellow;
    Form2.GridMovv.Canvas.TextOut(aRect.Left + 2, aRect.Top + 2, CellaSel);
  end;
end;                                                               

[DragoRosso]

Quando esegui nel metodo OnDrawCell:

Codice: [Seleziona]

Form2.GridMovv.Canvas.TextOut(aRect.Left + 2, aRect.Top + 2, CellaSel);

il testo lo posizioni e formatti tu, surclassando le impostazioni della griglia.
Per allinearlo a destra dovresti calcolare lo spazio occupato dalla stringa da scrivere e al posto di

Codice: [Seleziona]

(aRect.Left + 2

devi immettere la differenza tra lo spazio disponibile e lo spazio occupato (meno 2 che và sempre bene).

Io non mai usato tale formula perchè in funzione ai caratteri, alla risoluzione dello schermo e ai DPI ho visto che qulche problemino lo dava (questo nei tempi antichi).

Appena possibile ti posto come calcolare lo spazio (pixel) occupato da una stringa in una canvas.

AGGIORNAMENTO:

con questa funzione trovi quanti pixel occupa la stringa in una canvas e disegni la stringa allineata a destra.

Codice: [Seleziona]

var ll: integer;
ll:= Form2.GridMovv.Canvas.TextWidth( CellaSel);
// TI CONVIENE CONTROLLARE PRIMA DI DISEGNARE IL TESTO CHE IL TESTO STESSO CI STIA NELLA CELLA.
Form2.GridMovv.Canvas.TextOut(aRect.Rigth- ll-2, aRect.Top + 2, CellaSel); 

Ciao.

[petrusic]

Quando esegui nel metodo OnDrawCell:

Codice: [Seleziona]

Form2.GridMovv.Canvas.TextOut(aRect.Left + 2, aRect.Top + 2, CellaSel);

il testo lo posizioni e formatti tu, surclassando le impostazioni della griglia.

Ah! É vero, non ci avevo proprio pensato.

con questa funzione trovi quanti pixel occupa la stringa in una canvas e disegni la stringa allineata a destra.

Codice: [Seleziona]

var ll: integer;
ll:= Form2.GridMovv.Canvas.TextWidth( CellaSel);
// TI CONVIENE CONTROLLARE PRIMA DI DISEGNARE IL TESTO CHE IL TESTO STESSO CI STIA NELLA CELLA.
Form2.GridMovv.Canvas.TextOut(aRect.Rigth- ll-2, aRect.Top + 2, CellaSel); 

Con la modifica che mi hai suggerito, funziona bene.

É vero anche che conviene controllare la lunghezza del testo rapportato alla lunghezza della cella, prima di trasferirglielo ed ho provato a realizzarlo, ma non ci sono riuscito. Infatti, bisogna indicare anche il tipo di Font scelto per tale cella, ed è stato quello il momento in cui mi sono smarrito.
L'istruzione

Codice: [Seleziona]

ll:= Form2.GridMovv.Canvas.TextWidth( CellaSel);

fornisce la lunghezza in pixel del testo della cella selezionata. Manca la lunghezza in pixel della cella così com'è stata disegnata, per capire se il testo entra tutto nella cella.
Per ora ne posso fare a meno.
 
Grazie!

[petrusic]

La prova d'impulso era andata bene, però, se la cella non è allineata a destra, ma a sinistra, il codice scritto prima non funziona più.
Quindi, visto che le celle non hanno tutte lo stesso tipo di allineamento, dovrei conoscere qual'è quello preimpostato, prima di  eseguire

Codice: [Seleziona]

dxSx:= aRect.Right - lun - 2;   
Form2.GridMovv.Canvas.TextOut(dxSx, aRect.Top + 2, cellaSel);

E, . . . , purtroppo non ci sono riuscito.

[bonmario]

Se non ricordo male, la OnDrawCell, ha tra i parametri in ingresso il numero della colonna.
In base a quello, puoi fare l'allineamento solo se la colonna è una di quelle che vanno allineate a destra.

Ciao, Mario

[DragoRosso]

Riguardando il tuo codice, ho notato che il metodo OnDrawCell non viene chiamato in automatico dal software, bensi lo chiami tu durante la selezione ......

Fermo restando che secondo me avrebbe dovuto non funzionare, ma non conosco i meandri di Lazarus per confutare quanto accade, ti consiglierei di modificare il codice in questo modo:

1) se assegni l'evento OnDrawCell dagli eventi della StringGrid, facendolo puntare al tuo metodo (TForm2.GridMovvDrawCell) questo verrà chiamato automaticamente dal software ogni qualvolta sia necessario. Puoi eliminare quindi il metodo TForm2.GridMovvBeforeSelection.

2) Affinchè tutto funzioni, verifica che la proprietà DefaultDrawing dells StringGrid sia a TRUE. Lazarus prima disegna la cella per default, poi chiama l'evento OnDrawCell.

3) Ora nel tuo metodo TForm2.GridMovvDrawCell devi discernere quando la cella è quella selezionata: basta testare lo stato, e l'allineamento per disegnarla correttamente.

Codice: [Seleziona]

//COPIA DAL VECCHIO CODICE ............... salvo errori ed omissioni
procedure TForm2.GridMovvDrawCell(Sender: TObject; aCol, aRow: Integer;
  aRect: TRect; aState: TGridDrawState);
var
  CellaSel: String;

begin
  //Se la cella non è una cella di intestazione e lo stato è di cella selezionata allora ..... altrimenti non fare niente (il disegno rimane quello di default)
  if (aRow <> 0) and (aCol <> 0) and (gdSelected in aState) then
  begin
    WriteLn('procedure TForm2.GridMovvDrawCell  POST selezione');
    CellaSel:= Form2.GridMovv.Cells[ACol, ARow];
    Form2.GridMovv.Canvas.Brush.Color:= clBlue;
    Form2.GridMovv.Canvas.FillRect(aRect);
    Form2.GridMovv.Canvas.Font.Color:= clYellow;
    //Testa l'allineamento del testo,  i valori possono essere:  taLeftJustify, taRightJustify, taCenter
    case Form2.GridMovv.Canvas.TextStyle.Alignment of
          taLeftJustify:
             begin
                 Form2.GridMovv.Canvas.TextOut(aRect.Left + 2, aRect.Top + 2, CellaSel);
             end;
          taRightJustify:
             begin
                 Form2.GridMovv.Canvas.TextOut( ...................., CellaSel);
             end;
         taCenter:
             begin
                 Form2.GridMovv.Canvas.TextOut(......................, CellaSel);
             end;
    end;
  end;
end;                                

[petrusic]

Riguardando il tuo codice, ho notato che il metodo OnDrawCell non viene chiamato in automatico dal software, bensi lo chiami tu durante la selezione ......

Poi l'ho modificato ed ho attivato, oltre all'evento OnBeforeSelection, anche l'evento OnDrawCell.

3) Ora nel tuo metodo TForm2.GridMovvDrawCell devi discernere quando la cella è quella selezionata: basta testare lo stato, e l'allineamento per disegnarla correttamente.

Codice: [Seleziona]

begin
  //Se la cella non è una cella di intestazione e lo stato è di cella selezionata allora ..... altrimenti non fare niente (il disegno rimane quello di default)
  if (aRow <> 0) and (aCol <> 0) and (gdSelected in aState) then
  begin
    . . . 
    //Testa l'allineamento del testo,  i valori possono essere:  taLeftJustify, taRightJustify, taCenter
    case Form2.GridMovv.Canvas.TextStyle.Alignment of
          taLeftJustify:
             begin
                 Form2.GridMovv.Canvas.TextOut(aRect.Left + 2, aRect.Top + 2, CellaSel);
             end;
          . . .                        

Ho seguito il tuo suggerimento, ma non funziona come mi aspettavo, infatti, già alla prima vista della griglia, appena caricata, risulta selezionata la cella con corrdinate 1, 1, ma non è vero.
Penso perciò che lascerò attivi i due eventi col vecchio codice, a parte, il richiamo dell'evento OnDrawCell che non richiamerò più da codice.

Relativamente all'istruzione 

Codice: [Seleziona]

 case Form2.GridMovv.Canvas.TextStyle.Alignment of
   --- bla --- bla ---

devo dire che l'avevo già provata, ma non ho ottenuto il risultato sperato, quindi l'avevo abbandonata, pensando che puntasse ad un allineamento valido per tutte le colonne della griglia. Applicando ora il tuo codice, funziona. Boh!