名前 題名 ▼ Mr.XRAYさん > ▼ 宮さん > > > でもボタン１〜ボタン４までの違いがわかりません。 > > いろいろなテストが可能なようにしてあるだけです． > 取り敢えず，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に直接タイプして入力するなどしてください． > > この作業(上の数行の説明)をいろいろやると， > > でもボタン１〜ボタン４までの違いがわかりません。 > の違いが少しは見えてくるのではないかと思います． GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link