喫茶XRAYトップページ

[スレッド全体]
[77] plPrevのPageWidth,PageHeightについて教えて！返信　削除
2005/1/18 (火) 20:30:18 KSC
はじめまして、KSCと言います。
plシリーズには、いつもお世話になっています。

早速ですが、plPrevのPageWidth,PageHeightについて教えて下さい。
用紙をA4横にて描画・印刷したいのですがPaperWidth,PaperHeightはA4横のサイズが
設定できているのにPageWidth,PageHeightの値が違った値が設定されていて描画範囲が
欠けた状態になってしまいます。

PaperWidth = 2970 , PaperHeight = 2100
PageWidth  = 2040 , PageHeight  = 2800

PageWidth,PageHeightは読み込み専用なので直接値を書きこむわけには行きませんし、
PageWidth,PageHeightに影響するプロパティがどれなのか分かりません。

助けて下さい！

ちなみにplPrevFrmにて、印刷プロパティダイアログを開いた際、A4横の設定になっています。
更にそのダイアログを単純にＯＫクリックすると描画範囲はA4横になります。

宜しくお願い致します。

[78] Re:plPrevのPageWidth,PageHeightについて教えて！返信　削除
2005/1/18 (火) 22:37:49 マスター
▼ KSCさん

いらっしゃいませ．拙作コンポのご利用サンクスです．

>PaperWidth = 2970 , PaperHeight = 2100
>PageWidth  = 2040 , PageHeight  = 2800

うえっ，バグでしょうか．早速調査いたしました．
用紙のサイズはどのように設定したのでしょうか．
私のテスト内容です．

(1)新規プロジェクト作成
(2)フォームに以下を各々ひとつづつ配置
     Button
     plSetPrinter (用紙の設定をする時には必要．使用しないとplPrevは
                   プリンタの現在の設定を使用する)
     plPrev
(4)plSetPrinter(プリンタ設定コンポ)をダブルクリックして
   ダイアログの用紙設定で[印刷方向]を[横]にする
(3)以下のコード書いて実行．横方向にプレビューも印刷もできました．
   どうでしょうか．

procedure TForm1.Button1Click(Sender: TObject);
begin
     plPrev1.BeginDoc;
     plPrev1.FontSize(100);
     plPrev1.TextOut(300,500,'喫茶XRAY 喫茶XRAY 喫茶XRAY');
     plPrev1.EndDoc;
     plPrev1.ShowModal;
end;

end.

テスト環境は，Delphi5 Pro(UP1), WindowsXP(SP2)
              plSetPriner,plPrev共最新バージョンです．
プリンタは，PCのLPT1接続のEPSON PX-V600です．


[79] Re2:plPrevのPageWidth,PageHeightについて教えて！返信　削除
2005/1/19 (水) 09:21:44 KSC
▼ マスターさん

おはようございます。

> >PaperWidth = 2970 , PaperHeight = 2100
> >PageWidth  = 2040 , PageHeight  = 2800
>
> うえっ，バグでしょうか．早速調査いたしました．
> 用紙のサイズはどのように設定したのでしょうか．

「バグ」だなんて、そんな事はないと思います！！

たぶん、私のやり方に問題があるのですが、その解決法が分かりません。

現在、plシリーズを利用させてもらい、レイアウトデザインツールを開発し、そのツールで作成したデータ
を読込コンポーネントとデータをplPrevへデータ変換してレイアウト描画する方式を仕上げ中なのですが、
用紙サイズの設定については、
　plPrev.ViewWidth  := FOMData1.CustomPaperWidth;   // 2970
　plPrev.ViewHeight := FOMData1.CustomPaperHeight;  // 2100
　と、ViewWidthとViewHeightに値を設定しているだけです。

ちなみにViewWidth，ViewHeightに値を設定するとPaperWidth,PaperHeightとPageWidth,PageHeightには、
どのような値として反映されるのでしょうか？


> 私のテスト内容です．
>
> (1)新規プロジェクト作成
> (2)フォームに以下を各々ひとつづつ配置
>      Button
>      plSetPrinter (用紙の設定をする時には必要．使用しないとplPrevは
>                    プリンタの現在の設定を使用する)
>      plPrev
> (4)plSetPrinter(プリンタ設定コンポ)をダブルクリックして
>    ダイアログの用紙設定で[印刷方向]を[横]にする
> (3)以下のコード書いて実行．横方向にプレビューも印刷もできました．
>    どうでしょうか．
> 　　・
> 　　・
>
> テスト環境は，Delphi5 Pro(UP1), WindowsXP(SP2)
>               plSetPriner,plPrev共最新バージョンです．
> プリンタは，PCのLPT1接続のEPSON PX-V600です．

