喫茶XRAYトップページ


[5398] plTackPrev に罫線があれば返信 削除
2011/10/10 (月) 20:51:56 snail3
plTackPrev には罫線が無いのは不思議だと思って

DrawCellTextメソッドを少し触ってみました。


    if ADrawMethod='Circle'           then Self.Circle(X1,Y1, X2 );         // 円
    if ADrawMethod='Ellipse'          then Self.Ellipse(X1,Y1, X2, Y2 );    // 楕円
    if ADrawMethod='MoveTo'           then Self.MoveTo(X1,Y1 );             // 移動
    if ADrawMethod='LineTo'           then Self.LineTo(X1,Y1 );             // 直線
    if ADrawMethod='Line'             then Self.Line(X1, X2, Y1, Y2 );      // 直線
    if ADrawMethod='Rectangle'        then Self.Rectangle(X1, X2, Y1, Y2 ); // 塗潰し四角形の描画(枠線あり)
    if ADrawMethod='FillRect'         then Self.FillRect(X1, X2, Y1, Y2 );  // 塗りつぶし
    if ADrawMethod='RectLine'         then Self.RectLine(X1, X2, Y1, Y2 );  // 四角形の描画

後角の丸い四角も入れたかったのですが、引数の関係で断念しました。

、、、ここまでやって、線種とか色のセットも必要な事に気がつきました。

とりあえず今日は止めます。

>Windows 8へのHyper-V搭載を正式発表、複数OSをマルチモニターで表示可能
>http://internet.watch.impress.co.jp/docs/news/20110908_475947.html



そういえば Remote Desktop で音が出せると、どこかで読んだような。
今まで 音が出せないのが最大の欠点だったので、これから試してみます。



[5399] Re:plTackPrev に罫線があれば返信 削除
2011/10/10 (月) 21:29:18 Mr.XRAY
▼ snail3さん

> とりあえず今日は止めます。

お疲れ様です.がんばってくださいませ (^^;


[5400] Re2:plTackPrev に罫線があれば返信 削除
2011/10/11 (火) 08:56:52 snail3
> お疲れ様です.がんばってくださいませ (^^;

ついでに機能追加も含めて「私がやります」というパターンを期待したのですが、、

私が触って良いでしょうか。(*_*)

ところで四角形ですが、角が丸い四角形も欲しいと思いますが引数が足りません。
無理矢理なら PrintText,ADrawMethod を使いますが、
引数追加とどちらがスマートでしょうか。

引数追加例:
procedure DrawCellText(ACol,X1,X2,Y1,Y2: Integer;PrintText,ADrawMethod:String; ArgXr : Integer = 0; ArgXr : Integer = 0; ArgYr : Integer = 0); Virtual;


それともプロパティ RectLineR を使うのが正解でしょうか。

ご神託お待ちしています。


[5401] Re3:plTackPrev に罫線があれば返信 削除
2011/10/11 (火) 09:02:30 Mr.XRAY
▼ snail3さん

> 私が触って良いでしょうか。(*_*)

どんどん勝手にやってください.そのためのソースコード提供です.
修正,変更したものをネット上,他の方に配布するのも自由です.

> それともプロパティ RectLineR を使うのが正解でしょうか。

これは,ラベルの枠線の設定(?)だったと思います.
私個人の考え方としては,細かい描画はイベントで処理した方がいい
のではないかと思っています.
でも,人それぞれですから.(^^;


INCM/CMT
Cyclamen v3.82