|
こんにちは、他人のプログラムをいじることしかできない 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;
|