---

Hej (igen) gruppe

Jeg ville lige høre, om man kan centrere teksten i cellerne i et
StringGrid - og i så fald hvordan.

På forhånd tak.

--
Steffen V Petersen
Remove remove.

---

"Steffen V Petersen" <news01@swipe.remove.dk> skrev i en meddelelse
news:asp0dv$oqf$1@sunsite.dk...
> Hej (igen) gruppe
>
> Jeg ville lige høre, om man kan centrere teksten i cellerne i et
> StringGrid - og i så fald hvordan.

Tror ikke man kan få det gjort automatisk så du skal nok bruge OnDrawCell.

Mvh
HK

---

> Tror ikke man kan få det gjort automatisk så du skal nok bruge
OnDrawCell.

Jeg er ikke så meget inde i det, så har du et eksempel?


--
Steffen V Petersen
Remove remove.

---

"Steffen V Petersen" <news01@swipe.remove.dk> skrev i en meddelelse
news:asqfcf$5dv$1@sunsite.dk...
> > Tror ikke man kan få det gjort automatisk så du skal nok bruge
> OnDrawCell.
>
> Jeg er ikke så meget inde i det, så har du et eksempel?

Ja, her er et eks. med lidt af hver i. Sig til hvis der er noget der skal
forklares.

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
TheWidth,ThePos : integer;
TheText : string;
begin
(Sender as TStringGrid).canvas.Font.Style:=[fsBold];

if (gdSelected in State) and (Sender as TStringGrid).Focused then
(Sender as TStringGrid).Canvas.Font.Color:=clWhite
else
(Sender as TStringGrid).canvas.Font.Color:=clRed;

If gdFocused in State then
(Sender as TStringGrid).canvas.Brush.Color:=clHighlight;

TheText:=(Sender as TStringGrid).Cells[ACol,ARow];
TheWidth:=(Sender as TStringGrid).Canvas.TextWidth(TheText);
ThePos:=(Rect.Right-Rect.Left-Thewidth) div 2;
TStringGrid(sender).Canvas.FillRect(Rect);
TStringGrid(Sender).Canvas.TextRect(Rect,Rect.Left+ThePos, Rect.Top,
TheText);
end;


Mvh
HK