AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Listenindex Überschreitet das Maximum (3)

Ein Thema von Demon666 · begonnen am 26. Jun 2010 · letzter Beitrag vom 27. Jun 2010
 
Demon666

Registriert seit: 16. Jun 2010
21 Beiträge
 
Delphi 7 Personal
 
#5

AW: Listenindex Überschreitet das Maximum (3)

  Alt 26. Jun 2010, 20:37
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]='fthen
    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
Simon
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 03:40 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz