0 Members and 1 Guest are viewing this topic.
procedure Execute(var State: Integer);var PL: TComponent; begin PL:= FindObject('Playlist'); PL.Set('Resources.ItemLine1Fonts.Normal.Name', 'Arial'); PL.Set('Resources.ItemLine1Fonts.Normal.Color', $FF0000); PL.Set('Resources.ItemLine1Fonts.Normal.Height', 14); PL.Set('Resources.ItemLine1Fonts.Normal.Style', '[fsBold, fsItalic]');end;
procedure Execute(var State: Integer);var N: Integer; begin with FindObject('prvEqualizer') do for N:= 1 to 18 do Set('BandValue' + IntToStr(N), 0);end;
procedure Execute(var State: Integer);begin FindObject('Panel').Set('Color', HSLToColor(State / 360, 1, 0.5))end;
procedure Execute(var State: Integer);const Step = 10; begin FindObject('Panel').Set('Color', HSLToColor(State * Step / 360, 1, 0.5))end;
PS:= FindObject('prvPlayerState'); Pt:= PS.Get('Position'); - текущая позиция в треке Pm:= PS.Get('PositionMax'); - продолжительность трека
case PS.Get('State') of 'opsStop': begin {Ваш код для обработки этого состояния} end; 'opsPlay': begin {Ваш код для обработки этого состояния} end; 'opsPause': begin {Ваш код для обработки этого состояния} end; end;
procedure Execute(var State: Integer);begin FindObject('prvTempo').Set('Position', 1); FindObject('prvSpeed').Set('Position', 1); FindObject('prvReverb').Set('Position', 0); FindObject('prvFlanger').Set('Position', 0); FindObject('prvPitch').Set('Position', 0); FindObject('prvTrueBass').Set('Position', 0); FindObject('prvEcho').Set('Position', 0); FindObject('prvEnhancer').Set('Position', 0); FindObject('prvChorus').Set('Position', 0); FindObject('prvBalance').Set('Position', 0)end;
... жаль не проект