Hi leute
Ich hab ein Problem. Wenn ich mein Programm starte bekomme ich die Meldung "Listenindex Überschreitet sein Maximum (3)". Ich poste mal einfach den Teil meines Quellcodes den ich geschrieben hab bevor der Fehler aufgetreten ist.
Delphi-Quellcode:
Case FormOptionen.RGSymbol.ItemIndex of
0: begin
BtOeffnen.Glyph.loadfromfile('Bilder\Öffnen.bmp');
BtOeffnen.Caption:='Öffnen';
BtSpeichern.Glyph.loadfromfile('Bilder\Speichern.bmp');
BtSpeichern.Caption:='Speichern';
BtDrucken.Glyph.loadfromfile('Bilder\Drucken.bmp');
BtDrucken.Caption:='Drucken';
FormOptionen.RGSymbolPosition.enabled:=true;
case FormOptionen.RGSymbolPosition.ItemIndex of
0: begin
BtOeffnen.layout:=blGlyphTop;
BtSpeichern.layout:=blGlyphTop;
BtDrucken.layout:=blGlyphtop;
end;//von 0
1: begin
BTOeffnen.layout:=blGlyphBottom;
BtSpeichern.layout:=blGlyphBottom;
BtDrucken.layout:=blGlyphBottom;
end;//von 1
2: begin
BTOeffnen.layout:=blGlyphRight;
BtSpeichern.layout:=blGlyphRight;
BtDrucken.layout:=blGlyphRight;
end;//von 2
3: begin
BtOeffnen.layout:=blGlyphLeft;
BtSpeichern.layout:=blGlyphLeft;
BtDrucken.layout:=blGlyphLeft;
end;//von 3
end;//von case (Symbol-Position)
end; //von 0
1:Begin
Btoeffnen.Glyph:=nil;
BtOeffnen.Caption:='Öffnen';
BtSpeichern.Glyph:=nil;
BtSpeichern.Caption:='Speichern';
BtDrucken.Glyph:=nil;
BtDrucken.Caption:='Drucken';
FormOptionen.RGSymbolPosition.Enabled:=false;
end; //von 1
2:begin
BtOeffnen.Glyph.LoadFromFile('Bilder\Öffnen.bmp');
BtOeffnen.Caption:='';
BtSpeichern.Glyph.loadfromfile('Bilder\Speichern.bmp');
BtSpeichern.Caption:='';
BtDrucken.glyph.loadfromfile('Bilder\Drucken.bmp');
BtDrucken.Caption:='';
end; //von 2
end; //von case
Dnake schonmal im Vorraus
