Circular spectrum visualizer

[EWeiss]

Falls jemand gerne diese Knobs möchte sagt bescheid lade dann eine aktualisierte uControls.pas incl. des Knobs hoch.
Dafür sind dann leider ein paar kleine Änderungen nötig damit das 3 Frame der Value entsprechend angepasst wird.

Man kann dann wechseln zwischen Knobs mit 2 oder 3 Frames.

gruss

[EWeiss]

Neue Version..
Es waren leider noch einige Korrekturen von Nöten. (Danke an Michael II)

Wir merken uns jetzt den Pointer auf Pixel (0,0)
RGBQuad := BitmapData.Scan0;

von daher können wir uns den Scan0 auf jede Zeile sparen.
RGBQuad := Scanline(BitmapData, Row);

ist also nicht mehr nötig.
zudem waren diese Zuweisungen auch unnötig.

Delphi-Quellcode:

DWORD(Pixel) := 0;
RGBQuad^ := Pixel;

wir können die 0 direkt an RGBQuad übergeben.
DWORD(RGBQuad^) := 0;

Die Funktion Scanline wurde entfernt.
GDIP_BitmapUnlockBits wurde zu früh aufgerufen das Bitmap war also nach der 1 Zeile (0) schon nicht mehr geschützt.

gruss

[EWeiss]

Wer den Kreis ausweiten will hier ist die angepasste uControls.pas inklusive neuem Composited.png

je nach Delphi Version muss das FormatSettings.Decimalseparator in DisplayFloatValue angepasst werden.
32 Bit einfach ohne FormatSettings nur einfach Decimalseparator.

Im Archiv ist die für 64Bit.
Das *.png einfach im Skins Ordner ersetzen.
Nicht mehr nötig ist im Archiv enthalten.

gruss

[EWeiss]

Neue Version..

gruss

[EWeiss]

Neue Version.

Zitat:

Transparenz ist nun so wie sie soll ohne das ist Farben die Deckkraft verlieren, werden von der Transparenz ausgeschlossen.

Was für ein Gedudel.. auf den Desktop

gruss

[Codehunter]

Bitte nicht übel nehmen... Aber wofür isn das gut?

[EWeiss]

Zitat von Codehunter:

Bitte nicht übel nehmen... Aber wofür isn das gut?

Was.. Wenn du mir sagst was du meinst könnte ich es beantworten.
Es sei denn du meinst das? Versuche es mal mit DragDrop Mp3 Dateien.. habe es aber extra oben addiert.

Wenn es um den Visualizer geht nun ich denke da kann man viel von lernen vor allem Leute die sich mit dem Thema beschäftigen.
Keine sorge nehme es nicht übel nicht jeder kann in allem einen Sinn erkennen.

Manchmal macht man einfach etwas aus spaß an der Freud.
Für mich persönlich ist es die Schmerzgrenze meiner Library zu testen so das ich sie erweitern kann wenn etwas fundamentales fehlt.

PS:
Kannst du in einer Form ein transparentes Loch erstellen dieses zur Laufzeit in der Transparenz verändern und anschließend in dem Fenster (Aussparung) eine Visualisierung darstellen?
Falls nicht wäre das ein Ansatz um vielleicht davon zu lernen
Aber das sind alles nur Vermutungen da ich nicht weis was du genau meinst.


gruss