mirror of
https://github.com/ulfgebhardt/delphi_ampel.git
synced 2025-12-12 23:35:54 +00:00
57 lines
1.2 KiB
ObjectPascal
57 lines
1.2 KiB
ObjectPascal
unit vars;
|
|
|
|
interface
|
|
|
|
uses sysutils,splashu;
|
|
|
|
const
|
|
|
|
ImgFAGruen='Images\FAGruen.bmp';
|
|
ImgFARot='Images\FARot.bmp';
|
|
|
|
ImgAAGruen='Images\AAGruen.bmp';
|
|
ImgAAGelb='Images\AAGelb.bmp';
|
|
ImgAARot='Images\AARot.bmp';
|
|
|
|
ImgStreet='Images\Street.bmp';
|
|
|
|
AnzahlDerAutosR=10;
|
|
AnzahlDerAutosL=10;
|
|
|
|
AnzahlDerFussgaengerO=5;
|
|
AnzahlDerFussgaengerU=5;
|
|
|
|
AnzahlDerAmpelPlaetzeO=5;
|
|
AmpelPlatzOX=422;
|
|
AmpelPlatzOY=50;
|
|
|
|
ImgFussgaengerO1='Images\der mann der alles kann.bmp';
|
|
ImgFussgaengerO2='Images\der mann der alles kann.bmp';
|
|
ImgFussgaengerO3='Images\der mann der alles kann.bmp';
|
|
ImgFussgaengerO4='Images\der mann der alles kann.bmp';
|
|
|
|
ImgFussgaengerU1='Images\AAGruen.bmp';
|
|
ImgFussgaengerU2='Images\AAGruen.bmp';
|
|
ImgFussgaengerU3='Images\AAGruen.bmp';
|
|
ImgFussgaengerU4='Images\AAGruen.bmp';
|
|
|
|
ImgAutoRotR='Images\AutoRotR.bmp';
|
|
ImgAutoBlauR='Images\AutoBlauR.bmp';
|
|
ImgAutoGelbR='Images\AutoGelbR.bmp';
|
|
ImgAutoGruenR='Images\AutoGruenR.bmp';
|
|
|
|
ImgAutoRotL='Images\AutoRotL.bmp';
|
|
ImgAutoBlauL='Images\AutoBlauL.bmp';
|
|
ImgAutoGelbL='Images\AutoGelbL.bmp';
|
|
ImgAutoGruenL='Images\AutoGruenL.bmp';
|
|
|
|
FahrbahnR1=138;
|
|
FahrbahnR2=258;
|
|
|
|
FahrbahnL1=520;
|
|
FahrbahnL2=400;
|
|
|
|
implementation
|
|
|
|
end.
|