[Risolto]Allineamento a destra del testo in FixedCol

[petrusic]

Nella Form in preparazione, ho definito una griglia e, nella griglia, ho dichiarato una FixedCol, dedicata a ricevere un numero progressivo di riga, per ciascuna cella della colonna.
Di default è applicato l'allineamento del testo  taLeftJustify. Ciò mi determina una rappresentazione grafica del testo, tutto  allineato a sinistra, mentre io vorrei ottenere un allineamento, tutto a destra. Il testo infatti è costituito da valori numerici.
Ho cercato una soluzione, leggendo qua e là, nel web, ma non ho trovato argomenti riguardanti il mio problema.

Ho trovato qualcosa legato al colore delle celle ed ho provato a trasferire il concetto nel mio gruppo di sitruzioni:

Codice: [Seleziona]

 GRmovv.ColWidths[0]:= 50;
  n:= GRmovv.RowCount - 1;
  for i:= 1 to n do
  begin
    GRmovv.Cells[0,i]:= IntToStr(i);  // [0, i] -> [orizzontale, verticale]
    GRmovv.Cells[1,i]:= 'Descrizione relativa alla riga' + IntToStr(i) + ', nella griglia';
    GRmovv.Cells[2,i]:= '1.01.600.005';
    GRmovv.Cells[3,i]:= 'Voce contabile di Cassa corrispondente alla descrizione';
    GRmovv.Cells[4,i]:= 'U';
    GRmovv.Cells[5,i]:= '999.999,99';
    GRmovv.Cells[6,i]:= '999.999,99';
  end;

  GrMovv.Canvas.Font.Style := [Regular];  //  da ERRORE perchè non riconosce l'identificatore "Regular"

  for i:= 1 to n do
  begin
    Col1Stile := GrMovv.Canvas.TextStyle;
    Col1Stile.Alignment := taRightJustify;
    GrMovv.Canvas.TextStyle := Col1Stile;
  end;                                                         
 

Dopo avere ottenuto l'errore in compilazione, ho disattivato la riga che ha dato errore ed ho avviato il programma, però l'allineamento che volevo ottenere non è avvenuto.
Non capisco perchè, per dichiarare la larghezza della colonna ed il contenuto delle celle, tutto sommato, è stato abbastanza semplice, mentre non debba riuscire ad ottenere la stessa semplicità nella codifica dell'allineamento del testo dentro una o più celle della FixedeCol.

Allego, per il piacere della vista, anche la schermata con la Form attiva.

[bonmario]

Ho provato a gurdare nei miei sorgenti, e per allineare a destra le colonne di una griglia, aggiungo io degli spazi davanti.
Visto che questa cosa l'ho fatta anni fa', non ricordo se all'epoca non avevo trovato nulla, o non avevo voglia di cercare, ed avevo scelto la via più rapida.

Ciao, Mario

[xinyiman]

Vado a memoria. Ma se tu dichiari le colonne nella stringgrid e non usi solo rowcount e colcount allora puoi usare una sintassi simile

nome_string_grid.column[indice_della_colonna].Alignment := taRightJustify;

Se vuoi farlo per il titolo della colonna è qualcosa del tipo:

nome_string_grid.column[indice_della_colonna].Title.Alignment := taRightJustify;

[petrusic]

Vado a memoria. Ma se tu dichiari le colonne nella stringgrid e non usi solo rowcount e colcount allora puoi usare una sintassi simile

nome_string_grid.column[indice_della_colonna].Alignment := taRightJustify;

Sia quella citata sopra, che la successiva che mi hai suggerito, sono prove che ho già messo in pratica e confermo quanto mi dici, però l'idea della FixedCol per andarvi a scrivere i progressivi di riga, con uno sfondo di colore diverso da quello delle altre celle, contenenti i dati significativi, mi è sembrata buona.

L'idea di

Ho provato a gurdare nei miei sorgenti, e per allineare a destra le colonne di una griglia, aggiungo io degli spazi davanti.

