stacküberlauf beseitigen

[Nils_13]

Ok, dann hier ein kleiner Ausschnitt:

Delphi-Quellcode:

procedure TfrmMain.FormCreate(Sender: TObject);
var Mem        : TMemIniFile;
    Ini        : TIniFile;
    i, j       : Integer;
    FileType   : String;
    ArrayIndex : Integer;
    ffile      : String;
begin
  pause    := False;
  opshown  := False;
  Spectrum := TSpectrum.Create(pbSVis.Width, pbSVis.Height);
  Height   := pbSVis.Height div 2;

  DoubleBuffered := True;

  op := True;

  Ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'settings.ini');
  with Ini do
  begin
    frmMain.Top       := ReadInteger('Settings', 'frmMain_Top', 0);
    frmMain.Left      := ReadInteger('Settings', 'frmMain_Left', 0);
    OPM               := ReadBool('Settings', 'OPM', True);
    OPS               := ReadBool('Settings', 'OPS', False);
    eqTb1.Position    := ReadInteger('Settings', 'Eq1', 15);
    eqTb2.Position    := ReadInteger('Settings', 'Eq2', 15);
    eqTb3.Position    := ReadInteger('Settings', 'Eq3', 15);
    eqReverb.Position := ReadInteger('Settings', 'EqReverb', eqReverb.Max);
    llPL              := ReadBool('Settings', 'llPL', False);
    Bumpimage         := ReadString('Settings', 'ImgBumperPic', 'imgbumper.bmp');
    Trans             := ReadInteger('Settings', 'Trans', 255);
    Self.AlphaBlendValue := Trans;
    if Trans = 255 then
      frmMain.AlphaBlend := False
    else
      frmMain.AlphaBlend := True;
    if llPL then
    begin
      if FileExists('pl.dpl') then
        LoadFiles(LoadDPL('pl.dpl', nil));
      if lbList.Count = 0 then
        lbListCount.Caption := 'No files in playlist'
      else
      if lbList.Count = 1 then
        lbListCount.Caption := '1 file in playlist'
      else
      if lbList.Count > 1 then
        lbListCount.Caption := IntToStr(lbList.Count) + ' files in playlist';
      if lbList.Items.Count > 0 then
      begin
        xiScrollV.Max := lbList.Items.Count;
        if lbList.Count > 17 then
        begin
          lbList.Width      := 181;
          xiScrollV.Visible := True
        end else
        begin
          lbList.Width      := 200;
          xiScrollV.Visible := False;
        end;
      end;
    end;
    Free;
  end;

  for i:= 0 to pmTray.Items.Count-1 do
  begin
    pmTray.Items[i].OnDrawItem := pmTrayDrawItem;
    for j := 0 to pmTray.Items[i].Count-1 do
    begin
      pmTray.Items[i].Items[j].OnDrawItem := pmTrayDrawItem;
    end;
  end;

  Mem := TMemIniFile.Create(ExtractFilePath(Application.ExeName) + 'settings.ini');
  try
    iVis := Mem.ReadInteger('Settings', 'vis', 0);
    None1.Checked          := iVis = 0;
    Oscilloscope1.Checked  := iVis = 1;
    SpectrumLines1.Checked := iVis = 2;
    SpectrumSolid1.Checked := iVis = 3;
    ImageBumper.Checked    := iVis = 4;
    X1.Checked             := iVis = 5;

    pa                     := Mem.ReadString('Settings', 'ImgBumperPic', 'imgbumper.JPG');
    xiVolume.Position      := Mem.ReadInteger('Settings', 'volume', 50);
    xiVolumeS.Position     := Mem.ReadInteger('Settings', 'volume', 50);
    rbSeq.Checked          := Mem.ReadBool('Settings', 'sequence', True);
    rbRandom.Checked       := Mem.ReadBool('Settings', 'random', False);
    rbLoop.Checked         := Mem.ReadBool('Settings', 'loop', False);
  finally
    Mem.Free;
  end;

  xiPMainS.Top := xiPMain.Top;

  BASS_Init(1, 44100, 0, Application.Handle, nil);
  BASS_SetConfig(BASS_CONFIG_BUFFER,1000);
  BASS_PluginLoad('basswma.dll', 0);

  fgc            := False;
  v              := False;

  FadeAbort      := False;
  aFade          := True;
  bFade          := False;
  PlayWCrossfade := False;
  Fading         := False;
  FlagScroll     := True;
  fNext          := False;
  lbNOTOK        := False;

  DrawSkin;

  Ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'settings.ini');
  with Ini do
  begin
    M                 := ReadBool('Settings', 'M', True);
    if M then
      xiMain.ColorGrad := clGreen
    else
      xiMain.ColorGrad := clRed;

    EQ                := ReadBool('Settings', 'EQ', True);
    if EQ then
      xiEQ.ColorGrad := clGreen
    else
      xiEQ.ColorGrad := clRed;

    PL                := ReadBool('Settings', 'PL', True);
    if PL then
      xiPL.ColorGrad := clGreen
    else
      xiPL.ColorGrad := clRed;

    cVS;

    Free;
  end;

  xiBg.Height := frmMain.Height;

  if (ParamCount > 0) and (FileExists(ParamStr(1))) then
  begin
    ffile := ParamStr(1);

    FileType  := LowerCase(Trim(ExtractFileExt(ffile)));
    for ArrayIndex := 0 to High(FileExt) do
      if FileExt[ArrayIndex] = FileType then
        Break;
    if FileType <> '' then
    begin
      case ArrayIndex of
        // Audio/Video
        0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10:
        begin
          AddSingleFile(ffile);
          last := lbList.Items.Count;
          xiPlayClick(Sender);
        end;
        // Playlist
        11: LoadFiles(LoadM3U(ffile));
        12: LoadFiles(LoadASX(ffile));
        13: LoadFiles(LoadDPL(ffile, nil));
      end;
      xiScrollV.Max := lbList.Items.Count;
      if lbList.Count > 17 then
      begin
        lbList.Width      := 181;
        xiScrollV.Visible := True
      end else
      begin
        lbList.Width      := 200;
        xiScrollV.Visible := False;
      end;
      if lbList.Count = 0 then
        lbListCount.Caption := 'No files in playlist'
      else
        if lbList.Count = 1 then
          lbListCount.Caption := '1 file in playlist'
        else
          if lbList.Count > 1 then
            lbListCount.Caption := IntToStr(lbList.Count) + ' files in playlist';
    end;
  end;
