Virtual Piano

[Namenloser]

Kannst du gerne machen, solange es sich unter TDE kompilieren lässt.

[lbccaleb]

Zitat:

Zitat von NamenLozer (Beitrag 1088725)

Kannst du gerne machen, solange es sich unter TDE kompilieren lässt.

Da er ja komplett nonVCL Coded sollte das eigentlich kein Problem sein :)

Edit:

Achja...

@Emil, da ich ja nun sehe dass du offensichtlich das Problem mit der ListBox und dem Neuzeichnen gelöst hast (wenn vllt auch noch net ganz zu 100%) kannst du ja vllt. auch deine Kompo überarbeiten, die da ja noch so halb offen rumliegt :P

Zur erinnerung: http://www.delphipraxis.net/129129-translistbox.html

[EWeiss]

Zitat:

@Emil, da ich ja nun sehe dass du offensichtlich das Problem mit der ListBox und dem Neuzeichnen gelöst hast (wenn vllt auch noch net ganz zu 100%) kannst du ja vllt. auch deine Kompo überarbeiten, die da ja noch so halb offen rumliegt

Kann ja mal schaun.. ;)

@NamenLozer
Kann über Private Nachrichten keine Dateien verschicken..
Hmm das ist neu.

Was mir noch einfällt du hast genügend Rechte die im Ordner Config
liegende Textdateien zu öffnen ?

gruss

[Namenloser]

Also ich bin mal mit dem Debugger durchgesteppt, und der Fehler scheint bei den Listboxen zu liegen. Er tritt auf in der Unit uControls ab Zeile 793:

Delphi-Quellcode:

    InstrumentList := CTRL_ListBoxCreate(hMain, PAnsiChar(SKAERO_FOLDER + 'Midi.png'),
      150, 67, 585, 257, ID_INSTRUMENTLIST, False, 18, SKAERO_INACTIVECAPTION);
    InstrumentList.SetFont(SKAERO_CAPTIONFONTHEIGHT, PAnsiChar(SKAERO_TEXTFONT),
      SKAERO_ACTIVECAPTION, SKAERO_INACTIVECAPTION, TRUE, 2, 0);
    SKAERO_SetAnchorMode(InstrumentList.Handle, ANCHOR_HEIGHT_WIDTH);
    SKAERO_SetZorder(InstrumentList.Handle, HWND_TOP);

    DrumList := CTRL_ListBoxCreate(hMain, PAnsiChar(SKAERO_FOLDER + 'Midi.png'),
      150, 67, 585, 257, ID_DRUMLIST, False, 18, SKAERO_INACTIVECAPTION);
    InstrumentList.SetFont(SKAERO_CAPTIONFONTHEIGHT, PAnsiChar(SKAERO_TEXTFONT),
      SKAERO_ACTIVECAPTION, SKAERO_INACTIVECAPTION, TRUE, 2, 0);
    SKAERO_SetAnchorMode(DrumList.Handle, ANCHOR_HEIGHT_WIDTH);
    SKAERO_SetZorder(DrumList.Handle, HWND_TOP);

    EffectList := CTRL_ListBoxCreate(hMain, PAnsiChar(SKAERO_FOLDER + 'Midi.png'),
      150, 67, 585, 257, ID_EFFECTLIST, False, 18, SKAERO_INACTIVECAPTION);
    InstrumentList.SetFont(SKAERO_CAPTIONFONTHEIGHT, PAnsiChar(SKAERO_TEXTFONT),
      SKAERO_ACTIVECAPTION, SKAERO_INACTIVECAPTION, TRUE, 2, 0);
    SKAERO_SetAnchorMode(EffectList.Handle, ANCHOR_HEIGHT_WIDTH);
    SKAERO_SetZorder(EffectList.Handle, HWND_TOP);

    VLList := CTRL_ListBoxCreate(hMain, PAnsiChar(SKAERO_FOLDER + 'Midi.png'),
      150, 67, 585, 257, ID_VLLIST, False, 18, SKAERO_INACTIVECAPTION);
    InstrumentList.SetFont(SKAERO_CAPTIONFONTHEIGHT, PAnsiChar(SKAERO_TEXTFONT),
      SKAERO_ACTIVECAPTION, SKAERO_INACTIVECAPTION, TRUE, 2, 0);
    SKAERO_SetAnchorMode(VLList.Handle, ANCHOR_HEIGHT_WIDTH);
    SKAERO_SetZorder(VLList.Handle, HWND_TOP);

    Trackbar := CTRL_TrackbarCreate(hMain, (SKAERO_FOLDER + 'BTN_TrackL.png'),
      735, 67, 20, 257, ID_TRACK_VSCROLL, 1, 0, 1, SKAERO_TRACKHICOLOR, SKAERO_TRACKPROGRESSCOLOR);
    SKAERO_SetAnchorMode(Trackbar.Handle, ANCHOR_RIGHT);
    SKAERO_SetZorder(Trackbar.Handle, HWND_TOP);

