[ freespace @ 30.01.2005. 09:33 ] @
Pravim nekakav mp3 player ali evo sto me muci:
1. mp3 player-u pravim neki svoj skin ali me muci kako da sakrijem listbox-u scrollbar
2. zašto mi ne radi ovaj kod:
CODE:
////////////////////////////////////////////////////////////////////////////////////////
procedure TForm1.FormCreate(Sender: TObject);
var
strm : TFileStream;
begin
if FileExists('MojaLista.DAT') then begin
strm := TFileStream.Create('MojaLista.DAT', fmOpenRead);
strm.ReadComponent(ListBox1);
strm.Free;
end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
strm : TFileStream;
begin
strm := TFileStream.Create('MojaLista.DAT', fmCreate);
strm.WriteComponent(ListBox1);
strm.Free;
end;
//////////////////////////////////////////////////////////////////////////////////////////

Kod radi kad ga kompajliram, ali kad dodavam iteme iz edita ili neceg drugog u listbox sačuva ih i ocita pri pokretanju programa, ali kad dodavam mp3-eve ili neke druge pjesme iz opendialog-a on ih sacuva ali ih ne mogu ocitati to jest kad ih ocitam listbox je prazan.
[ IgLo @ 30.01.2005. 15:30 ] @
Citat:
1. mp3 player-u pravim neki svoj skin ali me muci kako da sakrijem listbox-u scrollbar


Ovo je prilicno jednostavno:

Code:
ShowScrollBar (ListBox1.Handle, SB_BOTH, FALSE);


Prvi parametar ti je nadam se jasan, drugim definises koji ScrollBar zelis da ukljucis/iskljucis i moze biti SB_BOTH za oba, SB_HORZ za horizontalni ili SB_VERT za vertikalni, a treci parametar odredjuje da li ukljucujes ili iskljucujes ScrollBar (True ili False). Za detalje pogledaj funkciju ShowScrollBar u "Win32 SDK Reference" ako si ga instalirao uz Delphi.

Citat:
2. zašto mi ne radi ovaj kod:

Sto se tice ovog koda, kod mene izgleda radi ok, ali da li mozda negde u programu za vreme koriscenja menjas folder? Mozda ti snimi u pogresan folder listu. Probaj da umesto
strm := TFileStream.Create('MojaLista.DAT', fmOpenRead);
stavis
strm := TFileStream.Create(ExtractFilePath (Application.ExeName) + 'MojaLista.DAT', fmOpenRead);

Naravno, isto uradi i pri snimanju.

Nadam se da sam pomogao
[ freespace @ 30.01.2005. 19:16 ] @
Hvala na pomoci.