[ nnn @ 05.05.2005. 17:36 ] @
Imam jedan stringgrid i kad mi prikazuje brojeve u formaku x,xxx,xxx.xx treba da mi prikaze uz desnu ivicu. Sad ja sam probao sa
Code:

while(leingth(s)<15) do 
s:=' '+s;

Ali zbog razlicite duzine brojeva ne prikazuje mi jedno ispod drugog. Znaci treba da mi ',' prikaze ispod ',' i '.' ispod '.' Ako zima neko ideju za resenje tog problema bio bi mu zahvalan
pozdrav
[ Milos D @ 05.05.2005. 18:28 ] @
Na primer, ovaj StringGrid.OnDrawCell event sadrzaj druge kolone poravnava udesno

Code:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if ACOl = 1
     then begin
            StringGrid1.canvas.FillRect (Rect);
            inc (rect.top, 2);
            dec (rect.right, 2);
            DrawText (StringGrid1.canvas.handle, pchar(StringGrid1.Cells[ACol, ARow]), length(StringGrid1.Cells[ACol, ARow]), rect, DT_Right or DT_VCenter);
          end;
end;

[ nnn @ 06.05.2005. 09:29 ] @
hvala
Radi pri prikazu ali kad ga odstampam pomocu : [url]http://www.elitesecurity.org/tema/112957-Stampanje-StringGrid-Componenta [/url]
On ga odstampa uz levu stranu. Da li potoji mogucnost da se doda kodu za stampanje da stampa odredjenu kolonu uz desnu stranu?
[ Milos D @ 06.05.2005. 13:45 ] @
Probaj da zamenis liniju

textrect( r, x, y, cells[ n, lineno ] );

sa

DrawText (printer.canvas.handle, pchar(Cells[n, lineno]), length(Cells[n, lineno]), r, DT_Right or DT_VCenter);

ali samo za kolonu koja treba da se poravna desno.


Posto vidim da je u pitanju nova komponenta, onda bi mogao i da joj dodas property kojim odredjujes alignment za svaku kolonu. Na primer niz integera koji po potrebi dimenzionises i u kojem cuvas windows-style alignment (DT_LEFT, DT_RIGHT itd.)