Und zwar beim Aufruf von InstrumentList.SetFont und (wenn man dieses auskommentiert) SKAERO_SetZorder. Dabei springt er nämlich beim endgültigen Funktionsaufruf offensichtlich statt zur gewollten Adresse zu irgendeiner Junk-Adresse, sodass sinnlose Bytes ausgeführt werden, was zu einer Zugriffsverletzung führt.

Es scheint irgendein Problem mit dem Interface zu sein. Genaueres kann ich leider nicht rausfinden, da ich nicht den Source von der DLL habe.

[EWeiss]

Die Frage ist warum tritt der fehler nicht bei mir auf. :)
Hmmm...

gruss

[EWeiss]

grrr .. was ist das da ist einiges aus dem Ruder gelaufen..
Kommt davon wenn man vorherige funktionen kopiert und nicht neu aufsetzt.


Schau mal bei SetFont..
Und mit welcher Liste der Font erstellt wird.

Bei DrumList solte da anstelle von

Delphi-Quellcode:

    InstrumentList.SetFont(SKAERO_CAPTIONFONTHEIGHT, PAnsiChar(SKAERO_TEXTFONT),
      SKAERO_ACTIVECAPTION, SKAERO_INACTIVECAPTION, TRUE, 2, 0);

das stehen

Delphi-Quellcode:

    DrumList.SetFont(SKAERO_CAPTIONFONTHEIGHT, PAnsiChar(SKAERO_TEXTFONT),
      SKAERO_ACTIVECAPTION, SKAERO_INACTIVECAPTION, TRUE, 2, 0);

Das selbe bei den anderen.

Aber trotzdem seltsam das es bei mir funktioniert hat trotz des fehlers.

gruss

[Namenloser]

Hab’s mal geändert, aber das hat leider nichts geholfen. Hätte mich allerdings auch gewundert, denn der Fehler trat ja auch vorher bereits beim ersten Aufruf auf.

[EWeiss]

Zitat:

Zitat von NamenLozer (Beitrag 1088765)

Hab’s mal geändert, aber das hat leider nichts geholfen. Hätte mich allerdings auch gewundert, denn der Fehler trat ja auch vorher bereits beim ersten Aufruf auf.

Ich denk das ist ein Problem unter Vista.
Bei lbccaleb tritt es ja auch nicht auf unter Win7 64 Bit..

Habs's dir ja schon geschrieben.
Würde mich interessieren ob andere das auch haben.

gruss

[alfold]

mh... bei mir funct alles W7/32 in VM
allerdings flackert die Scrollbox wenn ich die knöpfe bewege?

Gute Arbeit :thumb:

alfold

[EWeiss]

Zitat:

Zitat von alfold (Beitrag 1088812)

mh... bei mir funct alles W7/32 in VM
allerdings flackert die Scrollbox wenn ich die knöpfe bewege?

Gute Arbeit :thumb:

alfold

Bei den Knobs?
Oder meinst den Slider. (Das ist bekannt)

gruss

[alfold]

Knobs :wink:
Genau. als würde es neu gezeichnet werden wenn ich an den knobs drehe?

