Listbox(FileListbox1) style must be virtual in order to set count

Det den laver er forresten at den thumpbailer de billeder som der er i mappen. Over i 15 små vinduer

Var det ikke en ide at oprette de billeder i et array, eller måske et dynamisk array?

var
  Billeder: array [1..9] og TImage;

Så slipper du også for alle dine case-sætninger... Så kan du bare referere til dit billede i array'et!

Hehe :o)

Har jeg ikke tid til :o(.. Har skrevet en masse kode med det, så gider ikke lave det om :o)

Men ang. løsningen :o)

Kan heller ikke se hvad du skal med alle de end's, men det kan selvfølgelig være tidligere kode du bare ikke har slettet... ?

Jeg ser lige hvad jeg kan bikse op...

Behøver man ikke end?

Hele Source kode :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, FileCtrl, Menus, ExtCtrls;

type
  TForm1 = class(TForm)
    FileListBox1: TFileListBox;
    DirectoryListBox1: TDirectoryListBox;
    DriveComboBox1: TDriveComboBox;
    GroupBilleder: TGroupBox;
    Image15: TImage;
    Image13: TImage;
    Image14: TImage;
    Image12: TImage;
    Image10: TImage;
    Image11: TImage;
    Image9: TImage;
    Image7: TImage;
    Image8: TImage;
    Image6: TImage;
    Image4: TImage;
    Image5: TImage;
    Image3: TImage;
    Image1: TImage;
    Image2: TImage;
    GroupBox2: TGroupBox;
    ImageFull: TImage;
    Label1: TLabel;
    MainMenu1: TMainMenu;
    Quit1: TMenuItem;
    File1: TMenuItem;
    Edit1: TMenuItem;
    About1: TMenuItem;
    procedure menuExitClick(Sender: TObject);
    procedure DirectoryListBox1Change(Sender: TObject);
    procedure FileListBox1Click(Sender: TObject);
    procedure About1Click(Sender: TObject);
    procedure Quit1Click(Sender : TObject);
    procedure Image1Click(Sender: TObject);
    procedure Image2Click(Sender: TObject);
    procedure Image3Click(Sender: TObject);
    procedure Image4Click(Sender: TObject);
    procedure Image5Click(Sender: TObject);
    procedure Image6Click(Sender: TObject);
    procedure Image7Click(Sender: TObject);
    procedure Image8Click(Sender: TObject);
    procedure Image9Click(Sender: TObject);
    procedure Image10Click(Sender: TObject);
    procedure Image11Click(Sender: TObject);
    procedure Image12Click(Sender: TObject);
    procedure Image13Click(Sender: TObject);
    procedure Image14Click(Sender: TObject);
    procedure Image15Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  svar: Boolean;
  Picture: String;
  Picture2: String;
  Picture3: String;
  Picture4: String;
  Picture5: String;
  Picture6: String;
  Picture7: String;
  Picture8: String;
  Picture9: String;
  Picture10: String;
  Picture11: String;
  Picture12: String;
  Picture13: String;
  Picture14: String;
  Picture15: String;
  count: Integer;
implementation

{$R *.DFM}

procedure TForm1.menuExitClick(Sender: TObject);
begin
close;
end;

procedure TForm1.DirectoryListBox1Change(Sender: TObject);
var
  I, Sum: integer;
begin
if FileListBox1.Items.Count = 0 then
Begin
  Image1.Visible := False;
  Image2.Visible := False;
  Image3.Visible := False;
  Image4.Visible := False;
  Image5.Visible := False;
  Image6.Visible := False;
  Image7.Visible := False;
  Image8.Visible := False;
  Image9.Visible := False;
  Image10.Visible := False;
  Image11.Visible := False;
  Image12.Visible := False;
  Image13.Visible := False;
  Image14.Visible := False;
  Image15.Visible := False;
  ImageFull.Visible := False;
End
else
Begin
  If Filelistbox1.Items.Count = 0 Then
  Begin
    Groupbilleder.Caption := 'Billeder. (Ingen)';
  End
  Else
  Begin
    Groupbilleder.Caption := 'Billeder. Viser ialt ' + Inttostr(Filelistbox1.Items.Count) + ' Stk(s)';
