Frem og Tilbage!

jeg ved ikke om jeg har fået rigtigt fat i hvad du mener, men her er et forslag

type
  TForm1 = class(TForm)
    btnTilbage: TButton;
    btnFrem: TButton;
    Image1: TImage;
    Label1: TLabel;
    StaticText1: TStaticText;
    ListBox1: TListBox;
    procedure ListBox1Click(Sender: TObject);
    procedure btnFremClick(Sender: TObject);
    procedure btnTilbageClick(Sender: TObject);
  private
    procedure Browse;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Browse;
var
  Text: TextFile;
  FileName1,
  FileName2,
  S: string;
begin
  case Label1.Tag of
    1: begin
      FileName1 := \'tekst1.txt\';
      FileName2 := \'pic1.jpg\';
      btnTilbage.Enabled := False;
    end;
    2: begin
      FileName1 := \'tekst2.txt\';
      FileName2 := \'pic2.jpg\';
    end;
    3: begin
      FileName1 := \'tekst3.txt\';
      FileName2 := \'pic3.jpg\';
    end;
    4: begin
      FileName1 := \'tekst4.txt\';
      FileName2 := \'pic4.jpg\';
    end;
    5: begin
      FileName1 := \'tekst5.txt\';
      FileName2 := \'pic5.jpg\';
      btnFrem.Enabled := False;
    end;
  end;

  try
    AssignFile(Text, FileName1);
    Reset(Text);
    Readln(Text, S);
  finally
    CloseFile(Text);
  end;

  Label1.Caption := S;
  Image1.Picture.LoadFromFile(FileName2);
  StaticText1.Caption := Format(\'Trin %d af %d\', [Label1.Tag, 5]);
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  Label1.Tag := 1;
  Browse;
end;

procedure TForm1.btnFremClick(Sender: TObject);
begin
  Label1.Tag := Label1.Tag + 1;
  Browse;
  btnTilbage.Enabled := True;
end;

procedure TForm1.btnTilbageClick(Sender: TObject);
begin
  Label1.Tag := Label1.Tag - 1;
  Browse;
  btnFrem.Enabled := True;
end;

end.

Nej det har du ikke helt !

Der er jo mere end en ting i listboxen og de har ikke 5 pic/tekst. Det er nemlig forskelligt. Jeg loader fra en ini hvor mange pic/tekst der er og hver ini fil ligger i en undermappe med alle pic og tekst til hver af dem som ligger i listboxen.

Derfor kan det ikke laves på den må som du har lavet!

i ini filen står
antal \"6 eller 12 det er forskelligt\"
navn \"Navnet som skal være i listboxen\"

Jeg har så når programmet \"Creater\", lavet det sådan at den loader alle mapper ind og finder ini filen og skriver det i listboxen.

Når man så trykker på f.eks. \"lolle\", er der 3 pic/tekst og så skal den kunne bladre mellem dem, med Frem og Tilbage. Hvis det så er \"Hej\" skal den bladre mellem 6 pic/tekst.

Hvis du altså forstår !

Hvis du kan finde ud af det så er jeg glad og hvis du kan behøves der ikke lave så den loader alle mapper osv. for det har jeg lavet. Du kan f.eks. bare skrive \"lolle\" og \"hej\" i listboxen fra starten.


Der kan sendes eks. til min mail: lolle23@ofir.dk

Hmmm.. Jeg ved ikke om jeg har forstået dette helt korrekt. Som du selv siger, så er det svært at beskrive, til gengæld er svaret lige så svært at beskrive, så vi må håbe at vi ikke går helt forbi hinanden... :-)

Sådan som jeg har forstået det, så har du en liste af emner. Til hvert emne hører der en række tekster og en række billeder. Når du vælger et emne i listboksen, skal du kunne bladre frem og tilbage mellem de billeder/tekster der hører til netop dette emne. Korrekt?

I så fald ville jeg gøre noget lign. dette:

Du starter med at lave en TStringList, lad og kalde den EmneData.

Når du indlæser alle dine .ini-filer, skal du gøre to ting. Du skal smide teksten i listboksen, og smide stien til filerne i EmneData. Når der klikkes på et emne i listen, henter du stien til det emne med sti=EmneData.items[listbox1.itemindex];. Du har så stien til dine data.

Du læser nu .ini-filen igen. Her er det antallet af filer vi koncentrerer os om.
Vi antager her at alle billeder starter med pic og alle tekster starter med text (altså pic1.jpg, pic2.jpg, text1.txt, text2.txt o.s.v.).

I din form1\'s private sektion laver du en counter variabel og en NumData variable, begge integers. Når du har læst ini-filen, sætter du NumData til antallet af data-filer (læst fra ini-filen) og counter-variablen til 1. Derefter indlæser du \'pic\'+inttostr(counter)+\'.jpg\' ind og tilsvarende med teksten. Når du klikker på next/prev tæller du counter 1 op/ned, og indlæser igen. I next/prev knapperne sørger du for at man ikke kan tælle længere ned end 1 og ikke højere op end antallet af billeder (NumData).

Er det her det du mener, og giver mit vrøvl overhovedet mening?

/Data42

Data42 > Det var lige sådan jeg mente =)

Jammen det var da heldigt. Held og lykke med projektet.

/Data