| 1 |
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 |
BaseURL : string;
|
| 40 |
|
| 41 |
procedure ReadFromInifile( iniFile: TIniFile);
|
| 42 |
|
| 43 |
end;
|
| 44 |
|
| 45 |
implementation
|
| 46 |
|
| 47 |
|
| 48 |
procedure TConfiguration.ReadFromInifile( iniFile: TIniFile);
|
| 49 |
begin
|
| 50 |
|
| 51 |
// ToDO : Omskriv alle URL referncer til at basere sig på BaseURL
|
| 52 |
BaseURL := 'http://omdeling.info/webservices';
|
| 53 |
|
| 54 |
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.
|
Parent Directory
| 
Revision Log