With Filelistbox1 do
  Begin

    ImageFull.Visible := True;

    count := -1;
    repeat
    count := +1;
    Case count OF
    1 : begin
            Image1.Visible := True;
            Image1.Picture.LoadFromFile(Items[ItemIndex]);
            Picture :=(Filelistbox1.Items[ItemIndex]);
        end;
    2 : begin
            Image2.Visible := True;
            Image2.Picture.LoadFromFile(Items[ItemIndex+1]);
            Picture2 :=(Filelistbox1.Items[ItemIndex+1]);
        end;
    3 : begin
            Image3.Visible := True;
            Image3.Picture.LoadFromFile(Items[ItemIndex+2]);
            Picture3 :=(Filelistbox1.Items[ItemIndex+2]);
        end;
    4 : begin
            Image4.Visible := True;
            Image4.Picture.LoadFromFile(Items[ItemIndex+3]);
            Picture4 :=(Filelistbox1.Items[ItemIndex+3]);
        end;
    5 : begin
            Image5.Visible := True;
            Image5.Picture.LoadFromFile(Items[ItemIndex+4]);
            Picture5 :=(Filelistbox1.Items[ItemIndex+4]);
        end;
    6 : begin
            Image6.Visible := True;
            Image6.Picture.LoadFromFile(Items[ItemIndex+5]);
            Picture6 :=(Filelistbox1.Items[ItemIndex+5]);
        end;
    7 : begin
            Image7.Visible := True;
            Image7.Picture.LoadFromFile(Items[ItemIndex+6]);
            Picture7 :=(Filelistbox1.Items[ItemIndex+6]);
        end;
    8 : begin
            Image8.Visible := True;
            Image8.Picture.LoadFromFile(Items[ItemIndex+7]);
            Picture8 :=(Filelistbox1.Items[ItemIndex+7]);
        end;
    9 : begin
            Image9.Visible := True;
            Image9.Picture.LoadFromFile(Items[ItemIndex+8]);
            Picture9 :=(Filelistbox1.Items[ItemIndex+8]);
        end;
    10 : begin
            Image10.Visible := True;
            Image10.Picture.LoadFromFile(Items[ItemIndex+9]);
            Picture10 :=(Filelistbox1.Items[ItemIndex+9]);
          end;
    11 : begin
            Image11.Visible := True;
            Image11.Picture.LoadFromFile(Items[ItemIndex+10]);
            Picture11 :=(Filelistbox1.Items[ItemIndex+10]);
          end;
    12 : begin
            Image12.Visible := True;
            Image12.Picture.LoadFromFile(Items[ItemIndex+11]);
            Picture12 :=(Filelistbox1.Items[ItemIndex+11]);
          end;
    13 : begin
            Image13.Visible := True;
            Image13.Picture.LoadFromFile(Items[ItemIndex+12]);
            Picture13 :=(Filelistbox1.Items[ItemIndex+12]);
          end;
    14 : begin
            Image14.Visible := True;
            Image14.Picture.LoadFromFile(Items[ItemIndex+13]);
            Picture14 :=(Filelistbox1.Items[ItemIndex+13]);
          end;
    15 : Begin
            Image15.Visible := True;
            Image15.Picture.LoadFromFile(Items[ItemIndex+14]);
            Picture15 :=(Filelistbox1.Items[ItemIndex+14]);
          end;
    end;

    until count=(Filelistbox1.Items.Count);


    End;


  End;
  //for I := 0 to FilelistBox1.Items.Count - 1 do
  //Image1.Picture.LoadFromFile( := FileListbox1.Items.Strings[I];
  end;
end;

procedure TForm1.FileListBox1Click(Sender: TObject);
begin
With Filelistbox1 do
  Begin
  ImageFull.Picture.LoadFromFile(Items[ItemIndex]);
  end;
end;

procedure TForm1.About1Click(Sender: TObject);
begin
showmessage('This is the super About box My friend');
end;

procedure TForm1.Quit1Click(Sender: TObject);
begin
close;
end;


procedure TForm1.Image1Click(Sender: TObject);
begin
ImageFull.Picture.Loadfromfile(Picture);
end;

procedure TForm1.Image2Click(Sender: TObject);
begin
ImageFull.Picture.Loadfromfile(Picture2);
end;

procedure TForm1.Image3Click(Sender: TObject);
begin
ImageFull.Picture.Loadfromfile(Picture3);
end;

