Étlap

Készítsünk Wordben egy étlapot Delphi segítségével. Az étlap a hét munkanapjaira legyen érvényes. Tartalmazza az ebédre vonatkozóan a következőket: leves, köret és feltét, valamint egy hely a savanyúság és a desszertnek. Az étlapot táblázatos formában jelenítsük meg.

A formunkra tervező nézetben a két parancsgomb után, a Servers palettáról helyezzünk egy-egy WordApplicaton, WordDocument, WordFont és WordParagraphFormat elemet. Nevezzük át őket a következő lista alapján:

A tervező nézet:

A program futási képe most is egyszerű:

A létrehozott Word dokumentum:

A program listája:

unit UDWEtlap;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes,

Graphics, Controls, Forms,
Dialogs, StdCtrls, Word2000, OleServer;

type
TfmDWEtlap = class(TForm)
btEtlap: TButton;
btKilepes: TButton;
svWordAlkalmazas: TWordApplication;
svWordDocument: TWordDocument;
svWordFont: TWordFont;
svWordBekFormat: TWordParagraphFormat;
procedure btKilepesClick(Sender: TObject);
procedure btEtlapClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

  St24=String[24];

var
fmDWEtlap: TfmDWEtlap;
Etlap: Array[1..5,1..6] Of St24=
(('','Hétfő','Kedd','Szerda','Csütörtök','Péntek'),
  ('Leves','frankfurti leves','zöldségleves',
    'gyümölcsleves','paradicsomleves','grízgaluskaleves'),
  ('Köret','burgonyafőzelék','fánk',
    'burgonya','rizs','tarhonyás hús'),
  ('Feltét','sertéspörkölt','',
    'rántott csirkecomb','zöldborsós sertésszelet',''),
  ('','','',
    'uborkasaláta','ecetes paprika','cékla'));



implementation

{$R *.dfm}

procedure TfmDWEtlap.btKilepesClick(Sender: TObject);
begin
Close;
end;

procedure TfmDWEtlap.btEtlapClick(Sender: TObject);
Var Template, NewTemplate, DocumentType, Lathato, ItemIndex, Nev: OleVariant;
    I, J: Word;
    Oszlop: OleVariant;
Tabla: Table;
begin
With svWordAlkalmazas Do
Begin
Connect; Visible:= True;
Caption:= 'Etlap';
Template:= ''; NewTemplate:= False;
DocumentType:= 0; Lathato:= True;
Documents.Add(Template, NewTemplate, DocumentType, Lathato);
ItemIndex:= 1;
With svWordDocument Do
Begin
ConnectTo(Documents.Item(ItemIndex)); Activate;
PageSetup.Orientation:= 1;
With Selection Do
Begin
With Font Do
Begin
Bold:= Integer(True); Size:= 32; Underline:= wdUnderLineSingle;
End;
ParagraphFormat.Alignment:= wdAlignParagraphCenter;
TypeText('Étlap:');
With Font Do Begin Size:= 24; Underline:= wdUnderLineNone End;
TypeParagraph; TypeParagraph;
ParagraphFormat.Alignment:= wdAlignParagraphCenter;
TypeText('05.31 - 06.04');
TypeParagraph; TypeParagraph;
ParagraphFormat.Alignment:= wdAlignParagraphLeft;
Font.Size:= 16;
End;
With Selection Do
Begin
Tabla:= ActiveDocument.Tables.AddOld(Range,5,6);
With Tabla Do
Begin
For I:= 1 To Rows.Count Do
Begin
            Oszlop:= Cell(I,1);
Oszlop.SetWidth(50,wdAdjustProportional);
End;
Borders.InSideLineStyle:= wdLineStyleSingle;
Borders.OutSideLineStyle:= wdLineStyleSingle;
Borders.OutSideLineWidth:= wdLineWidth225pt;
Rows.Item(1).Borders.OutSideLineWidth:= wdLineWidth225pt;
Columns.Item(1).Borders.OutSideLineWidth:= wdLineWidth225pt;
For I:= 1 To 5 Do For J:= 1 To 6 Do With Cell(I,J) Do
Begin
If (I=1) Or (J=1) Then
Begin
Range.Font.Bold:= Integer(True);
Range.Font.Size:= 16;
End Else
Begin
Range.Font.Bold:= Integer(False);
Range.Font.Size:= 13;
End;
Range.Text:= Etlap[I,J];
End;
End;
End;
With Selection Do
Begin
ParagraphFormat.Alignment:= wdAlignParagraphCenter;
With Font Do Begin Size:= 6; Color:= clBlue End;
TypeParagraph;
ParagraphFormat.Alignment:= wdAlignParagraphCenter;
End;
End;
End;
Nev:= GetCurrentDir+'\Etlap.doc';
svWordDocument.SaveAs(Nev);
svWordFont.Disconnect;
svWordDocument.Disconnect;
svWordAlkalmazas.Quit;
end;

end.