non la vedo soddisfacente, perchè ogni carattere grafico ha una sua dimensione in larghezza che differisce da Font a Font, così anche lo spazio. Se prorio non c'è altra soluzione, allora meglio anteporre al numero con una cifra, uno "0"(zero) e restringere la larghezza della colonna a quella appena sufficiente per potere accogliere numeri di 2 cifre. Penso infatti che, nel mio caso, non raggiungerò mai le 100 righe di dettaglio.

Apprezzo molto la combinazione Lazarus Free Pascal, ma, per quanto incontrato fin'ora, non ho gradito due limitazioni: quella dell'allineamento dei caratteri interni ai controlli (perchè non posso allinearli fino ai margini destro e sinistro, in quanto sono soltanto ta(Left/Right)Justify e la difficoltà nell'utilizzo dei colori del testo e dello sfondo (attualmente non ho capito ancora da dove cominciare).

Coumnque, qui parliamo di allineamento, perciò vi farò sapere come deciderò di muovermi.

[bonmario]

non la vedo soddisfacente, perchè ogni carattere grafico ha una sua dimensione in larghezza che differisce da Font a Font, così anche lo spazio.

Sono un fissato del carattere Courier New: lo uso praticamente ovunque nei campi di input, e nelle tabelle, quindi non mi sono mai posto il problema !!!

Ciao, Mario

[Stilgar]

Ciao.
Se ci sono problemi con il comportamento di default, puoi sempre implementare un tuo modo di eseguire il rendering.
Ci sono dei comodi eventi per gestire questo tipo di situazione.
Dovresti riuscire a trovare esempi che vanno dal cambio colore dello sfondo per riga a cose e più elaborate.



Se stringgrid non è sufficiente prova con dbgrid

Stilgar

[Stilgar]

Codice: [Seleziona]

procedure TForm1.StringGrid1DrawCell(Sender: TObject; aCol, aRow: integer; aRect: TRect; aState: TGridDrawState);
var
  TS: TTextStyle;
begin
  if (aCol = 0) then
  begin
    StringGrid1.Canvas.Rectangle(aRect);
    Dec(ARect.Right, varCellPadding);
    Dec(ARect.Right, 1);
    TS := Canvas.TextStyle;
    TS.Alignment := taRightJustify;


    StringGrid1.Canvas.TextRect(aRect, ARect.Left, ARect.Top, StringGrid1.Cells[aCol, aRow], TS);
  end
  else
  begin
    StringGrid1.DefaultDrawCell(aCol, aRow, aRect, aState);
  end;
end; 

Prova a vedere se fa quello che intendevi tu.


Stilgar


PS
se volessi controllare il colore dello sfondo in funzione del valore di una colonna potresti aggiungere in testa al metodo:

Codice: [Seleziona]

 if StringGrid1.Cells[4, aRow] = 'U' then // un controllo di esempio.
  begin
    StringGrid1.Canvas.Brush.Color := clSkyBlue;//un colore scelto a caso che non sia di quelli base
  end
  else
  begin
    StringGrid1.Canvas.Brush.Color := clMoneyGreen;//un colore scelto a caso che non sia di quelli base
  end;    

[petrusic]

Se ci sono problemi con il comportamento di default, puoi sempre implementare un tuo modo di eseguire il rendering.
Ci sono dei comodi eventi per gestire questo tipo di situazione.
Dovresti riuscire a trovare esempi che vanno dal cambio colore dello sfondo per riga a cose e più elaborate.

Se stringgrid non è sufficiente prova con dbgrid

In questo momento non è il colore dello sfondo che devo affrontare, bensì l'allineamento dei numeri progressivi di riga da inserire nella FixedCol.
Ho provato a sostituire la StringGrid con una DbGrid, ma le cose si complicano perchè la DbGrid riempie le righe coi dati letti attarverso una query sul DB. Infatti non riesco nemmeno a dichiarare il numero di righe di cui deve essere composta la griglia.

La mia griglia verrà riempita coi valori interni ad una matrice residente in memoria attraverso la lettura di fogli elettronici filtrati durante lo scorrimento delle celle di detti fogli.

Ho comunque modificato il caricamento d'esempio della mia StringGrid che ora si presenta come si vede nell'immagine allegata.

In essa si vede come ho risolto il problema dell'allineamento nelle celle della FixedCol.
Vi compare però un nuovo problema. Ma per ciò aprirò un altro argomento.