alfold

[EWeiss]

Zitat:

Zitat von alfold (Beitrag 1088814)

Knobs :wink:
Genau.

alfold

Hmm haben eigentlich nichts mit der Listbox zu tun.
Na ja wenn sonst alles läuft ;)

gruss

[lbccaleb]

Mir ist gerade noch aufgefallen das jetzt der Wechsel zum Blur mode (usw.) nicht mehr hinnhaut!

Und dann spielt auch die ListBox wieder verrückt oO

[EWeiss]

Zitat:

Zitat von lbccaleb (Beitrag 1088822)

Mir ist gerade noch aufgefallen das jetzt der Wechsel zum Blur mode (usw.) nicht mehr hinnhaut!

Und dann spielt auch die ListBox wieder verrückt oO

Ist doch normal was stimmt denn nicht an dem Bild?

gruss

[lbccaleb]

Soll das so mit der ListBox?? Das die Einträge nach untenhinn immer verschommener werden?

Naja und wenn ich es öfter umschalte (Bei den RadioBoxen) dann sind irgendwann alle aktiv/makiert und es passiert nichts mehr! Das war vorher nicht so..

[EWeiss]

Zitat:

Zitat von lbccaleb (Beitrag 1088827)

Soll das so mit der ListBox?? Das die Einträge nach untenhinn immer verschommener werden?

Die Schrift bei AeroBlur passt sich in der Farbgebung deinen Hintergrund an. (Blur halt)
Leg das Window mit eingeschalteten Blur mal auf einen schwarzen Hintergrund dann kannst du sehen was ich meine.

Zitat:

dann sind irgendwann alle aktiv/makiert

Ja das ist ein Bug werde es in der nächsten version beheben.

Danke.

[EWeiss]

Neue version oben.
Changelog siehe ersten Thread.

gruss

[angos]

Hi,

hübsches Teil :thumb:

Wenn ich allerdings unten links auf Crytal oder Blur Mode umstelle sieht das nicht mehr schön aus.
Anbei zwei Screens, einmal wie es im Standard aussieht und einmal mit Blur/Crystal

EDIT: Achja läuft flüssig!
Win 7 64bit
Core2Duo T7250 2GHz
4GB RAM

Gruß
Ansgar

[R2009]

Hi Eweiss,
tolles Teil dein Prog. (Das mit dem Einschalten des Pianos finde ich blöd)
Einen Kritikpunkt hab ich allerdings:
verlasse ich bei gedrückter Maustaste eine Pianotaste so müsste sich eigentlich der Ton ändern.
Dass man die Pianotasten neu anklicken muss find ich nicht gut:

Grüsse
Rainer

[EWeiss]

Zitat:

Zitat von angos (Beitrag 1089403)

Hi,

hübsches Teil :thumb:

Wenn ich allerdings unten links auf Crytal oder Blur Mode umstelle sieht das nicht mehr schön aus.
Anbei zwei Screens, einmal wie es im Standard aussieht und einmal mit Blur/Crystal

EDIT: Achja läuft flüssig!
Win 7 64bit
Core2Duo T7250 2GHz
4GB RAM

Gruß
Ansgar

Habe es oben schon geschrieben
Bei Aero ist das normal ..
Wenn eine Schrift Transparent ausgelegt ist dann scheint sie auch durch.
und paßt sich dem Hintergrund in der farbgebung an.

Das ist Normal und nicht zu ändern es sein denn ich entferne die Transparenz und mache
den Hintergrund der Listbox in dem Fall undurchsichtig.

gruss

[EWeiss]

Zitat:

Zitat von R2009 (Beitrag 1089435)

Hi Eweiss,
tolles Teil dein Prog. (Das mit dem Einschalten des Pianos finde ich blöd)
Einen Kritikpunkt hab ich allerdings:
Grüsse
Rainer

Das war schon die erste Kritik.
Aber kein Problem..

Zitat:

verlasse ich bei gedrückter Maustaste eine Pianotaste so müsste sich eigentlich der Ton ändern.