テストまでして頂き、ありがとうございます。
前の書き込みでも書きましたが、１度レイアウト描画した後にプリンタ設定ダイアログを
起動して、ＯＫクリックする事で正常なA4横の描画になるのですが、できる事ならプリンタ
設定ダイアログを起動せずに自動で設定したいのです！

宜しくお願い致します。

[80] Re3:plPrevのPageWidth,PageHeightについて教えて！返信　削除
2005/1/19 (水) 10:43:45 Mr.XRAY
▼ KSCさん

> ちなみにViewWidth，ViewHeightに値を設定するとPaperWidth,PaperHeightとPageWidth,PageHeightには、
> どのような値として反映されるのでしょうか？

ViewWidth,ViewHeightは用紙のサイズは変更しません．表示だけ変わります．

> できる事ならプリンタ設定・#95;イアログを起動せずに自動で設定したいのです！
(改行位置変更)

えっと，昨日私が提示した方法でも・#95;メだったということでしょうか．
設計時には

http://homepage2.nifty.com/Mr_XRAY/Delphi/plPrev/B_UseCont.htm

の図3のようになるわけですが...


[81] Re4:plPrevのPageWidth,PageHeightについて教えて！返信　削除
2005/1/19 (水) 11:43:32 KSC
▼ Mr.XRAYさん

こんにちは。

> ViewWidth,ViewHeightは用紙のサイズは変更しません．表示だけ変わります．

すいません。用紙サイズ・方向をソースで変更する様にするには、どのメゾット又は
プロパティを操作する様にプログラミングすれば良いのでしょうか？

> えっと，昨日私が提示した方法でもダメだったということでしょうか．
> 設計時には
>

いいえ、提示して頂いた方法でＯＫだったのですが、やりたいのは任意データ（用紙サイズ・方向，レイアウトデータ等）
を読み込んだ際に自動的にレイアウトに反映したいのです。

すいません。質問のしかたが下手で...
[82] Re5:plPrevのPageWidth,PageHeightについて教えて！返信　削除
2005/1/19 (水) 12:19:11 Mr.XRAY
▼ KSCさん

> いいえ、提示して頂いた方法でＯＫだったのですが、やりたいのは任意データ（用紙サイズ・方向，レイアウトデータ等）
> を読み込んだ際に自動的にレイアウトに反映したいのです。

コード上で設定するということですね．失礼しました．
プリンタの設定にはプリンタ設定コンポを使用します．

まず，プリンタ設定コンポTplSetPrinterを配置します．
次に，印刷プレビューコンポのplSetPrinterプロパティ(オブジェクト・
インスペクタでも指定可能)に，配置したプリンタ設定コンポを指定して
下さい．印刷プレビューは，このプリンタ設定コンポの設定にしたがって
プレビューします．

後は，このプリンタ設定コンポのPaperNumberとか Orientation プロパ
ティ等を設定することになります．
規定の用紙サイズ以外では，ユーザ定義用紙の作成メソッドを使用します．
印刷プレビューコンポのオンライン・マニュアルには，NkPrinterによる
設定方法もありますので，参考にして下さい．



[83] Re6:plPrevのPageWidth,PageHeightについて教えて！返信　削除
2005/1/19 (水) 14:08:24 KSC
▼ Mr.XRAYさん

たびたび、すいません。

> コード上で設定するということですね．失礼しました．

はい。

> プリンタの設定にはプリンタ設定コンポを使用します．
> まず，プリンタ設定コンポTplSetPrinterを配置します．
> 次に，印刷プレビューコンポのplSetPrinterプロパティ(オブジェクト・
> インスペクタでも指定可能)に，配置したプリンタ設定コンポを指定して
> 下さい．印刷プレビューは，このプリンタ設定コンポの設定にしたがって
> プレビューします．
>
> 後は，このプリンタ設定コンポのPaperNumberとか Orientation プロパ
> ティ等を設定することになります．

TplSetPrinterを配置し、再描画ボタンを配置して、イベントソースは下記の通りです。

procedure TPrevFrm.ReDrawBtnClick(Sender: TObject);
begin
  // FOMData1は、レイアウトデータを管理しているコンポーネントです。
　// PDirectionの値はTPrinterOrientation型でpoLandscapeです
  plPrev1.plSetPrinter.SetOrientation( FOMData1.PDirection );

