W zasadzie to jeszcze jeden problem. Wiem że banalny ale jestem początqjący.
Niewiem dlaczego ale wartość Label2 zawsze jest 100%. Kod jest taki
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
if TrackBar1.Position = 11 then
WaveOutSetVolume(0, $FFFFFFF)
else
WaveOutSetVolume(0, $ffTrackBar1.Position6000*$ff);
if
TrackBar1.Position = 0 then
Image1.Width := 0;
Label2.Caption := '0%';
if
TrackBar1.Position = 1 then
Image1.Width := 10;
Label2.Caption := '10%';
if
TrackBar1.Position = 2 then
Image1.Width := 20;
Label2.Caption := '20%';
if
TrackBar1.Position = 3 then
Image1.Width := 30;
Label2.Caption := '30%';
if
TrackBar1.Position = 4 then
Image1.Width := 40;
Label2.Caption := '40%';
if
TrackBar1.Position = 5 then
Image1.Width := 50;
Label2.Caption := '50%';
if
TrackBar1.Position = 6 then
Image1.Width := 60;
Label2.Caption := '60%';
if
TrackBar1.Position = 7 then
Image1.Width := 70;
Label2.Caption := '70%';
if
TrackBar1.Position = 8 then
Image1.Width := 80;
Label2.Caption := '80%';
if
TrackBar1.Position = 9 then
Image1.Width := 90;
Label2.Caption := '90%';
if
TrackBar1.Position = 10 then
Image1.Width := 100;
Label2.Caption := '100%';
end;
A już image zmienia się tak jak trzeba. Więc co jest z tym nie tak?