名前
題名
▼ Syakeさん > 何気なくふと気づいたのですが > ないげないコード > > procedure TForm1.FormCreate(Sender: TObject); > begin > with Self do > begin > ClientHeight := 253; > ClientWidth := 458; > Self.Position := poOwnerFormCenter; > end; > with StringGrid1 do > begin > DefaultDrawing := False; > Align := alClient; > ColCount := 7; > RowCount := 10; > FixedCols := 0; > FixedRows := 0; > DefaultRowHeight := 24; > DefaultColWidth := 64; > end; > end; > > procedure TForm1.StringGrid1DrawCell(Sender: TObject; > ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); > var > BRect :TRect; > begin > with (Sender as TStringGrid) do > begin > with Canvas do > begin > Pen.Color := clBlack; > Pen.Width := 1; > if ACol = 0 then > begin > Rect := CellRect(0,0); > Rect.Top := CellRect(0,0).Top; > Rect.Bottom := CellRect(0,RowCount-1).Bottom; > FillRect(Rect); > Rectangle(Rect.Left-1,Rect.Top-1,Rect.Right+1,Rect.Bottom+1); > end else begin > MoveTo(Rect.Left-1,Rect.Top); > LineTo(Rect.Left-1,Rect.Bottom); > MoveTo(Rect.Left,Rect.Bottom); > LineTo(Rect.Right,Rect.Bottom); > MoveTo(Rect.Right,Rect.Bottom); > LineTo(Rect.Right,Rect.Top); > end; > end; > end; > end; > > 左画像）まあ普通に罫線黒で表示されますね。 > 中画像）モニタ枠からはみ出すように右に隠し（左でも同じですが） > 　　　　じわっと、フォームを引き戻します。 > 右画像）モニタ枠からはみ出すように画面下側に隠します。 > 　　　　同じくじわっと画面下側から引上げます。 > > 早く引き戻したらダメですよ。 > ほら罫線消えたでしょ！？ > > ・・・う〜む。
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link