　// CustomPaperWidthの値は用紙幅方向データで値は2970です
　// CustomPaperHeightの値は用紙幅方向データで値は2100です
  if (plPrev1.ViewWidth <> FOMData1.CustomPaperWidth)
    or (plPrev1.ViewHeight <> FOMData1.CustomPaperHeight) then begin
    plPrev1.ViewWidth := FOMData1.CustomPaperWidth;
    plPrev1.ViewHeight := FOMData1.CustomPaperHeight;
    PageWholeBtnClick( Sender );
  end;

  plPrev1.Display(plPrev1.PageNumber);
end;

この時、
☆plPrevの画面上の用紙は、A4横になっている。
☆印刷範囲は、やはりデフォルトプリンターの既定値（A4縦）のままである。
☆プリンター設定ダイアログを開くと用紙方向は横がチェックされています。
　ダイアログをＯＫクリックすると印刷範囲はA4横となります。

後、何がソース上、足りないのでしょうか？

[84] Re7:plPrevのPageWidth,PageHeightについて教えて！返信　削除
2005/1/19 (水) 17:44:55 Mr.XRAY
▼ KSCさん

A4横の場合の設定です．
usesにPrintersが必要(poLandScape定数使用のため)．

なお，ViewWidth,ViewHeightは特別な用途に使用します．
プレビュー上の用紙の見かけのサイズを変更するだけで，用紙サイズ
を変更するわけではありません．用紙そのものは，プリンタの設定で
行います．通常は設定する必要はありません．

procedure TForm1.Button1Click(Sender: TObject);
begin
     //ユーザ定義用紙にしたい場合は，以下の2行のかわりに
     //plPrev1.plSetPrinter.SetUserPaper(........)を使う
     plPrev1.plSetPrinter.PaperNumber:=DMPAPER_A4;
     plPrev1.plSetPrinter.Orientation:=poLandScape;

     plPrev1.BeginDoc;
     plPrev1.FontSize(100);
     plPrev1.TextOut(300,500,'喫茶XRAY 喫茶XRAY 喫茶XRAY');
     plPrev1.EndDoc;
     plPrev1.ShowModal;
end;

>procedure TPrevFrm.ReDrawBtnClick(Sender: TObject);

ということは逐次表示方式でしょうか．
このReDrawBtnというのは(継承)プレビューフォーム上にあるのでしょうか．



[85] プレビュー中に用紙サイズ等を変更する方法(逐次表示方式)返信　削除
2005/1/19 (水) 18:17:23 Mr.XRAY
▼ KSCさん
> ReDrawBtnClickということは逐次表示方式でしょうか．
> このReDrawBtnというのは(継承)プレビューフォーム上にあるのでしょうか．

もし上記の状況での使用であれば，以下のようにしてみて下さい．
(先読み方式ではこの手法は使えません)
つまり，プリンタの設定ダイアログを表示するかわりに
PrinterSetBtnClickの引数にnilを渡して設定します．nilを渡すと
ダイアログを表示しないで現在のプリンタの設定でプレビューし直します．

Btn1ClickがReDrawBtnClickに該当．
Form1はメインフォーム
usesにPrintersが必要

procedure TplPrevForm2.Button1Click(Sender: TObject);
begin
    Form1.plPrev1.plSetPrinter.PaperNumber:=DMPAPER_A4;
    Form1.plPrev1.plSetPrinter.Orientation:=poLandScape;
    PrinterSetBtnClick(nil);
end;
[87] Re:プレビュー中に用紙サイズ等を変更する方法(逐次表示方式)返信　削除
2005/1/19 (水) 19:11:18 KSC
▼ Mr.XRAYさん

こんばんは。

> もし上記の状況での使用であれば，以下のようにしてみて下さい．
> (先読み方式ではこの手法は使えません)
> つまり，プリンタの設定ダイアログを表示するかわりに
> PrinterSetBtnClickの引数にnilを渡して設定します．nilを渡すと
> ダイアログを表示しないで現在のプリンタの設定でプレビューし直します．
>
> Btn1ClickがReDrawBtnClickに該当．
> Form1はメインフォーム
> usesにPrintersが必要
>
> procedure TplPrevForm2.Button1Click(Sender: TObject);
> begin
>     Form1.plPrev1.plSetPrinter.PaperNumber:=DMPAPER_A4;
>     Form1.plPrev1.plSetPrinter.Orientation:=poLandScape;
>     PrinterSetBtnClick(nil);
> end;

データを読み込んだ際に、
plPrev1.plSetPrinter.Orientation:=poLandScape;
PrinterSetBtnClick(nil);

を実行する事で問題解決する事が出来ました。
ありがとうございました。

これからも宜しくお願い致します。

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