Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.07.18;
Скачать: CL | DM;

Вниз

Печать из Memo   Найти похожие ветки 

 
Галинка ©   (2004-07-01 10:37) [0]

Да вот вроде и весь вопрос...

Милости прошу...


 
Ega23 ©   (2004-07-01 10:39) [1]

TPrinter.BeginDoc, TPrinter.EndDoc, F1.


 
Iconka   (2004-07-01 10:40) [2]

To Галинка
Прежде чем задавать вопрос посмотри хотябы дэмки и хелп! Или ты хочешь что бы за тебя это делали другие???  >:-<


 
Anatoly Podgoretsky ©   (2004-07-01 10:42) [3]

procedure TMainForm.mfPrintClick(Sender: TObject);
var
POutput : TextFile;
Ln   : LongInt;
begin
if PrintDialog.Execute then begin        // if Print Dialog OK
 AssignPrn(POutput);              // assign
 ReWrite(POutput);               // open printer
 Printer.Canvas.Font := EditWnd.Font;     // assign font to printer
 for Ln := 0 to EditWnd.Lines.Count - 1 do begin
  WriteLn(POutput,EditWnd.Lines[Ln]);     // print one line
 end;
 CloseFile(POutput);              // close printer
end
end; // mfPrintClick



Страницы: 1 вся ветка

Текущий архив: 2004.07.18;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.034 c
9-1079633312
Delpher_Gray
2004-03-18 21:08
2004.07.18
Разрезание текстур размером больше 256x256 в DirectXGraphics -D3D


14-1087550306
Rule
2004-06-18 13:18
2004.07.18
Я только что защитил диплом !!!!!!!!!!!!!!!!!!!


14-1088613697
Amit
2004-06-30 20:41
2004.07.18
Народ кто знает по каким дням у нас праздники?


14-1088537421
имя
2004-06-29 23:30
2004.07.18
Народ подскажите!!!


6-1085039627
GroZ
2004-05-20 11:53
2004.07.18
странная проблема с сокетами: