KVideo Player

[EWeiss]

Zitat:

Doppelklick aufs Video um zwischen Fullscreen und Windowed bequem hin und her schalten zu können?

Eigentlich ganz einfach.

Setze die

Delphi-Quellcode:

procedure ToogleFullScreen;

in uMain Global

addiere in der MovieProc (uControls)

Delphi-Quellcode:

    WM_LBUTTONDBLCLK:
      ToggleFullScreen;

das war's :)

Es gibt allerdings auch

VK_F2: FullScreen
VK_ESCAPE: not FullScreen
P: Show Overlay Time
R: Aspekt Ratio
T: Subtitle Config
VK_SHIFT: Zoom mit Wheel

gruss

[KodeZwerg]

Danke für Erklärungen. Ich werde beide mir als Text abspeichern. So bald ich eine bessere Delphi Version habe werde ich Deinen Code Vorschlag umsetzen, also auch Danke für Anleitung was wie wo zu machen wäre!
Hotkeys yeah, wusste ich bis jetzt auch noch nicht, ich bin mehr der faule clickerguy der gerne Tastatur beseite schubst und am liebsten nicht mal mit Maus irgendwo hinzielen mag.

[EWeiss]

Habe noch ein kleines Problem gefunden..
In uMain muss dieser Punkt noch addiert werden sonst wird der letzte Status in der INI nicht gesetzt.

Delphi-Quellcode:

      // Menu Option füllen
      Option.OptionList := TStringList.create;
      Option.OptionList.Add('Show Playback Position');
      Option.OptionList.Add('Resize Video Window');
      Option.OptionList.Add('Show The Movie Data Base');
      Option.OptionList.Add('Load The Movie Data Base from URL');
      Option.OptionList.Add('Use MediaInfo Overlay'); // <<< addieren (function WinMain)

gruss

[EWeiss]

64Bit Version..

Setzt logischerweise voraus das die Filter und madVr in 64Bit Versionen vorliegen das betrifft auch die anderen Abhängigkeiten MediaInfo usw..
Das Skin Archiv wird ebenfalls dafür benötigt.

gruss

[EWeiss]

Neue 64 Bit Version..

gruss

[KodeZwerg]

Ich habe mir endlich nen Fun-Rechner zusammen geschraubt auf dem Delphi CE samt Windows 10 (1803) nur noch 64bit Dinge bekommen, morgen/übermorgen sollte alles fertig sein, dann teste ich liebend gerne all Deine 64bit Portierungen mal durch, pö a pö.

Danke auf jeden Fall fürs Am Ball bleiben trotz Deiner Ablehnung von Windows 10, das finde ich echt bemerkenswert und Super von Dir!

[EWeiss]

Bei mir läuft's auf 10 von daher ;)
Aber du kennst ja den Vorführeffekt.

gruss

[EWeiss]

Neue Version DirectX Header an 64Bit angepasst.

gruss

[EWeiss]

Neuer Upload.
Änderungen siehe erster Beitrag..

Zitat:

Fault: 95,8 MB für ein Programm, das nur 348 KB (=KVPlayer.exe und nur weitere 394 KB=SK_Aero.dll) Dank nonVCL-Programmierung benötigt.

Nochmal zur Klarstellung..
MadVr, LAVFilter, XySubFilter, MediaInfo sind NICHT zwingend notwendig um den Player zu verwenden.

In dem fall wenn nicht verwendet entfallen die Zusätzlichen Funktionen der Filter usw.. dann wird EVR als Standard Video Render Filter verwendet.
Es liegt also an jedem selbst ob er Qualität gegen Megabytes tauschen möchte.

gruss

[bytecook]

Hallo EWeiss,

wo finde ich denn den Source, würd' die Kompo mal gerne ausprobieren...
(Ich hab Winrar und kein Problem mit dem Entpacken :P)
Danke vorab!

Gruß,

Peter