|
![](/App_Themes/Normal/images/Window/Backgrounds/news.gif) | Centrering i StringGrid Fra : Steffen V Petersen |
Dato : 06-12-02 03:02 |
|
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.
| |
Harald (06-12-2002)
![](/App_Themes/Normal/images/Window/Backgrounds/news.gif) | Kommentar Fra : Harald |
Dato : 06-12-02 14:52 |
|
"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
| |
Steffen V Petersen (06-12-2002)
![](/App_Themes/Normal/images/Window/Backgrounds/news.gif) | Kommentar Fra : Steffen V Petersen |
Dato : 06-12-02 16:23 |
|
> 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.
| |
![](/images/tree/0.gif) Harald (06-12-2002)
![](/App_Themes/Normal/images/Window/Backgrounds/news.gif) | Kommentar Fra : Harald |
Dato : 06-12-02 17:24 |
|
"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
| |
|
|