Also bei mir nicht ..
Wenn ich an meiner Realen DR Böhm Diamant 300CT oder am Klavier spiele
ist bei mir beim loslassen nichts mehr zu hören und da änders sich auch kein Ton mehr.

Zitat:

Dass man die Pianotasten neu anklicken muss find ich nicht gut:

?
Ohne da man eine Taste drückt hört man nun mal nichts ob über Tastatur oder Maus.

gruss

[BUG]

Zitat:

Zitat von EWeiss (Beitrag 1089440)

Zitat:

Dass man die Pianotasten neu anklicken muss find ich nicht gut:

?
Ohne da man eine Taste drückt hört man nun mal nichts ob über Tastatur oder Maus.

Man kann nicht mit gedrückter Maustaste über die Tasten ziehen und so "herumklimpern".

Die Instrumentenauswahl klappt irgendwie nicht immer richtig.
Bass-Birdland klappt nicht (man hört Klavier), Bass-FlageoB klappt (klingt nach Streichinstrument) :gruebel:
Die meisten funktionieren nicht.

[EWeiss]

Zitat:

Man kann nicht mit gedrückter Maustaste über die Tasten ziehen und so "herumklimpern".

Ein dragen von Checkboxen ist nicht so einfach umzusetzen in nonvcl..
Muss mich da noch was schlau machen.

Zitat:

Die Instrumentenauswahl klappt irgendwie nicht immer richtig.
Bass-Birdland klappt nicht (man hört Klavier), Bass-FlageoB klappt (klingt nach Streichinstrument)

Ich werde die Instrumenten Liste neu überarbeiten war nur experimental.
Man kann sie aber auch selbst editieren.
Der erste parameter ist der Name des Instrument.. der zweite der Controler der dritte das Instrument.

Normalerweise gibt es ja nur 127 Instrumente das andere sind ableitungen davon mit geringen Unterschieden.
Hab mich da am Kompendium gehalten scheint wohl auch nicht Sooo 100% zu stimmen.

Dann will ich die Liste noch auf Multicolumn umschalten.
Ist nicht so einfach.

PS:
Überlege ob ich die Liste nicht ganz entferne dafür ein Array verwende und dieses ähnlich
der bedienung mit dem Drum mit Schaltern weiter schalte.
Mache dann 5 bis 10 Soundbänke wo man die Instrumente fest einspeichern kann.
So das man nicht immer suchen muss.

EDIT:
Habe festgestellt das durch die änderung mit dem Drums
meine Arrays für die Instrumente nicht richtig zugewiesen wurden.
Ist in der nächsten Version behoben.

gruss

[EWeiss]

Neue Version oben.

gruss

[MarcoWarm]

Hi EWeiss,

Ich hab die ganze Vorgeschichte deines Programmes nur ein wenig überflogen (wegen der gegenseitigen Beschimpfungen und so)
Also kann es sein, daß meine Idee schon mal jemand vor mir hatte.
Zuerst einmal. ich find das Programm schick ... sowohl die Idee, als auch die Umsetzung.

Was mir als Klavierspieler fehlt, ist folgendes.
spielen über die Tastatur. In zwei Ebenen (z.B. <=C, Y=D, X=E, A=Cis, S=Dis, A=C, Q=G, W=A, R=C, 2=Gis, 3=Bb usw.)
Leertaste als Pedal.
Ich hatte mir vor langer Zeit sowas mal mit dem Beeper unter DOS TurboPascal im Informatikunterricht gebastelt. War ein irrer Spaß aber leider nicht polyphon.

Gruß und weiter So
Marco

[EWeiss]

Zitat:

Zitat von MarcoWarm (Beitrag 1089984)

Hi EWeiss,

Ich hab die ganze Vorgeschichte deines Programmes nur ein wenig überflogen (wegen der gegenseitigen Beschimpfungen und so)
Also kann es sein, daß meine Idee schon mal jemand vor mir hatte.
Zuerst einmal. ich find das Programm schick ... sowohl die Idee, als auch die Umsetzung.

