名前 題名 ▼ igyさん > ▼ Mr.XRAYさん > DrawCellの > > > TheText := CellText[ACol, ARow]; > > with ARect, Canvas do > > TextRect(ARect, Left + (Right - Left - TextWidth(TheText)) div 2, > > Top + (Bottom - Top - TextHeight(TheText)) div 2, TheText); > > の部分は、 > > inherited DrawCell(ACol, ARow, ARect, AState) > > としても、ＯＫかもですね。 > GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link