TGraphic , Windows: ( TIcon), ( TMetafile) ( TBitmap). TGraphic TJPEGImage JPEG.
TGraphic , . , , . , . BMP.
TGraphic -.
TIcon TMetafile . TBitmap .
Assign (Source: TPersistent) , .
TGraphic LoadFromFile, SaveToFile, LoadFromClipboadFormat, SaveToClipboardFormat.
OnProgress , .
Height Width. Modified: Boolean , .
Ticture . , .
Graphic: TGraphic, Image1.Picture.Graphic:= MyBitmap. , : Bitmap: TBitmap, Icon: TIcon, Metafile: TMetafile.
Graphic , , , . ,
Image1.Picture.LoadFromFle(myicon.ico);
MyBitmap:= Image1.Picture.Bitmap;
Clipboard:
Procedure TForm.Buttin1Click(Sender: TObject);
Begin
Clipboard.Assign(Image1.Picture);
End;
:
Procedure TForm.Buttin1Click(Sender: Tobject);
Begin
Image1.Picture.Assign(Clipboard);
End;
TPicture Graphic Draw() StrechDraw () :
Procedure TForm.Buttin1Click(Sender: TObject);
Begin
Form1.Canvas.Draw(300,100,Image1.Picture.Graphic);
End;
Ticture TGraphic. . ; . Draw StretchDraw .
|
|
Trinter, Printers. , Printers Uses .
Trinter Windows .
:
Canvas , .
Orientation (poLandscape, poPortrait).
PageHeight PageWidth .
PageNumber .
Printers , Windows.
PrinterIndex , , Printers, .
Printing True , .
Title .
:
Abort .
BeginDoc .
EndDoc .
SetPrinter .
BeginDoc. TextOut (Canvas) , EndDoc.
Begin
Printer.BeginDoc;
Printer.Canvas.TextOut(x, y, );
Label1.Caption:= + IntToStr(Printer.PageNumber);
Printer.EndDoc;
End;
Delphi Write Writeln, .
Memo1:
Var Pr: TextFile; i: Integer;
Begin
AssignPrn (Pr);
Rewrite (Pr);
For i:= 0 To Memo1.Lines.Count 1 Do
Writeln(Pr, Memo1.Lines[i]);
CloseFile(Pr);
End;
AssignPrn Printers . Rewrite . Writeln .
TGraphic . TImage TPicture. , TPrinter .
Begin
With Printer Do
Begin
BeginDoc;
Canvas.Draw (0, 0, Image1);
EndDoc;
End;
End;
Delphi
Delphi , , .
Delphi , , , . Delphi Windows 95, Windows 98 Windows NT.
|
|
Delphi , . .
Delphi BDE (Borland Database Engine) dBASE-, Paradox-, FoxPro-, Access- ASCII- . Borland SQL Links for Windows SQL-.
Delphi InterBase, , SQL- Oracle, Sybase, Informix, InterBase NT DB2. BDE, ODBC-. , Delphi / .
Delphi TQuickReport.
Delphi . lntel-Assembler- Object Pascal. , Borland Turbo Assembler Macro Assembler Microsoft. Delphi -, Object Pascal.
Delphi .
, .