procedure TForm1.Image4Click(Sender: TObject);
begin
ImageFull.Picture.Loadfromfile(Picture4);
end;

procedure TForm1.Image5Click(Sender: TObject);
begin
ImageFull.Picture.Loadfromfile(Picture5);
end;

procedure TForm1.Image6Click(Sender: TObject);
begin
ImageFull.Picture.Loadfromfile(Picture6);
end;

procedure TForm1.Image7Click(Sender: TObject);
begin
ImageFull.Picture.Loadfromfile(Picture7);
end;

procedure TForm1.Image8Click(Sender: TObject);
begin
ImageFull.Picture.Loadfromfile(Picture8);
end;

procedure TForm1.Image9Click(Sender: TObject);
begin
ImageFull.Picture.Loadfromfile(Picture9);
end;

procedure TForm1.Image10Click(Sender: TObject);
begin
ImageFull.Picture.Loadfromfile(Picture10);
end;

procedure TForm1.Image11Click(Sender: TObject);
begin
ImageFull.Picture.Loadfromfile(Picture11);
end;

procedure TForm1.Image12Click(Sender: TObject);
begin
ImageFull.Picture.Loadfromfile(Picture12);
end;

procedure TForm1.Image13Click(Sender: TObject);
begin
ImageFull.Picture.Loadfromfile(Picture13);
end;

procedure TForm1.Image14Click(Sender: TObject);
begin
ImageFull.Picture.Loadfromfile(Picture14);
end;

procedure TForm1.Image15Click(Sender: TObject);
begin
ImageFull.Picture.Loadfromfile(Picture15);
end;

end.

ARGH!!!!!!!

Okay, gi' mig lige lidt tid, så har jeg noget... Du skal altså lære at bruge array's!!!

hehe

http://www.parse-error.dk/projekt.zip

Der er det hele uploadet, smider 400 points efter dig hvis du laver det i array

ok?

Okegle! Skal gøre mit bedste!

Fedt :o) hehe,  Jeg kan programmere det vildeste PHP, HTML og lave grafik, men Delphi har sku ikke lige fanget mig 100% :o(

hehe, og hvis kan få den tli at fatte jpg samtidigt, ser du! Det ville være sejt :o)

hmm nu har jeg ikke selv lige tid til at kigge på det, da jeg selv skal lave eksamens projekt, også i delphi :)

men for at den kan bruge jpg. så tilføj JPEG til uses...

/ZIRON

oki Tak :o)

Så er den sådan set færdig, skal bare lige ha' placeret billederne, men nu kan du vist godt begynde at tage det lidt med ro! :)
Tænkte bare at du måske var lidt stresset lige nu!

//hermandsen

Hehe :o)

Naaw, har både Eksamer og NCParty ( www.ncparty.dk ) kørende, så måske en smugle :o)

Lol

Straks ser man 4 besøgende fra Eksperten på ncparty lol! :l)

hehe lidt spass har vi det da :)

/ZIRON

Så fungerer det 100%!
Jeg lægger det lige ud på hjemmesiden... Så må du sige hvis der skal nogle forbedringer til! :) Gør det lige klar! Back in a sec!

Hmmm... Der er åbenbart lidt problemer med hjemmesiden... Du får lige en FTP i stedet! :)

IP: 212.242.195.119
User: eksperten
Pass: exp

Jeg har zippet det hele til dig! ;)

hmm det er godt at have et eksamens projekt man ikke selv har lavet ik :)

/ZIRON

Hehe... Er enig med Ziron... Mener dog ikke der er noget galt med at hjælpe lidt på vej *host* *host*! :)

lidt????

ej jeg skal nok lade vær... er der noget som gider at skrive min rapport....

/ZIRON

>>Ziron
Hvad er det om? ;)

>>silverwolf2001
Min FTP-server virker altså ret tom ind til videre... Noget du kunne ha' lyst til at gøre noget ved? :)

hmm det er til min eksamens rapport i informations teknologi (et spil). rimelig steneren. men når jeg må heller skrive.. nat nat

/ZIRON

kontakt mig på icq 37366562 hermansen

så mangler der kun at den viser billeder i de der 15 bokse, også at man kan klikke på boxen, og billedet kommer over i den store boks :o)

din oprindelige fejl skyldes at du "sætter" til FileListBox1.Count pga. af din "with FileListBox1"...