Was mir als Klavierspieler fehlt, ist folgendes.
spielen über die Tastatur. In zwei Ebenen (z.B. <=C, Y=D, X=E, A=Cis, S=Dis, A=C, Q=G, W=A, R=C, 2=Gis, 3=Bb usw.)
Leertaste als Pedal.
Ich hatte mir vor langer Zeit sowas mal mit dem Beeper unter DOS TurboPascal im Informatikunterricht gebastelt. War ein irrer Spaß aber leider nicht polyphon.

Gruß und weiter So
Marco

Tastatur bedienung kommt natürlich noch.
Möchte mich aber an den Standard halten so wie man ihn halt überall vorfindet.
Muss mich also mal schlau machen ob dein Vorschlag Standard ist ;)

gruss

PS:Informatiker bin ich nicht (Nur Hobbyist)

[Namenloser]

Standard ist glaube ich, dass C auf der Taste Y (QWERTZ-Layout vorausgesetzt) liegt, dann nach rechts immer einen ganzen Ton höher, Halbtöne (also schwarze Tasten) auf der darüberliegenden Reihe zwischen den jeweiligen Ganztönen (weißen Tasten). Bei Q beginnt dann C'.

(Bitte nicht schlagen, wenn ich die falschen Begriffe verwende, mein musiktheoretisches Wissen basiert auf ein paar Halbjahren in der Grund-/Mittelstufe, wo ich nicht wirklich gut aufgepasst habe... :duck:)

[EWeiss]

Zitat:

Bitte nicht schlagen, wenn ich die falschen Begriffe verwende

Warum sollte ich ;)
Das problem (ja wieder eins) ist die umsetzung da ich nicht nur über 1 Oktave sondern über 6 verfüge.

Das läßt sich meineserachtens nicht mit einer PC Tastatur umsetzen.

gruss
PS: Geht es nun bei dir mit der neuen Version ?

[Namenloser]

Zitat:

Zitat von EWeiss (Beitrag 1090041)

Das problem (ja wieder eins) ist die umsetzung da ich nicht nur über 1 Oktave sondern über 6 verfüge.
Das läßt sich meineserachtens nicht mit einer PC Tastatur umsetzen.

Man müsste halt irgendwo die Basisoktave einstellen können. Die obere Tasten-Reihe ist dann die nächsthöhere Oktave. So machen es jedenfalls alle Tracker, die ich kenne.

Zitat:

Zitat von EWeiss (Beitrag 1090041)

PS: Geht es nun bei dir mit der neuen Version ?

Leider immer noch nicht...

[EWeiss]

Zitat:

Leider immer noch nicht...

Schon seltsam ..
Alle Handles und events der Listbox werden jetzt ordnungsgemäß übergeben.
Habe es ja mit Hilfe einiger User hier gefixt.

http://mehrere-listboxen

gruss

[MarcoWarm]

Zitat:

Zitat von NamenLozer (Beitrag 1090039)

Standard ist glaube ich, dass C auf der Taste Y (QWERTZ-Layout vorausgesetzt) liegt

