Mediaplayer

[Gregg]

Tut mir leid aber ich blick das überhaupt nicht mit der Bass.dll etc.
Da ziemlich viel Leute über mein design gemeckert ham, hab ich mich entschlossen euch eure
eigenen skins machen zu lassen.
Forschtn bisschen im hauptmenu rum und ihr werdet sehn..

P.s.: Bei mir kommt seit dieser Verbesserung 'n Access Violation Error bei folgender Prozedur:

Delphi-Quellcode:

procedure Einstellungen_laden(lautstaerke:TTrackbar;playlistnamen,Skin1,Skin2:TMenuItem;
Form1:Tform;label1,label3,label4,label5,label6,label7,label8:Tlabel;title,artist,comment,year,
album:TEdit;Genre:TCombobox;memo1:TMemo;listbox1:TListbox;Gauge1:TGauge;StaticText1,StaticText2:TStaticText);
var Was:Einstellungen;
    f:file of byte;
    skin:string;
begin
{hier iss der Error} if fileexists('c:\Mediaplayer_System\mediaplayer.ini') then
begin
  AssignFile(f, 'C:\Mediaplayer_System\mediaplayer.ini');
  Reset(f);
  BlockRead(f,Was,FileSize(f));
  CloseFile(f);
  Form1.color:=Was.Color;
  label1.font:=Was.Font_ue;
  label3.font:=Was.Font_ue;
  label4.font:=Was.Font_ue;
  label5.font:=Was.Font_ue;
  label6.font:=Was.Font_ue;
  label7.font:=Was.Font_ue;
  label8.font:=Was.Font_ue;
  label1.font.color:=Was.color_ue;
  label3.font.color:=Was.color_ue;
  label4.font.color:=Was.color_ue;
  label5.font.color:=Was.color_ue;
  label6.font.color:=Was.color_ue;
  label7.font.color:=Was.color_ue;
  label8.font.color:=Was.color_ue;
  StaticText1.font:=Was.Font_ue;
  StaticText2.font:=Was.Font_ue;
  StaticText1.font.color:=Was.color_ue;
  StaticText2.font.color:=Was.color_ue;
  title.color:=Was.color;
  artist.color:=Was.color;
  comment.color:=Was.color;
  year.color:=Was.color;
  album.color:=Was.color;
  Genre.color:=Was.color;
  title.color:=Was.color;
  artist.color:=Was.color;
  comment.color:=Was.color;
  year.font:=Was.Font_ue;
  album.font:=Was.Font_ue;
  Genre.font:=Was.Font_ue;
  title.font.size:=8;
  artist.font.size:=8;
  comment.font.size:=8;
  year.font.size:=8;
  album.font.size:=8;
  Genre.font.size:=8;
  memo1.font.size:=8;
  listbox1.font:=Was.Font_ue;
  listbox1.color:=Was.color;
  memo1.color:=Was.color;
  title.font.color:=Was.Color_sch;
  artist.font.color:=Was.Color_sch;
  comment.font.color:=Was.Color_sch;
  year.font.color:=Was.Color_sch;
  album.font.color:=Was.Color_sch;
  Genre.font.color:=Was.Color_sch;
  memo1.font.color:=Was.Color_sch;
  listbox1.font.color:=Was.Color_sch;
  Gauge1.Color:=Was.color;
  Gauge1.Forecolor:=Was.color;
end;

Sorry ihr müsstet natürlich au noch wissn was Einstellungen is, also:

Delphi-Quellcode:

type
    Einstellungen = record
     Lautstaerke : integer;
     Skin : string[1];         {Buttons}
     playlistnamen : boolean;  {Vollst. Namen anzeigen?}
     Color : Tcolor;           {Hintergrund}
     Color_ue : Tcolor;        {Ueberschriftenfarbe}
     Color_sch : Tcolor;       {Schriftfarbe}
     Font_ue : TFont;          {Schriftart(Ueberschriften)}
     Font : TFont;             {Schriftart(Normalschriften)}
    end;