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;

    BaseURL : string;

    procedure ReadFromInifile( iniFile: TIniFile);

  end;

implementation


procedure TConfiguration.ReadFromInifile( iniFile: TIniFile);
begin

  // ToDO : Omskriv alle URL referncer til at basere sig på BaseURL
  BaseURL := 'http://omdeling.info/webservices';

  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	torben	3077	BaseURL : string;
40
41	torben	2705	procedure ReadFromInifile( iniFile: TIniFile);
42
43			end;
44
45			implementation
46
47
48			procedure TConfiguration.ReadFromInifile( iniFile: TIniFile);
49			begin
50	torben	3077
51			// ToDO : Omskriv alle URL referncer til at basere sig på BaseURL
52			BaseURL := 'http://omdeling.info/webservices';
53
54	torben	2705	with iniFile do
55			begin
56
57			LabelType := ReadInteger('Settings','LabelType',1);
58
59			if LabelType = 0 then
60			begin
61			XPosRute := ReadInteger('RuteBred','XPos',1);
62			YPosRute := ReadInteger('RuteBred','YPos',1);
63			FontSizeRute := ReadInteger('RuteBred','FontSize',72);
64			FontSizeRuteLille := ReadInteger('RuteBred','FontSizeLille',20);
65			XPosKommentar := ReadInteger('KommentarBred','XPos',1);
66			YPosKommentar := ReadInteger('KommentarBred','YPos',250);
67			FontSizeKommentar := ReadInteger('KommentarBred','FontSize',16);
68			XPosBoghandler := ReadInteger('BoghandlerBred','XPos',1);
69			YPosBoghandler := ReadInteger('BoghandlerBred','YPos',400);
70			FontSizeBoghandler := ReadInteger('BoghandlerBred','FontSize',16);
71			XPosKoreliste := ReadInteger('KorelisteSmal','XPos',1);
72			YPosKoreliste := ReadInteger('KorelisteSmal','YPos',100);
73			FontSizeKoreliste := ReadInteger('KorelisteSmal','FontSize',72);
74			FontSizeKorelisteLille := ReadInteger('KorelisteSmal','FontSizeLille',20);
75			XPosSorteringsfelt1 := ReadInteger('Sorteringsfelt1Smal','XPos',700);
76			YPosSorteringsfelt1 := ReadInteger('Sorteringsfelt1Smal','YPos',100);
77			FontSizeSorteringsfelt1 := ReadInteger('Sorteringsfelt1Smal','FontSize',16);
78			XPosSorteringsfelt2 := ReadInteger('Sorteringsfelt2Smal','XPos',700);
79			YPosSorteringsfelt2 := ReadInteger('Sorteringsfelt2Smal','YPos',150);
80			FontSizeSorteringsfelt2 := ReadInteger('Sorteringsfelt2Smal','FontSize',16);
81			XPosSmskode := ReadInteger('SmskodeSmal','XPos',1);
82			YPosSmskode := ReadInteger('SmskodeSmal','YPos',300);
83			FontSizeSmskode := ReadInteger('SmskodeSmal','FontSize',32);
84			end
85			else
86			begin
87			XPosRute := ReadInteger('RuteSmal','XPos',1);
88			YPosRute := ReadInteger('RuteSmal','YPos',1);
89			FontSizeRute := ReadInteger('RuteSmal','FontSize',72);
90			FontSizeRuteLille := ReadInteger('RuteSmal','FontSizeLille',20);
91			XPosKommentar := ReadInteger('KommentarSmal','XPos',1);
92			YPosKommentar := ReadInteger('KommentarSmal','YPos',250);
93			FontSizeKommentar := ReadInteger('KommentarSmal','FontSize',16);
94			XPosBoghandler := ReadInteger('BoghandlerSmal','XPos',1);
95			YPosBoghandler := ReadInteger('BoghandlerSmal','YPos',400);
96			FontSizeBoghandler := ReadInteger('BoghandlerSmal','FontSize',16);
97			XPosKoreliste := ReadInteger('KorelisteSmal','XPos',1);
98			YPosKoreliste := ReadInteger('KorelisteSmal','YPos',100);
99			FontSizeKoreliste := ReadInteger('KorelisteSmal','FontSize',72);
100			FontSizeKorelisteLille := ReadInteger('KorelisteSmal','FontSizeLille',20);
101			XPosSorteringsfelt1 := ReadInteger('Sorteringsfelt1Smal','XPos',700);
102			YPosSorteringsfelt1 := ReadInteger('Sorteringsfelt1Smal','YPos',100);
103			FontSizeSorteringsfelt1 := ReadInteger('Sorteringsfelt1Smal','FontSize',16);
104			XPosSorteringsfelt2 := ReadInteger('Sorteringsfelt2Smal','XPos',700);
105			YPosSorteringsfelt2 := ReadInteger('Sorteringsfelt2Smal','YPos',150);
106			FontSizeSorteringsfelt2 := ReadInteger('Sorteringsfelt2Smal','FontSize',16);
107			XPosSmskode := ReadInteger('SmskodeSmal','XPos',1);
108			YPosSmskode := ReadInteger('SmskodeSmal','YPos',300);
109			FontSizeSmskode := ReadInteger('SmskodeSmal','FontSize',32);
110			if LabelType = 2 then // test på alm. printer kræver at XY-positionerne ganges med 3
111			begin
112			XPosRute := XPosRute * 3;
113			YPosRute := YPosRute * 3;
114			XPosKommentar := XPosKommentar * 3;
115			YPosKommentar := YPosKommentar * 3;
116			XPosBoghandler := XPosBoghandler * 3;
117			YPosBoghandler := YPosBoghandler * 3;
118			XPosKoreliste := XPosKoreliste * 3;
119			YPosKoreliste := YPosKoreliste * 3;
120			XPosSorteringsfelt1 := XPosSorteringsfelt1 * 3;
121			YPosSorteringsfelt1 := YPosSorteringsfelt1 * 3;
122			XPosSorteringsfelt2 := XPosSorteringsfelt2 * 3;
123			YPosSorteringsfelt2 := YPosSorteringsfelt2 * 3;
124			XPosSmskode := XPosSmskode * 3;
125			YPosSmskode := YPosSmskode * 3;
126			end;
127			end;
128			end; //With ... do
129
130			end;
131
132			end.