Virtual Piano

[EWeiss]

Neue Version oben.

gruss

[Thom]

Ich bin jedes Mal aufs Neue von Deiner Grafik beeindruckt!

[EWeiss]

Zitat von Thom:

Ich bin jedes Mal aufs Neue von Deiner Grafik beeindruckt!

Danke!
Aber davon ab habe da bis auf die Listbox Schrift nichts geändert
Es gibt ein Popup Menu wo man die Skins wählen kann.
Oben im Caption

gruss

[Thom]

Zitat von EWeiss:

Aber davon ab habe da bis auf die Listbox Schrift nichts geändert

Jaaaaaa - das mag schon sein. Aber jedes mal, wenn Du eine neue Version veröffentlichst, schaue ich mir die Screenshots an, da ich mit dem eigentlichen Programm auf Grund meines nicht vorhandenen musikalischen Talentes leider nicht viel anfangen kann...

[MarcoWarm]

ein kleiner OT-Tipp...

damit es auch für all jene gut klingt, die keinen Hardwarewavetable auf/in der Soundkarte haben:

Installiert euch folgendes: Den Bassmidi Treiber von: https://github.com/mudlord/bassmididrv

Jetzt braucht ihr noch einen passenden Soundfont (SF2-Format). Da gibts zum Beispiel den Crisis General Midi 3.01 Letzterer hat einen wunderschönen Applaus

Viele weitere gibts bei der HammerSound SoundFont Library

viel Spaß damit

[EWeiss]

Neue Version online 1.1.5

Auf MidiFile2 umgestellt..
Testen wie folgt!

MidiTracker öffnen.. nichts in das Grid zeichen ansonsten wird das MidiFile nicht gestartet sondern das was im grid steht.
Das Grid werde ich später noch befüllen.. (im moment nur eine Temporäre Lösung)
Den Button Import Midi File klicken Datei aus dem Ordner Songs einladen (oder ne andere Datei wie ihr wollt)
Danach nur noch auf den Play button klicken. (letzte Icon in der Toolbar )

Lautstärke über MasterVolumen Regeln
Geschwindigkeit mit dem Speed Knob..

gruss

[lbccaleb]

Hey Emil,

hab mir gerade mal deinen Code angesehen, wie du einige Sachen so machst, um mich bisschen weiter zu entwickeln
Kein Plan, ob du noch an dem Programm was veränderst und ob du das schon weisst, aber mir ist da was kleines aufgefallen:

Du vergleichst oft auf True/False (was man ja bekanntlich nicht machen sollte)

zb:

Delphi-Quellcode:

  IsInitialized := GetClassInfoEx(SkinEngine.skInstance, zClass, wc);
  if IsInitialized = False then
  begin

Vllt. änderst du das ja noch irgendwann ein mal!

BTW. Cooles Prog und thx vor OS