|
▼ 宮さん
> でもボタン１〜ボタン４までの違いがわかりません。
いろいろなテストが可能なようにしてあるだけです．
取り敢えず，Button4クリックでやっているということなので，
このコードに以下の様に //* を追加(コメントアウト)して実行してみてください．
//*を追加したら，コンパイルして実行します([F9]押下)
表示されたMemo1のテキストの改行位置をいろいろ変更してみてください
(改行を削除するとか)．
また，このテストプログラムでは，フォームが小さいので，
必ず大きくしてから実行してください．
(設計時ではなく，実行して，フォームが表示されてからマウスで大きく
してください)
この変更部分 //* は，ディスクからテキストをMemo1に読み込まない
ようにしているだけです．
つまり，テストプログラムであらかじめ用意しているテキストだけを
印刷プレビューします．
これは，すなわち，Memo1に表示されているものを印刷プレビューする
ことになります．
必要に応じて，
for i:=5 to 10 do begin
の部分(5とか10)も変更してください．
procedure TForm1.Button4Click(Sender: TObject);
var
ARect : TRect;
SL : TStringList;
i : Integer;
begin
//* Memo1.Clear;
Memo1.WordWrap:=True; //ここもコメントアウトするとどうなるか?
//* Memo1.Lines.LoadFromFile('MemoLines.txt');
//* Sleep(1000); //この1秒は表示がかわるのをみるためなので
//印刷範囲の設定
//以下，略
以上の実験では，あらかじめ，私が用意したテキストを印刷プレビュー
するだけですが，自分が用意したテキストを印刷する場合は，ファイル
から読みこむとか，Memo1に直接タイプして入力するなどしてください．
この作業(上の数行の説明)をいろいろやると，
> でもボタン１〜ボタン４までの違いがわかりません。
の違いが少しは見えてくるのではないかと思います．
|