git-svn-id: https://svn.code.sf.net/p/kolmck/code@8 91bb2d04-0c0c-4d2d-88a5-bbb6f4c1fa07

Addons/MCKPageSetup.pas

@@ -0,0 +1,104 @@
+unit mckPageSetup;
+
+interface
+
+uses
+  KOL,KOLPageSetupDialog,Windows, Classes,Graphics,
+   mirror,mckObjs ;
+
+type
+
+  TKOLPageSetupDialog = class(TKOLObj)
+  private
+    fOptions   : TPageSetupOptions;
+    fAlwaysReset : Boolean;
+  protected
+    function  AdditionalUnits: string; override;
+    procedure SetupFirst( SL: TStringList; const AName, AParent, Prefix: String ); override;
+    procedure SetOptions(const Value : TPageSetupOptions);
+    procedure SetAlwaysReset(const Value : Boolean);
+  public
+    constructor Create( AOwner: TComponent ); override;
+    destructor Destroy;override;
+  published
+  property Options : TPageSetupOptions read fOptions write SetOptions;
+  property AlwaysReset : Boolean read fAlwaysReset write SetAlwaysReset;
+  end;
+
+
+
+  procedure Register;
+
+implementation
+
+{$R *.dcr}
+
+
+
+constructor TKOLPageSetupDialog.Create( AOwner: TComponent );
+begin
+inherited Create(Aowner);
+fAlwaysReset := false;
+fOptions := [psdMargins,psdOrientation,psdSamplePage,psdPaperControl,psdPrinterControl];
+end;
+
+destructor TKOLPageSetupDialog.Destroy;
+begin
+inherited Destroy;
+end;
+
+
+
+
+procedure TKOLPageSetupDialog.SetAlwaysReset(const Value: Boolean);
+begin
+  fAlwaysReset := Value;
+  Change;
+end;
+
+
+procedure TKOLPageSetupDialog.SetOptions(const Value : TPageSetupOptions);
+begin
+    fOptions := Value;
+    Change;
+end;
+
+function TKOLPageSetupDialog.AdditionalUnits;
+begin
+   Result := ', KOLPageSetupDialog';
+end;
+
+
+procedure TKOLPageSetupDialog.SetupFirst(SL: TStringList; const AName,
+  AParent, Prefix: String);
+  var
+  s : String;
+  begin
+    if (psdMargins in fOptions) then s := s + ',psdMargins';
+    if (psdOrientation in fOptions) then s := s + ',psdOrientation';
+    if (psdSamplePage in fOptions) then s := s + ',psdSamplePage';
+    if (psdPaperControl in fOptions) then s := s + ',psdPaperControl';
+    if (psdPrinterControl in fOptions) then s := s + ',psdPrinterControl';
+    if (psdHundredthsOfMillimeters in fOptions) then s := s + ',psdHundredthsOfMillimeters';
+    if (psdThousandthsOfInches in fOptions) then s := s + ',psdThousandthsOfInches';
+    if (psdUseMargins in fOptions) then s := s + ',psdUseMargins';
+    if (psdUseMinMargins in fOptions) then s := s + ',psdUseMinMargins';
+    if (psdWarning in fOptions) then s := s + ',psdWarning';
+    if (psdHelp in fOptions) then s := s + ',psdHelp';
+    if (psdReturnDC in fOptions) then s:= s + ',psdReturnDC';
+    if s <> '' then
+    if s[1] = ',' then s[1] := Chr(32);
+    SL.Add(Prefix + AName + ' := NewPageSetupDialog(' + AParent + ',[' + s + ']);');
+    if fAlwaysReset then SL.Add(Prefix + AName + '.AlwaysReset := True;');
+  end;
+
+
+
+
+procedure Register;
+begin
+  RegisterComponents('KOLAddons', [TKOLPageSetupDialog]);
+end;
+
+end.
+