end;

procedure TfrmMain.DrawSkin;
var
  Skin : TIniFile;  //sRT
  s : String;
  i, j : Integer;
  Colors : Array [1..49] of TColor;
  MainC  : TColor;
  EQC    : TColor;
  PLC    : TColor;
  sLT    : String; // Lauftext
begin
  with TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'settings.ini') do
  begin
    if DirectoryExists(ExtractFilePath(Application.ExeName) + 'skins\') then
      s := ExtractFilePath(Application.ExeName) + 'skins\' + ReadString('Settings', 'Skin', 'blue.dpsf')
    else
      Application.Terminate;
    Free;
  end;
  MainC := xiMain.ColorGrad;
  EQC   := xiEQ.ColorGrad;
  PLC   := xiPL.ColorGrad;
  sLT   := lLauftext.Text;

  if FileExists(s) then
  begin
    Skin := TIniFile.Create(s);
    try
      ...
      if FileExists(Skin.ReadString('Runningtext', 'File', ExtractFilePath(Application.ExeName)+'skins\rt_blue.bmp')) then
      begin
        lLauftext.Skin.LoadFromFile(Skin.ReadString('Runningtext', 'File', 'skins\rt_blue.bmp'));
        lLauftext.Text := 'Dark Player II                                                           ';
        lLauftext.Color := StringToColor(Skin.ReadString('Backgrnd', 'Grad', 'clSkyBlue'));
        lLauftextS.Skin.LoadFromFile(Skin.ReadString('Runningtext', 'File', 'skins\rt_blue.bmp'));
        lLauftextS.Text := 'Dark Player II                                                           ';
        lLauftextS.Color := StringToColor(Skin.ReadString('Backgrnd', 'Grad', 'clSkyBlue'));
        lPLL.Skin.LoadFromFile(Skin.ReadString('Runningtext', 'File', 'skins\rt_blue.bmp'));
        lPLL.Text  := '                               ';
        lPLL.Color := StringToColor(Skin.ReadString('Backgrnd', 'Grad', 'clSkyBlue'));
        lPLL2.Skin.LoadFromFile(Skin.ReadString('Runningtext', 'File', 'skins\rt_blue.bmp'));
        lPLL2.Text := '                               ';
        lPLL2.Color := StringToColor(Skin.ReadString('Backgrnd', 'Grad', 'clSkyBlue'));
      end else
      begin
        MsgBox('Runningtexts not found!');
        Application.Terminate;
      end;
      vC  := StringToColor(Skin.ReadString('Vis', 'Color', 'clBlack'));
      vF  := StringToColor(Skin.ReadString('Vis', 'Font', 'clBlack'));

      pmTrayFont     := StringToColor(Skin.ReadString('Tray', 'Font', 'clRed'));
      pmTrayBg       := StringToColor(Skin.ReadString('Tray', 'BgColor', '$00FF0301'));
      pmTrayOver     := StringToColor(Skin.ReadString('Tray', 'OverColor', 'clBlack'));
      pmTrayOverFont := StringToColor(Skin.ReadString('Tray', 'OverFont', '$00000000'));

      for i:= 0 to pmSVis.Items.Count-1 do
      begin
        pmSVis.Items[i].OnDrawItem := pmTrayDrawItem;
        for j := 0 to pmSVis.Items[i].Count-1 do
        begin
          pmSVis.Items[i].Items[j].OnDrawItem := pmTrayDrawItem;
        end;
      end;
      xiMain.ColorGrad  := MainC;
      xiEQ.ColorGrad    := EQC;
      xiPL.ColorGrad    := PLC;
      lLauftext.Text    := sLT;
      with Spectrum do
      begin
        PenColor  := StringToColor(Skin.ReadString('Vis', 'Color', 'clBlack'));
        PeakColor := StringToColor(Skin.ReadString('Vis', 'Peak', 'clBlack'));
      end;
    finally
      Skin.Free;
    end;
    tColors.Enabled := True;
  end else
  begin
    MsgBox('Skinfile not found!');
    Exit;
  end;
  Application.HintColor := xiBg.ColorFace;
  Screen.HintFont.Color := xiCaptionBar.Font.Color;
end;

procedure TfrmMain.tListTimer(Sender: TObject);
begin
  if aFade then
  begin
    if tb1.Position = tb1.Max - frmSetting.FadeTime then
    begin
      aFade := False;
      if frmSetting.Crossfade then
        Crossfade;
    end;
  end;
  if not tb1.Max - tb1.Position = tb1.Max then
    ZufallsGen;
  if tb1.Position = tb1.Max then
  begin
    tList.Enabled         := False;
    tb1.Position          := 0;
    tb1S.Position         := 0;
    ZufallsGen;
    tList.Enabled         := True;
  end;
  if xiPMainS.Visible then
  begin
    lLauftextS.Text   := lLauftext.Text;
    lLauftextS.Active := True;
  end;
end;