Hi Leute
Ich habe mehrere frage ich hoffe ihr könnt mir helfen!!!
1.)
wieso wirt ( procedure TMainForm.ListView1Change (Sender: TObject); )
nicht übernommen? habe ich was übersehen???
procedure TMainForm.ListView1Change (Sender: TObject);
begin
{ Clear captions }
ClearAll;
if ListView1.Selected = nil then exit;
if FileExists(ListView1.ItemFocused.Caption) then
{ Load tag data }
if FileTag.ReadFromFile(ListView1.ItemFocused.Caption ) then
if FileTag.Exists then
2.) wie kann ich die letzte Einstellung von TreeView in eine ini Datei
speichern und beim Programm Start wieder laden???
3.) wie wende ich FileListChange(Self); bei ListView an???
4.) wie kann ich die Datei die ich in LisView markiert habe in den
Papierkorb verschieben
4.) wie kann ich Bass, Höhen mit Ändern???
function GetWaveVolume(var LVolWord; var RVolWord) : Boolean;
var
WaveOutCaps : TWAVEOUTCAPS;
Volume : DWord;
begin
Result := false;
if WaveOutGetDevCaps(WAVE_MAPPER, @WaveOutCaps, SizeOf(WaveOutCaps)) =
MMSYSERR_NOERROR then
if WaveOutCaps.dwSupport and WAVECAPS_VOLUME = WAVECAPS_VOLUME then
begin
Result := WaveOutGetVolume(-1, @Volume) = MMSYSERR_NOERROR;
LVol := LoWord(Volume);
RVol := HiWord(Volume);
end;
end;
procedure TMainForm.TrackBar1Change(Sender: TObject);
begin
Statusbar1.Panels[1].Text:= IntToStr(0 +TrackBar1.Position)+'%';
SetWaveVolume (MakeLong((65535 div 100) * Trackbar1.Position,
(65535 div 100) * Trackbar1.Position)) ;
end;
Ich habe mehrere frage ich hoffe ihr könnt mir helfen!!!
1.)
wieso wirt ( procedure TMainForm.ListView1Change (Sender: TObject); )
nicht übernommen? habe ich was übersehen???
procedure TMainForm.ListView1Change (Sender: TObject);
begin
{ Clear captions }
ClearAll;
if ListView1.Selected = nil then exit;
if FileExists(ListView1.ItemFocused.Caption) then
{ Load tag data }
if FileTag.ReadFromFile(ListView1.ItemFocused.Caption ) then
if FileTag.Exists then
2.) wie kann ich die letzte Einstellung von TreeView in eine ini Datei
speichern und beim Programm Start wieder laden???
3.) wie wende ich FileListChange(Self); bei ListView an???
4.) wie kann ich die Datei die ich in LisView markiert habe in den
Papierkorb verschieben
4.) wie kann ich Bass, Höhen mit Ändern???
function GetWaveVolume(var LVolWord; var RVolWord) : Boolean;
var
WaveOutCaps : TWAVEOUTCAPS;
Volume : DWord;
begin
Result := false;
if WaveOutGetDevCaps(WAVE_MAPPER, @WaveOutCaps, SizeOf(WaveOutCaps)) =
MMSYSERR_NOERROR then
if WaveOutCaps.dwSupport and WAVECAPS_VOLUME = WAVECAPS_VOLUME then
begin
Result := WaveOutGetVolume(-1, @Volume) = MMSYSERR_NOERROR;
LVol := LoWord(Volume);
RVol := HiWord(Volume);
end;
end;
procedure TMainForm.TrackBar1Change(Sender: TObject);
begin
Statusbar1.Panels[1].Text:= IntToStr(0 +TrackBar1.Position)+'%';
SetWaveVolume (MakeLong((65535 div 100) * Trackbar1.Position,
(65535 div 100) * Trackbar1.Position)) ;
end;