名前
題名
▼ snailさん > こんにちは、他人のプログラムをいじることしかできない snail3 です。 > １から考えるのは大変ですね。しかも色々と情報を公開している > Mr.XRAY さん本当に尊敬しています。 > > ところで、またまた勝手なお願いです。 > > >今ですね．前にあったバグ関係も見直していますが， > > TextOutですが現行 Brush.Style が bsClear 固定になっています。 > 文字を上書きしたい場合もあるので、引数で指定できると便利だと > 思います。もし修正する機会がありましたらついでにお願いします。 > > > procedure TCustomplPrev.TextOut(X1, Y1: Integer; Text: String); > begin > FCanvas.Brush.Style := bsClear; // ←決めうち > FCanvas.TextOut(X1, Y1, Text); > end; > 　　↓こんな風に直していただけるとうれしいです。 > > > procedure TCustomplPrev.TextOut(X1, Y1: Integer; Text: String; ArgTBrush : TBrushStyle = bsClear ); > begin > // D 12/07/28 FCanvas.Brush.Style := bsClear; // > FCanvas.Brush.Style := ArgTBrush; // A 12/07/28 > FCanvas.TextOut(X1, Y1, Text); > end;
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link