名前
題名
▼ igyさん > ▼ Mr.XRAYさん > > Delphi ML の書き込みの 10 px だと以下の図のような感じですね． > > 10 px はかなり目立ちます． > > Delphi 10.1 Berlinで試してみました。 > > 私の場合、Delphi XE以前のバージョンもよく使うので、 > 以下のような感じで調整しています。 > > procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; > Rect: TRect; State: TGridDrawState); > begin > {$IFDEF CONDITIONALEXPRESSIONS} > {$IF Declared(CompilerVersion) and (CompilerVersion >= 23.0)} > Rect.Left := Rect.Left - 4; > {$IFEND} > {$ENDIF} > > if ACol = 2 then begin > StringGrid1.Canvas.Brush.Style := bsSolid; > StringGrid1.Canvas.Brush.Color := RGB(0, 150, 0); > StringGrid1.Canvas.FillRect(Rect); > end; > end;
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link