- procedure TFormStart.TimerInitTimer(Sender: TObject);
- begin
- TimerInit.Free;
- //Texturen laden
- TexturenErstellen('../Texturen/SandUL.bmp');
- TexturenErstellen('../Texturen/SandUM.bmp');
- TexturenErstellen('../Texturen/SandUR.bmp');
- TexturenErstellen('../Texturen/SandML.bmp');
- TexturenErstellen('../Texturen/SandMR.bmp');
- TexturenErstellen('../Texturen/SandOL.bmp');
- TexturenErstellen('../Texturen/SandOM.bmp');
- TexturenErstellen('../Texturen/SandOR.bmp');
- TexturenErstellen('../Texturen/Wolken.tga');
- TexturenErstellen('../Texturen/Sand.bmp' );
- // ...
- with FormKontrollStation do begin
- Left := Screen.Width - Width;
- Top := 0;
- Show;
- end;
- with FormTexturManager do begin
- Left := Screen.Width - Width;
- Top := FormKontrollStation.Height;
- LabelTexturName.Caption := TexturName.Strings[TexturNR[0,0,0]];
- Show;
- end;
- KartenSpeicher.Create;
- MenueEinzelnOeffnenClick(Self); //Ruft die Karten-öffnen-Prozedur auf
- If KartenSpeicher.Strings[0] <> ''
- Then MenueNeuClick(Self);
- FormTexturManager.EditSchicht.MaxValue := KartenSchichten;
- end;