dao/DelphiScanner/Configuration.pas

unit Configuration;

interface
uses
  IniFiles;

type
  TConfiguration = class
  public

    Sted : String;

    //Parametere for label print
    LabelType : integer;
    XPosRute : integer;
    YPosRute : integer;
    FontSizeRute : integer;
    FontSizeRuteLille : integer;
    XPosKommentar : integer;
    YPosKommentar : integer;
    FontSizeKommentar : integer;
    XPosBoghandler : integer;
    YPosBoghandler : integer;
    FontSizeBoghandler : integer;
    XPosKoreliste : integer;
    YPosKoreliste : integer;
    FontSizeKoreliste : integer;
    FontSizeKorelisteLille : integer;
    XPosSorteringsfelt1 : integer;
    YPosSorteringsfelt1 : integer;
    FontSizeSorteringsfelt1 : integer;
    XPosSorteringsfelt2 : integer;
    YPosSorteringsfelt2 : integer;
    FontSizeSorteringsfelt2 : integer;
    XPosSmskode : integer;
    YPosSmskode : integer;
    FontSizeSmskode : integer;

    procedure ReadFromInifile( iniFile: TIniFile);

  end;

implementation


procedure TConfiguration.ReadFromInifile( iniFile: TIniFile);
begin
  with iniFile do
  begin

    LabelType := ReadInteger('Settings','LabelType',1);

    if LabelType = 0 then
    begin
       XPosRute := ReadInteger('RuteBred','XPos',1);
       YPosRute := ReadInteger('RuteBred','YPos',1);
       FontSizeRute := ReadInteger('RuteBred','FontSize',72);
       FontSizeRuteLille := ReadInteger('RuteBred','FontSizeLille',20);
       XPosKommentar := ReadInteger('KommentarBred','XPos',1);
       YPosKommentar := ReadInteger('KommentarBred','YPos',250);
       FontSizeKommentar := ReadInteger('KommentarBred','FontSize',16);
       XPosBoghandler := ReadInteger('BoghandlerBred','XPos',1);
       YPosBoghandler := ReadInteger('BoghandlerBred','YPos',400);
       FontSizeBoghandler := ReadInteger('BoghandlerBred','FontSize',16);
       XPosKoreliste := ReadInteger('KorelisteSmal','XPos',1);
       YPosKoreliste := ReadInteger('KorelisteSmal','YPos',100);
       FontSizeKoreliste := ReadInteger('KorelisteSmal','FontSize',72);
       FontSizeKorelisteLille := ReadInteger('KorelisteSmal','FontSizeLille',20);
       XPosSorteringsfelt1 := ReadInteger('Sorteringsfelt1Smal','XPos',700);
       YPosSorteringsfelt1 := ReadInteger('Sorteringsfelt1Smal','YPos',100);
       FontSizeSorteringsfelt1 := ReadInteger('Sorteringsfelt1Smal','FontSize',16);
       XPosSorteringsfelt2 := ReadInteger('Sorteringsfelt2Smal','XPos',700);
       YPosSorteringsfelt2 := ReadInteger('Sorteringsfelt2Smal','YPos',150);
       FontSizeSorteringsfelt2 := ReadInteger('Sorteringsfelt2Smal','FontSize',16);
       XPosSmskode := ReadInteger('SmskodeSmal','XPos',1);
       YPosSmskode := ReadInteger('SmskodeSmal','YPos',300);
       FontSizeSmskode := ReadInteger('SmskodeSmal','FontSize',32);
    end
    else
    begin
       XPosRute := ReadInteger('RuteSmal','XPos',1);
       YPosRute := ReadInteger('RuteSmal','YPos',1);
       FontSizeRute := ReadInteger('RuteSmal','FontSize',72);
       FontSizeRuteLille := ReadInteger('RuteSmal','FontSizeLille',20);
       XPosKommentar := ReadInteger('KommentarSmal','XPos',1);
       YPosKommentar := ReadInteger('KommentarSmal','YPos',250);
       FontSizeKommentar := ReadInteger('KommentarSmal','FontSize',16);
       XPosBoghandler := ReadInteger('BoghandlerSmal','XPos',1);
       YPosBoghandler := ReadInteger('BoghandlerSmal','YPos',400);
       FontSizeBoghandler := ReadInteger('BoghandlerSmal','FontSize',16);
       XPosKoreliste := ReadInteger('KorelisteSmal','XPos',1);
       YPosKoreliste := ReadInteger('KorelisteSmal','YPos',100);
       FontSizeKoreliste := ReadInteger('KorelisteSmal','FontSize',72);
       FontSizeKorelisteLille := ReadInteger('KorelisteSmal','FontSizeLille',20);
       XPosSorteringsfelt1 := ReadInteger('Sorteringsfelt1Smal','XPos',700);
       YPosSorteringsfelt1 := ReadInteger('Sorteringsfelt1Smal','YPos',100);
       FontSizeSorteringsfelt1 := ReadInteger('Sorteringsfelt1Smal','FontSize',16);
       XPosSorteringsfelt2 := ReadInteger('Sorteringsfelt2Smal','XPos',700);
       YPosSorteringsfelt2 := ReadInteger('Sorteringsfelt2Smal','YPos',150);
       FontSizeSorteringsfelt2 := ReadInteger('Sorteringsfelt2Smal','FontSize',16);
       XPosSmskode := ReadInteger('SmskodeSmal','XPos',1);
       YPosSmskode := ReadInteger('SmskodeSmal','YPos',300);
       FontSizeSmskode := ReadInteger('SmskodeSmal','FontSize',32);
       if LabelType = 2 then // test p� alm. printer kr�ver at XY-positionerne ganges med 3
       begin
          XPosRute := XPosRute * 3;
          YPosRute := YPosRute * 3;
          XPosKommentar := XPosKommentar * 3;
          YPosKommentar := YPosKommentar * 3;
          XPosBoghandler := XPosBoghandler * 3;
          YPosBoghandler := YPosBoghandler * 3;
          XPosKoreliste := XPosKoreliste * 3;
          YPosKoreliste := YPosKoreliste * 3;
          XPosSorteringsfelt1 := XPosSorteringsfelt1 * 3;
          YPosSorteringsfelt1 := YPosSorteringsfelt1 * 3;
          XPosSorteringsfelt2 := XPosSorteringsfelt2 * 3;
          YPosSorteringsfelt2 := YPosSorteringsfelt2 * 3;
          XPosSmskode := XPosSmskode * 3;
          YPosSmskode := YPosSmskode * 3;
       end;
    end;
  end;  //With ... do

