TAudioVolume Komponente incl. System Mixer

[EWeiss]

Zitat:

aber nicht verrechnet, angezeigt mit 16

Nö ich will die 16 nicht sehen sondern aus der 16 soll der Wert 50 werden
Ist am ende eine Optische Korrektur denn mit dem wert 16 kann nicht wirklich jemand etwas anfangen.

Zitat:

von der Mitte aus jeweils 50 nach links und 50 rechts.

und zwar für Links (Mitte 0 < Max 50) und rechts (Mitte 0 > Max 50) = gesamt 100

gruss

[KodeZwerg]

Ja beim nächsten mal Frag ich besser gleich nach wie Ergebnisse auszusehen haben, so rum versteh ichs einfach nicht.
Hat sich ja zum positiven Erledigt, Schwamm drüber

[EWeiss]

Zitat von KodeZwerg:

Ja beim nächsten mal Frag ich besser gleich nach wie Ergebnisse auszusehen haben, so rum versteh ichs einfach nicht.
Hat sich ja zum positiven Erledigt, Schwamm drüber

Jo ist erledigt aber nochmal zum besseren Verständnis.
Gehen wir von einer gesamtlautstärke von 100 aus.

IPercent := (IPercent * 100) div 16;

Wenn der Regler ganz nach links verschoben ist dann habe ich die gesamte Lautstärke von 100% auf den linken Kanal und das gleiche in umgekehrter Reihenfolge.

Welchen wert man dafür anzeigen will ist letztendlich Geschmacksache.
Ok das war's.

gruss

[EWeiss]

OK!
Vorerst die letzte Version.. bis ich das Problem mit dem DisconnectSession geklärt habe.
Die TAudioVolume Komponente werde ich erst aktualisieren wenn mein Projekt komplett fertig ist.
Mag nicht 3 Baustellen gleichzeitig.

Die neuen Futures und Fixes

1. Das Rechte Bitmap zum verschieben der Einträge wird zu schnell ausgeschaltet. (behoben)
2. Das Offset der neu hinzugefügten Session stimmt nicht. (behoben)
3. Invalid Pointer beim ändern der Laustärke. (behoben)
4. Informationen über der zuletzt addierter Session hinzugefügt.
5. Animierten (Zoom) Text addiert incl. Rotation. (Spielerei)
6. ToolTip für Balance addiert
7. Scroll Speed Einstellungen addiert.
8. CPU Auslastung optimiert.

gruss

[EWeiss]

Wenn jemand diesen Mirror Effekt haben möchte muss er nur diese eine Zeile editieren.
anstelle von GI_CreateBitmapFromFile..
Siehe Scroll Speed! Das Image darunter.

Delphi-Quellcode:

procedure CreateOptionSprites;
//...
hBmp := gSprOption.GI_CreateMirrorBitmapFromFile(PWideChar(SpriteResPath + 'speed.png'), bmW, bmH);

Ich habe das gleiche auch bei den Thumps gemacht aber die Höhe der Bitmaps noch verändert.

Delphi-Quellcode:

hThumb := gSprSession.GI_CreateMirrorBitmapFromFile
  (PWideChar(SpriteResPath + 'thumbV.png'), bmW, bmH);

thumbV.png muss dann die höhe von 26 Pixel haben damit es gut aussieht.
Der Effekt dabei ist das es dann einen Schatten auf den Slider Hintergrund wirft.

Das selbe beim Master Thumb einfach nach _thumbV.png suchen.

sorry vergessen..
Wenn jemand die Thumps ändert muss das ebenfalls ersetzt werden weil sonst das Image optisch nicht mehr in der Mitte liegt beim Mirror Effekt.
Die Höhe des Mirror muss dann abgezogen werden.

Delphi-Quellcode:

// Thumb
{$REGION 'SetThumbVert'}

procedure SetThumbVert(ID: Integer; SprCtrl: ISkinSpriteContainer;
  THUMB_VERT, SLIDER_VERT: Integer; Percent: Single);
var
  x, y, w, h, nY, nH, Half: Integer;
  IDSlider: Integer;
begin

  if (ID < THUMB_VERT) then
    inc(ID, THUMB_VERT - SLIDER_VERT);

  SprCtrl.GD_GetObjectXY(ID - (THUMB_VERT - SLIDER_VERT), x, nY);
  SprCtrl.GD_GetObjectBound(ID - (THUMB_VERT - SLIDER_VERT), w, nH);
  SprCtrl.GD_GetObjectBound(ID, w, h);
  SprCtrl.GD_GetObjectXY(ID, x, y);

  Half := Round(h / 2) div 2; // Mirror abziehen
  nY := (nY + nH) - ((round(Percent) * nH) div 100) - Half;

  SprCtrl.GD_SetObjectXY(ID, x, nY);

  IDSlider := ID_SLIDER_LED + (ID - ID_THUMB_VERT);
  SprCtrl.GD_SetObjectImageLabel(IDSlider, FloatToStr(Percent));
  SprCtrl.GD_SetObjectTextEx(IDSlider, PWideChar(FloatToStr(Percent)));
end;
{$ENDREGION}
{$REGION 'MoveThumbVert'}

procedure MoveThumbVert(ID: Integer; SprCtrl: ISkinSpriteContainer; MouseY, THUMB_VERT,
  SLIDER_VERT: Integer);
var
  x, y, nY, w, h, nH: Integer;
  Half: Integer;
  PosY, Percent: Single;
  IDX: Integer;
begin

  bMyVolSet := true;

  if (ID < THUMB_VERT) then
    inc(ID, THUMB_VERT - SLIDER_VERT);

  SprCtrl.GD_GetObjectXY(ID - (THUMB_VERT - SLIDER_VERT), x, nY);
  SprCtrl.GD_GetObjectBound(ID - (THUMB_VERT - SLIDER_VERT), w, nH);
  SprCtrl.GD_GetObjectBound(ID, w, h);
  SprCtrl.GD_GetObjectXY(ID, x, y);

  Half := Round(h / 2) div 2; // Mirror abziehen
  y := MIN(MAX(MouseY - Half, nY - Half), nY + nH - Half);
  SprCtrl.GD_SetObjectXY(ID, x, y, true);

  PosY := (nY + nH) - (y + Half);
  Percent := (PosY / nH) * 100;

  IDX := ID + (THUMB_VERT - SLIDER_VERT);
  SprCtrl.GD_SetObjectImageLabel(IDX, FloatToStr(Percent));
  SendMessageW(MainHandle, WM_VSCROLL, MAKELONG(SB_THUMBPOSITION, round(Percent)), IDX);
end;
{$ENDREGION}

gruss

[KodeZwerg]

Das mit dem Texteffekt kommt schon geil und jetzt noch sowas, sehr cooles Projekt!

[EWeiss]

Zitat von KodeZwerg:

Das mit dem Texteffekt kommt schon geil und jetzt noch sowas, sehr cooles Projekt!

Freut mich das es dir gefällt.
Im Grunde ist es kein Text mehr.

Ich erstelle einen Font anschließend ein Bitmap "GD_CreateBitmapFromText"
Dann wird dieses Bitmap zum GD_DrawTextBitmapToCtrl Sprite Container addiert und nun als ganz normales Bitmap behandelt.
Mit dem ich dann zoomen, drehen und andere Spielchen machen kann.

gruss