Valgfrie Skins

[Myklebust89]

Jeg har en ganske simpel form. To TMedia komponenter, en knapp og et tedit komponent.... Image1 skal forbli det bilde som jeg har satt det til, men nå man trykke på button1, skal man få åpne en open dialog(som jeg har lagt til selvfølgelig) der man kan åpne en .jpg fil. Den skal erstatte den blanke standarden som har vært i image2. Koden jeg har på knappen er :

image2.picture := opendialog1.filename;

edit1.text:=opendialog1.filename;

man skal ganske enkelt kunne velge en fil... Også kommer filnavnet(directory) opp i edit feltet... Dette gikk ikke særlig bra!

[Error] skinnertest.pas(45): Incompatible types: 'TPicture' and 'TFileName'

Hva er galt?

[scourged-]

image2.picture.loadfromfile(opendialog1.filename);

[Myklebust89]

Denne gangen funket alt fint, helt til jeg trykket på knappen, da kom det opp en "slem" feilmelding, og alt var bare bæsj.... Hva kan være galt?

[Dahl]

Denne gangen funket alt fint, helt til jeg trykket på knappen, da kom det opp en "slem" feilmelding, og alt var bare bæsj.... Hva kan være galt?

Off topic:

Å, har du sluttet å skrive shit?

Så nå skriver du bæsj?

[Myklebust89]

kommer litt ann på, bæsj er i min oppfatning en negativ ting, så istedenfor å halge med diverse skjellesord, bruker jeg "bæsj"...

men har du peiling på hva som kan være galt?

[Dahl]

kommer litt ann på, bæsj er i min oppfatning en negativ ting, så istedenfor å halge med diverse skjellesord, bruker jeg "bæsj"...

men har du peiling på hva som kan være galt?

Nei, sorry.

Er ikke akkurat god i Delphi.... :smile:

[Myklebust89]

Ok...

[scourged-]

Hva med og skrive hva Feilmeldingen var?

[Myklebust89]

Det er en stor, slem box med masse slem tekst inni....

Tittel :

"Debugger Exception Notification"

Tekst :

"Project skinnertest2.exe raised exception class EIvalidGraphic with message 'Unknown picture file extension (.) Process Stopped. Use Step or Run to continue.'"

[kilogram]

Du har prøvd å laste ei bildefil med feil filendelse. Om det er ei BMP-fil, gje den filendinga .bmp. Om det er ei JPEG-fil, gje den filendinga .JPG, osv..

[Myklebust89]

Her er koden nå :

image2.picture.loadfromfile(opendialog1.filename);

... Det er koden på knappen....

Hva skal den endres til?

[kilogram]

Koden er grei, men du må huske på å laste ei JPEG, BMP, ICO eller ei anna bildefil som Delphi/Windows støttar. Du kan ikkje laste ei GIF-fil til vanleg i Delphi (pga. lisensproblem), heller ikkje PNG, TIFF eller PSD-filer. Prøv på nytt, og velg ei _JPEG-fil_.

 

Du kunne skrive om koden slik at den sjekkar at fila du forsøker å laste har ein skikkelig filendelse; bruk ExtractFileExt (slå det opp i hjelp) til dette.

[Myklebust89]

Men jeg kommer aldri til valget av fil....

Med en gang jeg trykker, kommer den feilmeldingen.

Jeg har laga til et filter på open dialogen, det går bare med .jpg filer....

[kilogram]

Såvidt eg kan sjå køyrer du aldri OpenDialog? Du er jo nødt til å ta fram dialogen før du kan vete kva fil som brukeren _har lyst_ til å velge.

 

if OpenDialog1.Execute then

begin

 Image2.LoadFromFile(OpenDialog1.Filename); 

 Edit1.Text := OpenDialog1.Filename;

end;

[Myklebust89]

Hon... Det glemte jeg...

Takk!

[scourged-]

åssen du klarer og glemme noe slikt er jo et mirakel

[Myklebust89]

Jeg er helt enig, men her er et nytt tilsynelatende simpelt problem, som jeg ikke får til!

[Error] skinnertest.pas(47): Undeclared identifier: 'LoadFromFile'

[Error] skinnertest.pas(24): Unsatisfied forward or external declaration: 'TForm1.LoadFromFile'

 

Det ser helt simpelt ut... Men jeg slo opp i help, på TPicture.LoadFromFile , Men fikk ingen hjelp der! Hva kan jeg gjøre?

Der står det at jeg skal sette dette inn i filen : procedure LoadFromFile(const FileName: string); , HVOR?

[Format71]

Jeg er helt enig, men her er et nytt tilsynelatende simpelt problem, som jeg ikke får til!

[Error] skinnertest.pas(47): Undeclared identifier: 'LoadFromFile'

[Error] skinnertest.pas(24): Unsatisfied forward or external declaration: 'TForm1.LoadFromFile'

 

Det ser helt simpelt ut... Men jeg slo opp i help, på TPicture.LoadFromFile , Men fikk ingen hjelp der! Hva kan jeg gjøre?

Der står det at jeg skal sette dette inn i filen : procedure LoadFromFile(const FileName: string); , HVOR?

 

Tror du har rotet til koden din litt. Desom du i deklerasjonen av TForm1 har en metode som heter LoadFromFile( ) tar du å sletter denne deklarasjonen. (Ta f.eks. en titt på linje 34...)

 

På linje 47 kaller du LoadFromFile( ), men antakelig på feil objekt. Post hele rutina linje 47 tilhører så kan jeg se.

 

-Vegar

[Myklebust89]

Jeg sletta

    procedure LoadFromFile(const FileName: string);

fra linje 24.... Var det rett?

procedure TForm1.Button1Click(Sender: TObject);

begin

if OpenDialog1.Execute then

begin

 Image2.LoadFromFile(OpenDialog1.Filename);

end;

Er det der det er noe galt?

[Format71]

Jeg sletta

    procedure LoadFromFile(const FileName: string);

fra linje 24.... Var det rett?

procedure TForm1.Button1Click(Sender: TObject);

begin

if OpenDialog1.Execute then

begin

 Image2.LoadFromFile(OpenDialog1.Filename);

end;

Er det der det er noe galt?

 

Prøv Image2.Picture.LoadFromFile(...)

 

-Vegar