Dann verliert man ja einen ganzen Ton :-( Ich meine die Taste ist ja da.
Und was ist schon Standard. Ich denk nicht, das es eine ISO Norm für Tastaturkeyboards gibt ... dann wiederrum sind wir in Deutschland :roll:

[Namenloser]

Zitat:

Zitat von MarcoWarm (Beitrag 1090054)

Zitat:

Zitat von NamenLozer (Beitrag 1090039)

Standard ist glaube ich, dass C auf der Taste Y (QWERTZ-Layout vorausgesetzt) liegt

Dann verliert man ja einen ganzen Ton :-( Ich meine die Taste ist ja da.

Aber nicht auf allen Tastaturen. Amerikanische Tastaturen haben diese Taste z.B. nicht.

[MarcoWarm]

Zitat:

Zitat von NamenLozer (Beitrag 1090055)

Aber nicht auf allen Tastaturen. Amerikanische Tastaturen haben diese Taste z.B. nicht.

Dann am besten frei definierbare Tastaturlayouts ... man weiß ja nie

[BUG]

Hier nochmal ein Link mit Übersicht der "Standard"-Tastaturbelegung :mrgreen:

Zitat:

Zitat von BUG (Beitrag 1085412)

Die Tastenbelegung von Milkytracker ist vermutlich erprobt.

[EWeiss]

Zitat:

Zitat von BUG (Beitrag 1090059)

Hier nochmal ein Link mit Übersicht der "Standard"-Tastaturbelegung :mrgreen:

Zitat:

Zitat von BUG (Beitrag 1085412)

Die Tastenbelegung von Milkytracker ist vermutlich erprobt.

Darauf wollte ich anspielen :)
Den link hast schon mal gesendet in einem anderen Thread. :-D
Aber kein problem. Danke

gruss

PS:
Aber davon ab will ich nicht nur ne Tastatur zum Klimpern bereitstellen sondern
zusätzlich noch einen Tracker der es möglich macht Musikstücke selbst zu erstellen.
Die Liste kommt dann weg damit ich mehr platz dafür habe.
Muss mir nur noch das layout dafür überlegen.. Grid ist nicht gerade das schnellste in GDI+

[MarcoWarm]

Zitat:

Zitat von BUG (Beitrag 1090059)

Hier nochmal ein Link mit Übersicht der "Standard"-Tastaturbelegung :mrgreen:

Zitat:

Zitat von BUG (Beitrag 1085412)

Die Tastenbelegung von Milkytracker ist vermutlich erprobt.

Wenn wir von "Standard" sprechen, sollten editierbare KeyboardMaps der Standard sein:

http://vmpk.sourceforge.net/ ... Absatz: Keyboard maps

Gruß
Marco

P.S: vielleicht kann man ja deren XML Format gleich verwenden ... :-D

[EWeiss]

Zitat:

Zitat von MarcoWarm (Beitrag 1090065)

Zitat:

Zitat von BUG (Beitrag 1090059)

Hier nochmal ein Link mit Übersicht der "Standard"-Tastaturbelegung :mrgreen:

Zitat:

Zitat von BUG (Beitrag 1085412)

Die Tastenbelegung von Milkytracker ist vermutlich erprobt.

Wenn wir von "Standard" sprechen, sollten editierbare KeyboardMaps der Standard sein:

http://vmpk.sourceforge.net/ ... Absatz: Keyboard maps

Gruß
Marco

P.S: vielleicht kann man ja deren XML Format gleich verwenden ... :-D

Danke für die Infos ;)
Aber ich möchte das selbst machen ohne fremde Komponente oder Quelltexte.
Habe auch bis auf die InstrumentenListe nichts aus diesen Forum verwendet (Danke FAlter für die Liste).

Zitat:

Wenn wir von "Standard" sprechen, sollten editierbare KeyboardMaps der Standard sein:

Dem kann ich zustimmen.

gruss

[R2009]

Entschuldige bitte, dass ich da widersprechen muss.

Zitat:

Also bei mir nicht ..
Wenn ich an meiner Realen DR Böhm Diamant 300CT oder am Klavier spiele
ist bei mir beim loslassen nichts mehr zu hören und da änders sich auch kein Ton mehr.

Wenn ich beim Klavier von einer Taste auf die nächste rutsche höre ich wohl einen Ton und das ist auch bei jedem
anderen Keyboard so.
(Wär doch zumindest ein nettes Feature. Wenn ich auf deinem Piano Violine spielen will geht das nicht anders)
Grüsse
Rainer

[EWeiss]

Zitat:

Wenn ich beim Klavier von einer Taste auf die nächste rutsche

Davon war bei mir nicht die rede..
Siehe!

Zitat:

ist bei mir beim loslassen

PS:
Das Draging (dragover) wird noch implementiert.
Wenn ich einen vernünftigen weg dafür finde, in nonvcl nicht ganz so einfach in verbindung mit Checkboxen.

gruss

[DelphiSecurity]

Das Piano ist einfach gut! :wink: