Kleines rechnen problem

[Aphton]

Bei hundert?
Für welchen Regler gilt das, Masterregler oder für alle?

Falls es für alle ist - heißt das, dass kein Regler mehr inkrementiert werden darf, wenn schon eines 100 erreicht hat?
Falls das so ist, müsste da eig. nur eine kleine Abfrage und zwar, ob alle Regler < 100 und > 0 sind.

Pass mal im Sourceode folgendes an:

Delphi-Quellcode:

procedure TForm1.MasterChange(Sender: TObject);
var
  Difference: Integer;
  i: Integer;
  t: TTrackbar;
begin
  Difference := Master.Position - oldMasterPosition;
  oldMasterPosition := Master.Position;

  for i := 1 to 5 do
  begin
    t := FindComponent('Trackbar' + IntToStr(i)) as TTrackbar;
    if Sign(Difference) = 1 then
    begin
      if t.Position = 100 then
        Abort;
    end else
      if t.Position = 0 then
        Abort;
  end;

  // alle 5 trackbars durchgehen und den neuen wert anwenden
  for i := 1 to 5 do
  begin
    t := FindComponent('Trackbar' + IntToStr(i)) as TTrackbar;
    t.Position := Max(Min(t.Position + Difference, 100), 0);
  end;
end;

Dürfte dann so aussehen...

[EWeiss]

Zitat:

Falls es für alle ist - heißt das, dass kein Regler mehr inkrementiert werden darf, wenn schon eines 100 erreicht hat?

Ja so meine ich das dass gleiche bei 0

Danke für deine hilfe

gruss

[Aphton]

Nicht der Rede wert =P

[EWeiss]

So ist das schon fast wie es sein sollte.
Nochmal Danke

Jetzt fehlt mir nur noch das der Masterregeler ebenfalls auf Hundert stehen muss
wenn eines der Regler Hundert bzw. 0 erreicht hat.

Dann wäre es perfekt.

gruss

[Aphton]

Ähm dann positiniere den Masterregler neu vor jedem Abort =\
Das dürftest du aber schon selber hinkriegen!

[EWeiss]

Zitat von Aphton:

Ähm dann positiniere den Masterregler neu vor jedem Abort =\
Das dürftest du aber schon selber hinkriegen!

Jo denk ich auch
Muss ja nur den Slider mit dem höchsten wert ermitteln
minus der Maximalen value vom MasterRegler.

Und diesen dann einen neuen Max wert übergeben.

gruss

[EWeiss]

Habe es jetzt mal umgesetzt.

Delphi-Quellcode:

        ID_TRACK_MASTERVOL:
        begin
          Difference := SKAERO_GetTrackValue(SKAERO_GetMainItem(MainHandle, wp)) - oldMasterVolume;
          oldMasterVolume := SKAERO_GetTrackValue(SKAERO_GetMainItem(MainHandle, wp));

          for IntI := 0 to 15 do
          begin
            if Sign(Difference) = 1 then
            begin
              if Volume[IntI] = 100 then
                Abort;
            end else
            if Volume[IntI] = 0 then
              Abort;
          end;

          for IntI := 0 to 15 do
          begin
            Volume[IntI] := Max(Min(Volume[IntI] + Difference, 100), 0);
            SKAERO_SetTrackValue(SKAERO_GetMainItem(MainHandle, ID_VOLUME_FIRST + IntI), Volume[IntI]);
          end;
        end;

bekomme aber bei Abort ein EAbort Exception..
Ansonsten funktioniert es Hervorragend

gruss

[Aphton]

Abort ist verknüpft mit dem Vcl-Message Handler.
Ich schätze mal, du arbeitest Non-Vcl.

Verwende statt ein Abort folgendes

Delphi-Quellcode:

begin
  SKAERO_SetTrackValue(SKAERO_GetMainItem(MainHandle, wp), SKAERO_GetTrackValue(SKAERO_GetMainItem(MainHandle, wp)-Difference);
  Exit;
end;