Witam :)
Czy ktoś może wie jak wyjustować wybraną kolumne w StringGrid do prawej?
0
0
OwnerDraw - musisz sam text rysować
0
Napisałem taką funkcję:
function WyrownajKolumnySG_Srodek(SGrid : TStringGrid; nr_kol : Byte; tekst : String) : String;
var
szerokosc : LongWord;
begin
szerokosc := (SGrid.ColWidths[nr_kol] -SGrid.Canvas.TextWidth(tekst)) div 2;
Result := StringOfChar(' ', (szerokosc div SGrid.Canvas.TextWidth(' '))) +tekst;
end;
function WyrownajKolumnySG_Prawa(SGrid : TStringGrid; nr_kol : Byte; tekst : String) : String;
var
szerokosc : LongWord;
begin
szerokosc := SGrid.ColWidths[nr_kol] -SGrid.Canvas.TextWidth(tekst);
Result := StringOfChar(' ', (szerokosc div SGrid.Canvas.TextWidth(' ')) -(SGrid.Canvas.TextWidth(' ') div 2)) +tekst;
end;
Parametry funkcji kolejno to: (StringGrid, nr_kolumny, tekst_justowany)
Może się komuś przyda.