喫茶XRAYトップページ


[13211] plPrevでドット線の印刷返信 削除
2020/2/3 (月) 14:15:33 BOLU
BOLUと申します。
plPrevにはいつもお世話になっております。

質問させてください。
プレビュー画面には
plPrev.Canvas.Pen.Style := psDot;
で正常にドット線が表示されるのですが
実際に印字ボタンを押すと、ただの線で印字されてしまいます。

環境は「Delphi10.3/Pro + plPrev 9.05」です。

抜粋ですが

with plPrev do begin
    plSetPrinter.PaperNumber := DMPAPER_A4;
    plSetPrinter.Orientation := poPortrait;

    BeginDoc;

    Canvas.Font.Name := 'メイリオ';
    Canvas.Font.Size := 3;

  '横線を点線で
    Canvas.Pen.Style := psDot;
    Canvas.MoveTo(xLine1   ,yLine1);
    Canvas.LineTo(xLineEnd ,yLine1);

    EndDoc;
    ShowModal;
end;

設定の漏れ等ご指摘有れば幸いです。

宜しくお願い致します。

[13212] Re:plPrevでドット線の印刷返信 削除
2020/2/3 (月) 14:18:41 BOLU
<13210>は途中で載ってしましました。
すいません削除願います。

[13213] Re:plPrevでドット線の印刷返信 削除
2020/2/3 (月) 14:40:17 BOLU
自己レスです。

>   '横線を点線で
>     Canvas.Pen.Style := psDot;




LineStyle(psDot);

に変更したら、プレビュー後も正常に印字出来ました。
お騒がせしました。


[13214] Re2:plPrevでドット線の印刷返信 削除
2020/2/3 (月) 14:44:20 BOLU
//  Width プロパティが1でないときにはpsDotまたはpsDashは使えない.

これだったんですね・・・
お恥ずかしい。

大変失礼しました。
また機会があれば宜しくお願いします。

BOLU

▼ BOLUさん
> 自己レスです。
>
> >   '横線を点線で
> >     Canvas.Pen.Style := psDot;
>
> を
>
> LineStyle(psDot);
>
> に変更したら、プレビュー後も正常に印字出来ました。
> お騒がせしました。


[13215] Re3:plPrevでドット線の印刷返信 削除
2020/2/3 (月) 18:51:55 Mr.XRAY
▼ BOLUさん,こんにちは.

> //  Width プロパティが1でないときにはpsDotまたはpsDashは使えない.
>
> これだったんですね・・・
> お恥ずかしい。


全然恥ずかしくないですよ.
これは忘れることがよくあります.
でも,ここに書いて頂くと,他の方も
「そう言えば・・・」
と再認識するかも知れません.

どうしても太い線の点線という場合は,自力ですね (^^;

[ 190_線の端点形状と接合スタイル ]
http://mrxray.on.coocan.jp/Delphi/plSamples/190_LineEdgeStyle.htm

[ 192_線の端点形状の変更と GDI+ ]
http://mrxray.on.coocan.jp/Delphi/plSamples/192_GDIplusBasic.htm


INCM/CMT
Cyclamen v3.82