end;

end.
1	torben	2705	unit Configuration;
2
3			interface
4			uses
5			IniFiles;
6
7			type
8			TConfiguration = class
9			public
10
11			Sted : String;
12
13			//Parametere for label print
14			LabelType : integer;
15			XPosRute : integer;
16			YPosRute : integer;
17			FontSizeRute : integer;
18			FontSizeRuteLille : integer;
19			XPosKommentar : integer;
20			YPosKommentar : integer;
21			FontSizeKommentar : integer;
22			XPosBoghandler : integer;
23			YPosBoghandler : integer;
24			FontSizeBoghandler : integer;
25			XPosKoreliste : integer;
26			YPosKoreliste : integer;
27			FontSizeKoreliste : integer;
28			FontSizeKorelisteLille : integer;
29			XPosSorteringsfelt1 : integer;
30			YPosSorteringsfelt1 : integer;
31			FontSizeSorteringsfelt1 : integer;
32			XPosSorteringsfelt2 : integer;
33			YPosSorteringsfelt2 : integer;
34			FontSizeSorteringsfelt2 : integer;
35			XPosSmskode : integer;
36			YPosSmskode : integer;
37			FontSizeSmskode : integer;
38
39			procedure ReadFromInifile( iniFile: TIniFile);
40
41			end;
42
43			implementation
44
45
46			procedure TConfiguration.ReadFromInifile( iniFile: TIniFile);
47			begin
48			with iniFile do
49			begin
50
51			LabelType := ReadInteger('Settings','LabelType',1);
52
53			if LabelType = 0 then
54			begin
55			XPosRute := ReadInteger('RuteBred','XPos',1);
56			YPosRute := ReadInteger('RuteBred','YPos',1);
57			FontSizeRute := ReadInteger('RuteBred','FontSize',72);
58			FontSizeRuteLille := ReadInteger('RuteBred','FontSizeLille',20);
59			XPosKommentar := ReadInteger('KommentarBred','XPos',1);
60			YPosKommentar := ReadInteger('KommentarBred','YPos',250);
61			FontSizeKommentar := ReadInteger('KommentarBred','FontSize',16);
62			XPosBoghandler := ReadInteger('BoghandlerBred','XPos',1);
63			YPosBoghandler := ReadInteger('BoghandlerBred','YPos',400);
64			FontSizeBoghandler := ReadInteger('BoghandlerBred','FontSize',16);
65			XPosKoreliste := ReadInteger('KorelisteSmal','XPos',1);
66			YPosKoreliste := ReadInteger('KorelisteSmal','YPos',100);
67			FontSizeKoreliste := ReadInteger('KorelisteSmal','FontSize',72);
68			FontSizeKorelisteLille := ReadInteger('KorelisteSmal','FontSizeLille',20);
69			XPosSorteringsfelt1 := ReadInteger('Sorteringsfelt1Smal','XPos',700);
70			YPosSorteringsfelt1 := ReadInteger('Sorteringsfelt1Smal','YPos',100);
71			FontSizeSorteringsfelt1 := ReadInteger('Sorteringsfelt1Smal','FontSize',16);
72			XPosSorteringsfelt2 := ReadInteger('Sorteringsfelt2Smal','XPos',700);
73			YPosSorteringsfelt2 := ReadInteger('Sorteringsfelt2Smal','YPos',150);
74			FontSizeSorteringsfelt2 := ReadInteger('Sorteringsfelt2Smal','FontSize',16);
75			XPosSmskode := ReadInteger('SmskodeSmal','XPos',1);
76			YPosSmskode := ReadInteger('SmskodeSmal','YPos',300);
77			FontSizeSmskode := ReadInteger('SmskodeSmal','FontSize',32);
78			end
79			else
80			begin
81			XPosRute := ReadInteger('RuteSmal','XPos',1);
82			YPosRute := ReadInteger('RuteSmal','YPos',1);
83			FontSizeRute := ReadInteger('RuteSmal','FontSize',72);
84			FontSizeRuteLille := ReadInteger('RuteSmal','FontSizeLille',20);
85			XPosKommentar := ReadInteger('KommentarSmal','XPos',1);
86			YPosKommentar := ReadInteger('KommentarSmal','YPos',250);
87			FontSizeKommentar := ReadInteger('KommentarSmal','FontSize',16);
88			XPosBoghandler := ReadInteger('BoghandlerSmal','XPos',1);
89			YPosBoghandler := ReadInteger('BoghandlerSmal','YPos',400);
90			FontSizeBoghandler := ReadInteger('BoghandlerSmal','FontSize',16);
91			XPosKoreliste := ReadInteger('KorelisteSmal','XPos',1);
92			YPosKoreliste := ReadInteger('KorelisteSmal','YPos',100);
93			FontSizeKoreliste := ReadInteger('KorelisteSmal','FontSize',72);
94			FontSizeKorelisteLille := ReadInteger('KorelisteSmal','FontSizeLille',20);
95			XPosSorteringsfelt1 := ReadInteger('Sorteringsfelt1Smal','XPos',700);
96			YPosSorteringsfelt1 := ReadInteger('Sorteringsfelt1Smal','YPos',100);
97			FontSizeSorteringsfelt1 := ReadInteger('Sorteringsfelt1Smal','FontSize',16);
98			XPosSorteringsfelt2 := ReadInteger('Sorteringsfelt2Smal','XPos',700);
99			YPosSorteringsfelt2 := ReadInteger('Sorteringsfelt2Smal','YPos',150);
100			FontSizeSorteringsfelt2 := ReadInteger('Sorteringsfelt2Smal','FontSize',16);
101			XPosSmskode := ReadInteger('SmskodeSmal','XPos',1);
102			YPosSmskode := ReadInteger('SmskodeSmal','YPos',300);
103			FontSizeSmskode := ReadInteger('SmskodeSmal','FontSize',32);
104			if LabelType = 2 then // test p� alm. printer kr�ver at XY-positionerne ganges med 3
105			begin
106			XPosRute := XPosRute * 3;
107			YPosRute := YPosRute * 3;
108			XPosKommentar := XPosKommentar * 3;
109			YPosKommentar := YPosKommentar * 3;
110			XPosBoghandler := XPosBoghandler * 3;
111			YPosBoghandler := YPosBoghandler * 3;
112			XPosKoreliste := XPosKoreliste * 3;
113			YPosKoreliste := YPosKoreliste * 3;
114			XPosSorteringsfelt1 := XPosSorteringsfelt1 * 3;
115			YPosSorteringsfelt1 := YPosSorteringsfelt1 * 3;
116			XPosSorteringsfelt2 := XPosSorteringsfelt2 * 3;
117			YPosSorteringsfelt2 := YPosSorteringsfelt2 * 3;
118			XPosSmskode := XPosSmskode * 3;
119			YPosSmskode := YPosSmskode * 3;
120			end;
121			end;
122			end; //With ... do
123
124			end;
125
126			end.