喫茶XRAYトップページ

[スレッド全体]
[6172] Re3:TplSetPrinter　D2009→XE　→　D2007→EX返信　削除
2012/7/6 (金) 16:23:14 Mr.XRAY
▼ Syakeさん

> 問題を複雑化しちゃいましてすいません。

お気遣いなく．
何にしても，何か問題となる現象があれば，D6以降で全てテスト
する予定ですので．
今回，もし修正ができれば，D5は動作確認の対象からはずす予定です．
もう限界．
前のバージョンが必要な方は，メール対応とする予定です．
[6191] Re4:TplSetPrinter　D2009→XE　→　D2007→EX返信　削除
2012/7/12 (木) 19:26:33 snail3
一応ご報告。今回の件とは関係ないと思いますが
プリンタのインストール台数によっては create で死んでしまうので
下のように修正してみました

constructor TCustomplPrev.Create(AOwner: TComponent);
begin
  inherited;
  FUseOriginPaperSize  := False;
  FTempSetPrinter      := TplSetPrinter.Create(Self);
  FTempSetPrinter.Name := 'Default';
  FNoPrinter           := FplSetPrinter.PrintersCount=0;
  if Printer.Printers.Count < 1 then                                 // A 2012/07/12
    MessageDlg( '*E:No Printer(plPrev)', mtInformation, [mbYes], 0 ) // A 2012/07/12
   else                                                              // A 2012/07/12
  begin                                                              // A 2012/07/12
    if Printer.Printers.Count <= Printer.PrinterIndex then           // A 2012/07/12
      Printer.PrinterIndex := 0;                                     // A 2012/07/12
    if FNoPrinter=False then FTempSetPrinter.PrinterName :=Printer.Printers[Printer.PrinterIndex];
  end;

[6192] Re5:TplSetPrinter　D2009→XE　→　D2007→EX返信　削除
2012/7/12 (木) 20:21:02 Mr.XRAY
▼ snail3さん，どうもです．

> 一応ご報告。今回の件とは関係ないと思いますが

今ですね．前にあったバグ関係も見直していますが，
難航しています．貴重な情報です．サンクスです．
しかし，皆さん，スキルありますね．
他の人が作成したコードを修正してしまうんですから．
いえ，そのためにもソースコードつけている意味があるんですが...

[6227] TextOut 塗りつぶしてから返信　削除
2012/7/27 (金) 10:13:45 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;

[6228] Re:TextOut 塗りつぶしてから返信　削除
2012/7/27 (金) 13:32:50 Mr.XRAY
▼ snailさん，どうもです．

> TextOutですが現行 Brush.Style が bsClear 固定になっています。
> 文字を上書きしたい場合もあるので、引数で指定できると便利だと

なるほど，これは確かに．決めうちは，ちょっとマズイ仕様でしたね．
呼出す前に設定してもクリアされてしまいますよね．ハハハッ．
「デスクトップ」にある「要修正リスト」に追加しました．

>今ですね．前にあったバグ関係も見直していますが，

のハズだったんですが，
最近の更新状況から，もしかしてバレているとは思いますが．
かなり昔のや，最近のやつなど，問い合わせ，掲示板等の関係を
ランダムにやっています．
重要性や優先順位は無視です (~^;

結果的に「これは必要ないだろ」と削除したのもあります．
どかこで区切りをつけないと，泥沼ですわ．
[6230] Re2:TextOut 塗りつぶしてから返信　削除
2012/7/27 (金) 14:37:00 Mr.XRAY
> なるほど，これは確かに．決めうちは，ちょっとマズイ仕様でしたね．

しかし，先日の矩形範囲の画像の... が左右上下の判定を入れ忘れたり，
どうして，私はこうなんでしょうね(汗)
[6231] Re3:TextOut 塗りつぶしてから返信　削除
2012/7/27 (金) 17:52:44 snail3
後から考えると汎用性を持たせておけば良かったと思うことは多々ありますよね。

作っている時は目的に合えばよいので、汎用性よりもスピード。
特に作りたいものがはっきりしているときはターゲット以外では
動作しないソフトをよく作っちゃいます。


昔は引数の数を変更すると大変な目に遭いましたが、
今は引数を省力できるので助かっています。


＞しかし，先日の矩形範囲の画像の... が左右上下の判定を入れ忘れたり，
＞どうして，私はこうなんでしょうね(汗)

賢者達に過ちがなかったとすれば、愚者達は絶望するしかないであろう。

byゲーテ

[6232] Re4:TextOut 塗りつぶしてから返信　削除
2012/7/27 (金) 20:26:57 Mr.XRAY
> 賢者達に過ちがなかったとすれば、愚者達は絶望するしかないであろう。

う〜む．奥深い．
ゲーテですか．
「若きウェルテルの悩み」はるか昔読んだことあります．
《あらずながもの学問... 》(違ったかな?)
慰めのことばと受け取っておきますです．

> 作っている時は目的に合えばよいので、汎用性よりもスピード。
> 特に作りたいものがはっきりしているときはターゲット以外では
> 動作しないソフトをよく作っちゃいます。

後で思ったのは，今回のsmail3さんのは，「想定外」です．
ハッキリ言って．ハイ(笑)
[6233] Re5:TextOut 塗りつぶしてから返信　削除
2012/7/29 (日) 11:20:35 snail3
> 後で思ったのは，今回のsmail3さんのは，「想定外」です．
> ハッキリ言って．ハイ(笑)

これをＭＳ用語では「仕様外」といいます。

マスコミ・大衆用語では「欠陥」。
こういっと事を欠陥とたたく人が沢山います。　:-)



[▼次のスレッド]
INCM/CMT
Cyclamen v3.82