---

Hej

I et StringGrid i Delphi, kan man der sætte en farve til hver enkelt celler,
samt om den skal være fremhævet, kursiv, m.m. ?

Kan man også aligne de enkelte celler (f.eks. højre, venstre eller center) ?



--
-----------------------------------------------------------------------

Med venlig hilsen / Best regards

OCC Data ApS - Michael Vilhelmsen
Systemudvikler
Telefon: 66 15 46 00 - Fax: 65 93 20 55
Website: www.occdata.dk

Andre kontakter:

Bogholderi: bogholderi@occdata.dk Info: occdata@occdata.dk Salg:
salgocc@occdata.dk
-----------------------------------------------------------------------

---

> I et StringGrid i Delphi, kan man der sætte en farve til hver enkelt
celler,
> samt om den skal være fremhævet, kursiv, m.m. ?
>
> Kan man også aligne de enkelte celler (f.eks. højre, venstre eller center)
?

Det skal du nok have et andet komponent til at klare for dig, da
TStringGrid's formatering fungerer på samme måde som TMemo's ;) Du kan
alternativt bruge TStringGrid's canvas property, men for at implementere den
fulstændigt skal du nok bruge en del tid på at indeksere din eksakte
TStringGrid formation

--
- Thomas
~~~~~~~~
....http://www.FlowCode.f2s.com - where code flows
....mailto:blomme@post.com - where email goes

---

Hej.

Nå vi har nok lidt travlt? <g>

Overordnet gælder det, at grid'ens DefaultDrawing skal sættes til false.
Det betyder, at man selv skal 'tegne' grid'ens indhold.

"~-~ Mivi ~-~" <ccc37780@vip.cybercity.dk> wrote in message
news:TWbG6.63036$o4.5534642@news010.worldonline.dk...
> Hej
>
> I et StringGrid i Delphi, kan man der sætte en farve til hver enkelt
celler,
> samt om den skal være fremhævet, kursiv, m.m. ?

Tag disse kodestumper ( i OnDrawCell)
--- Sætter blå + bold:
CASE ARow OF
0,5,21,23,25,28: with Sender as TStringGrid do
begin
Canvas.Brush.Color := cBlueLine;
Canvas.Font.Style := Canvas.Font.Style + [fsBold] ;
end;
-- Sætter hvid + almindelig:
ELSE
with Sender as TStringGrid do
begin
Canvas.Brush.Color := clWhite ; // Color ;
Canvas.Font.Style := Canvas.Font.Style - [fsBold] ;
end;
END ;

..............
-- Tegner baggrund:
Canvas.FillRect(Rect);


>
> Kan man også aligne de enkelte celler (f.eks. højre, venstre eller center)
?
>

Videre i OnDrawCell:
-- Højrestiller ( DS = Cells[col,row] )
IF ACol > 1 THEN
I := DrawText(Varelinier1.Canvas.Handle, PChar(DS), Length(DS), Rect,
DT_RIGHT )

For yderligere alignments, se DrawText i hjælpefilen.

Hint.. Det kan være en fordel at 'nedjustere' Rect, så der bliver lidt luft
mellem cellerne.

Fortsat god kodning.

--
Med venlig hilsen/Best Regards
Stig Johansen - stig@w3data.dk
W3 Data - mailto@w3data.dk