Listenindex Überschreitet das Maximum (3)

[Demon666]

ok aber es muss in der onshow procedure von Form1 liegen oder? dann poste ich die mal komplett:

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
var save:tstringlist;
begin
  save:=tstringlist.create;
  save.LoadFromFile('save.txt');

  if save[0]='f' then
    formoptionen.CBLeiste.Checked:=false
    else
    formoptionen.CBLeiste.Checked:=true;

  formoptionen.EdBtHoehe.value:=strtoint(save[1]);
  formoptionen.EdBtBreite.value:=strtoint(save[2]);
  formoptionen.RGSymbol.ItemIndex:=strtoint(save[3]);
  formoptionen.RGSymbolPosition.ItemIndex:=strtoint(save[4]);
  Darstellunganpassen
end;

und Die procedure Darstellunganpassen ist:

Delphi-Quellcode:

procedure TForm1.DarstellungAnpassen;
var Breite, hoehe:integer;
begin
  if Formoptionen.edbtbreite.text<>'' then
    begin
      Breite:=FormOptionen.EdBtBreite.Value;
      BtOeffnen.Width:=Breite;
      BtSpeichern.Width:=Breite;
      BtDrucken.Width:=Breite;
      BtRechtschreibung.Width:=Breite;
      BtSpeichern.Left:=BtOeffnen.Left+Breite+7;
      BtDrucken.Left:=BtSpeichern.Left+breite+7;
      BtRechtschreibung.Left:=BtDrucken.Left+Breite+7;
    end;
  //Button breite wurde angepasst

  if FormOptionen.edbthoehe.text<>'' then
  begin
    hoehe:=FormOptionen.EdBtHoehe.Value;
    BtOeffnen.Height:=Hoehe;  //die 3 ersten zeilenändern die höhe der buttons
    BtSpeichern.Height:=Hoehe;
    BtDrucken.Height:=Hoehe;
    Btrechtschreibung.Height:=hoehe;
    Panel1.Height:=hoehe+16;
  end;


    If Formoptionen.CBleiste.Checked=false then
      panel1.Height:=0;

    If Formoptionen.Edbtbreite.text='' then
      panel1.Height:=0;

    If Formoptionen.EdBthoehe.text='' then
      Panel1.Height:=0;

    Case FormOptionen.RGSymbol.ItemIndex of
      0: begin //Symbol & Text
        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   //Symbol OBEN
             BtOeffnen.layout:=blGlyphTop;
             BtSpeichern.layout:=blGlyphTop;
             BtDrucken.layout:=blGlyphtop;
             end;//von 0
          1: begin  //Symbol UNTEN
             BTOeffnen.layout:=blGlyphBottom;
             BtSpeichern.layout:=blGlyphBottom;
             BtDrucken.layout:=blGlyphBottom;
             end;//von 1
          2: begin     // Symbol RECHTS
             BTOeffnen.layout:=blGlyphRight;
             BtSpeichern.layout:=blGlyphRight;
             BtDrucken.layout:=blGlyphRight;
             end;//von 2
          3: begin     //Symbol LINKS
             BtOeffnen.layout:=blGlyphLeft;
             BtSpeichern.layout:=blGlyphLeft;
             BtDrucken.layout:=blGlyphLeft;
             end;//von 3
          end;//von case (Symbol-Position)
          end; //von 0
        1:Begin      // nur Text
          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  //nur symbol
          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


    Memo.Height:=ClientHeight-Panel1.Height;
    Panel1.Width:=Clientwidth;
    Memo.Width:=Clientwidth;
end;//von procedure