├── src ├── fquality.lrt ├── unit3.lrt ├── Thumbs.db ├── lazview.ico ├── fgoto.lrt ├── unit5.lrt ├── fexif.lrj ├── unit2.lrt ├── fresize.lrt ├── fquality.lrj ├── unit3.lrj ├── fpass.lrj ├── unit6.lrj ├── fthumbsize.lrj ├── fexif.pas ├── unit5.lrj ├── fgoto.lrj ├── fpass.pas ├── unit6.pas ├── fthumbsize.pas ├── unit2.lrj ├── print.lrj ├── unit3.pas ├── fexif.lfm ├── fresize.lrj ├── fquality.pas ├── lazview.lpr ├── unit4.lrt ├── feffects.lrt ├── unit5.pas ├── fgoto.pas ├── print.pas ├── unit6.lfm ├── fthumbsize.lfm ├── unit3.lfm ├── fquality.lfm ├── unit5.lfm ├── fgoto.lfm ├── fpass.lfm ├── darkmode.pas ├── DarkModeClasses.pas ├── print.lfm ├── unit2.pas └── fresize.pas ├── use ├── components.txt ├── PasLibVlc │ ├── logo1.png │ ├── logo2.png │ ├── DelphiXE10 │ │ ├── PasLibVlc_prjgroup.tvsconfig │ │ ├── FmxDemoPasLibVlcPlayer │ │ │ ├── FmxDemoPasLibVlcPlayer._@emb_.tmp │ │ │ ├── MainFormUnit.Windows.fmx │ │ │ ├── MainFormUnit.Macintosh.fmx │ │ │ ├── FmxDemoPasLibVlcPlayer.res │ │ │ ├── FmxDemoPasLibVlcPlayer.stat │ │ │ ├── Entitlement.TemplateOSX32.xml │ │ │ ├── info.plist.TemplateOSX.xml │ │ │ ├── MainFormUnit.iPad.fmx │ │ │ ├── MainFormUnit.Surface.fmx │ │ │ ├── MainFormUnit.LgXhdpiPh.fmx │ │ │ ├── MainFormUnit.SmXhdpiPh.fmx │ │ │ ├── MainFormUnit.iPhone47in.fmx │ │ │ ├── MainFormUnit.XLgXhdpiTb.fmx │ │ │ ├── FmxDemoPasLibVlcPlayer.dpr │ │ │ └── MainFormUnit.fmx │ │ ├── PasLibVlcPlayer.res │ │ ├── PasLibVlcPlayerFmx.res │ │ ├── FmxDemoPasLibVlc │ │ │ ├── MainFormUnit.Windows.fmx │ │ │ ├── FmxDemoPasLibVlc.res │ │ │ ├── MainFormUnit.iPad.fmx │ │ │ ├── MainFormUnit.Surface.fmx │ │ │ ├── MainFormUnit.LgXhdpiPh.fmx │ │ │ ├── MainFormUnit.SmXhdpiPh.fmx │ │ │ ├── MainFormUnit.iPhone55in.fmx │ │ │ ├── FmxDemoPasLibVlc.stat │ │ │ ├── Entitlement.TemplateOSX32.xml │ │ │ ├── FmxDemoPasLibVlc._@emb_.tmp │ │ │ ├── PlayFormUnit.fmx │ │ │ ├── MainFormUnit.fmx │ │ │ ├── FmxDemoPasLibVlc.dpr │ │ │ └── PlayFormUnit.pas │ │ ├── DemoPasLibVlc │ │ │ ├── DemoPasLibVlc.res │ │ │ ├── DemoPasLibVlc.otares │ │ │ ├── DemoPasLibVlc_Icon.ico │ │ │ ├── DemoPasLibVlc.stat │ │ │ ├── MainFormUnit.dfm │ │ │ ├── DemoPasLibVlc.deployproj │ │ │ └── DemoPasLibVlc.dpr │ │ ├── DemoPasLibVlcPlayer │ │ │ ├── DemoPasLibVlcPlayer.res │ │ │ ├── DemoPasLibVlcPlayer.otares │ │ │ ├── DemoPasLibVlcPlayer_Icon.ico │ │ │ ├── DemoPasLibVlcPlayer.stat │ │ │ ├── FullScreenFormUnit.dfm │ │ │ ├── DemoPasLibVlcPlayer.deployproj │ │ │ ├── SelectOutputDeviceFormUnit.dfm │ │ │ ├── SetEqualizerPresetFormUnit.dfm │ │ │ ├── FullScreenFormUnit.pas │ │ │ ├── DemoPasLibVlcPlayer.dpr │ │ │ └── SetEqualizerPresetFormUnit.pas │ │ ├── PasLibVlcPlayer.stat │ │ └── PasLibVlcPlayer.dpk │ ├── DelphiXE7 │ │ ├── PasLibVlc_prjgroup.tvsconfig │ │ ├── FmxDemoPasLibVlcPlayer │ │ │ ├── FmxDemoPasLibVlcPlayer._@emb_.tmp │ │ │ ├── MainFormUnit.Windows.fmx │ │ │ ├── MainFormUnit.Macintosh.fmx │ │ │ ├── FmxDemoPasLibVlcPlayer.res │ │ │ ├── FmxDemoPasLibVlcPlayer.stat │ │ │ ├── Entitlement.TemplateOSX32.xml │ │ │ ├── info.plist.TemplateOSX.xml │ │ │ ├── MainFormUnit.iPad.fmx │ │ │ ├── MainFormUnit.Surface.fmx │ │ │ ├── MainFormUnit.LgXhdpiPh.fmx │ │ │ ├── MainFormUnit.SmXhdpiPh.fmx │ │ │ ├── MainFormUnit.iPhone47in.fmx │ │ │ ├── MainFormUnit.XLgXhdpiTb.fmx │ │ │ ├── FmxDemoPasLibVlcPlayer.dpr │ │ │ └── MainFormUnit.fmx │ │ ├── PasLibVlcPlayer.res │ │ ├── PasLibVlcPlayerFmx.res │ │ ├── FmxDemoPasLibVlc │ │ │ ├── MainFormUnit.Windows.fmx │ │ │ ├── FmxDemoPasLibVlc.res │ │ │ ├── MainFormUnit.iPad.fmx │ │ │ ├── MainFormUnit.LgXhdpiPh.fmx │ │ │ ├── MainFormUnit.SmXhdpiPh.fmx │ │ │ ├── MainFormUnit.Surface.fmx │ │ │ ├── MainFormUnit.iPhone55in.fmx │ │ │ ├── FmxDemoPasLibVlc.stat │ │ │ ├── Entitlement.TemplateOSX32.xml │ │ │ ├── FmxDemoPasLibVlc._@emb_.tmp │ │ │ ├── PlayFormUnit.fmx │ │ │ ├── MainFormUnit.fmx │ │ │ ├── PlayFormUnit.pas │ │ │ └── FmxDemoPasLibVlc.dpr │ │ ├── DemoPasLibVlc │ │ │ ├── DemoPasLibVlc.res │ │ │ ├── DemoPasLibVlc.otares │ │ │ ├── DemoPasLibVlc_Icon.ico │ │ │ ├── DemoPasLibVlc.stat │ │ │ ├── MainFormUnit.dfm │ │ │ └── DemoPasLibVlc.dpr │ │ ├── DemoPasLibVlcPlayer │ │ │ ├── DemoPasLibVlcPlayer.res │ │ │ ├── DemoPasLibVlcPlayer.otares │ │ │ ├── DemoPasLibVlcPlayer_Icon.ico │ │ │ ├── DemoPasLibVlcPlayer.stat │ │ │ ├── FullScreenFormUnit.dfm │ │ │ ├── SelectOutputDeviceFormUnit.dfm │ │ │ ├── SetEqualizerPresetFormUnit.dfm │ │ │ ├── FullScreenFormUnit.pas │ │ │ └── DemoPasLibVlcPlayer.dpr │ │ └── PasLibVlcPlayer.dpk │ ├── source │ │ └── PasLibVlcUnit.txt │ ├── Delphi4 │ │ ├── PasLibVlcPlayer.res │ │ ├── DemoPasLibVlc │ │ │ ├── DemoPasLibVlc.res │ │ │ ├── MainFormUnit.dfm │ │ │ └── DemoPasLibVlc.dpr │ │ ├── DemoPasLibVlcPlayer │ │ │ ├── MainFormUnit.dfm │ │ │ ├── DemoPasLibVlcPlayer.res │ │ │ └── DemoPasLibVlcPlayer.dpr │ │ ├── PasLibVlcPlayer.dpk │ │ └── PasLibVlc.bpg │ ├── Delphi7 │ │ ├── PasLibVlcPlayer.res │ │ ├── DemoPasLibVlc │ │ │ ├── DemoPasLibVlc.dpr │ │ │ ├── DemoPasLibVlc.res │ │ │ ├── MainFormUnit.pas │ │ │ └── MainFormUnit.dfm │ │ ├── DemoPasLibVlcPlayer │ │ │ ├── MainFormUnit.pas │ │ │ ├── DemoPasLibVlcPlayer.dpr │ │ │ ├── DemoPasLibVlcPlayer.res │ │ │ ├── FullScreenFormUnit.pas │ │ │ ├── VideoAdjustFormUnit.pas │ │ │ ├── SelectOutputDeviceFormUnit.pas │ │ │ ├── SetEqualizerPresetFormUnit.pas │ │ │ ├── FullScreenFormUnit.dfm │ │ │ ├── SelectOutputDeviceFormUnit.dfm │ │ │ └── SetEqualizerPresetFormUnit.dfm │ │ ├── PasLibVlcPlayer.dpk │ │ └── PasLibVlc.bpg │ ├── Delphi2007 │ │ ├── PasLibVlcPlayer.res │ │ ├── DemoUseLog │ │ │ └── DemoUseLog.res │ │ ├── DemoPasLibVlc │ │ │ ├── DemoPasLibVlc.res │ │ │ ├── MainFormUnit.dfm │ │ │ └── DemoPasLibVlc.dpr │ │ ├── DemoPlayViaPipe │ │ │ ├── DemoPlayViaPipe.res │ │ │ ├── MainFormUnit.dfm │ │ │ └── DemoPlayViaPipe.dpr │ │ ├── DemoStreamVideo │ │ │ └── DemoStreamVideo.res │ │ ├── DemoStreamScreen │ │ │ └── DemoStreamScreen.res │ │ ├── DemoVideoCallBacks │ │ │ └── DemoVideoCallBacks.res │ │ ├── DemoPasLibVlcPlayer │ │ │ ├── DemoPasLibVlcPlayer.res │ │ │ ├── FullScreenFormUnit.dfm │ │ │ ├── SelectOutputDeviceFormUnit.dfm │ │ │ ├── SetEqualizerPresetFormUnit.dfm │ │ │ ├── FullScreenFormUnit.pas │ │ │ ├── DemoPasLibVlcPlayer.dpr │ │ │ └── SetEqualizerPresetFormUnit.pas │ │ ├── DemoPasLibVlcMediaListPlayer │ │ │ ├── DemoPasLibVlcMediaListPlayer.res │ │ │ └── DemoPasLibVlcMediaListPlayer.dpr │ │ ├── DemoPasLibVlcPlayerPauseAtStart │ │ │ ├── DemoPasLibVlcPlayerPauseAtStart.res │ │ │ ├── MainFormUnit.dfm │ │ │ ├── DemoPasLibVlcPlayerPauseAtStart.dpr │ │ │ └── MainFormUnit.pas │ │ └── PasLibVlcPlayer.dpk │ ├── source.vcl │ │ ├── PasLibVlcPlayerUnit.RES │ │ ├── PasLibVlcPlayerUnit.pas │ │ ├── TPasLibVlcPlayer16.bmp │ │ ├── TPasLibVlcPlayer24.bmp │ │ ├── TPasLibVlcMediaList16.bmp │ │ └── PasLibVlcPlayerUnit.RC │ ├── source.fmx │ │ ├── FmxPasLibVlcPlayerUnit.RES │ │ ├── FmxPasLibVlcPlayerUnit.RC │ │ └── FmxPasLibVlcPlayerUnit.txt │ └── Lazarus │ │ ├── DemoPasLibVlc │ │ ├── DemoPasLibVlc.res │ │ ├── MainFormUnit.lfm │ │ └── DemoPasLibVlc.lpr │ │ ├── lib │ │ ├── x86_64-linux │ │ │ └── PasLibVlcPlayerUnit.RES │ │ └── x86_64-win64 │ │ │ └── PasLibVlcPlayerUnit.RES │ │ ├── DemoPasLibVlcPlayer │ │ ├── DemoPasLibVlcPlayer.res │ │ ├── FullScreenFormUnit.lfm │ │ ├── SelectOutputDeviceFormUnit.lfm │ │ ├── SetEqualizerPresetFormUnit.lfm │ │ ├── DemoPasLibVlcPlayer.lpr │ │ └── FullScreenFormUnit.pas │ │ ├── DemoPasLibVlcMediaListPlayer │ │ ├── DemoPasLibVlcMediaListPlayer.res │ │ └── DemoPasLibVlcMediaListPlayer.lpr │ │ ├── DemoPasLibVlcPlayerPauseAtStart │ │ ├── DemoPasLivVlcPlayerPauseAtStart.res │ │ ├── MainFormUnit.lfm │ │ └── DemoPasLivVlcPlayerPauseAtStart.lpr │ │ ├── PasLibVlcPlayer.pas │ │ ├── fpmake.pp │ │ ├── Makefile.fpc │ │ └── PasLibVlcPlayer.lpk └── vlc │ ├── test │ ├── testlcl.ico │ ├── testlcl.res │ ├── testlcl.lpr │ ├── frmmain.pp │ └── frmmain.lfm │ ├── tlclvlcplayer.png │ ├── tvlcmedialistplayer.png │ ├── vlcqt.inc │ ├── vlcgtk2.inc │ ├── reglazvlc.pas │ ├── lazvlc.pas │ ├── README.txt │ └── lazvlc.lpk ├── pixmaps ├── main.ico ├── main.png ├── Thumbs.db ├── main16.png ├── main32.png ├── main64.png ├── LazView.png ├── MAIN-ICON.png ├── MAIN-ICON.psd ├── curleft.cur ├── curright.cur ├── main128.png ├── main256.png └── MAIN-ICON.psd.png ├── README.md ├── .github ├── dependabot.yml └── workflows │ └── make.yml ├── .gitignore ├── ppas.sh ├── ppas.bat └── clean.bat /src/fquality.lrt: -------------------------------------------------------------------------------- 1 | TFORM3.LABEL1.CAPTION=100 2 | -------------------------------------------------------------------------------- /src/unit3.lrt: -------------------------------------------------------------------------------- 1 | TFORM3.LABEL1.CAPTION=100 2 | -------------------------------------------------------------------------------- /src/Thumbs.db: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/src/Thumbs.db -------------------------------------------------------------------------------- /use/components.txt: -------------------------------------------------------------------------------- 1 | DExif 2 | VampyreImaging 3 | BGRABitmap 4 | Abbrevia 5 | -------------------------------------------------------------------------------- /pixmaps/main.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/pixmaps/main.ico -------------------------------------------------------------------------------- /pixmaps/main.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/pixmaps/main.png -------------------------------------------------------------------------------- /src/lazview.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/src/lazview.ico -------------------------------------------------------------------------------- /README.md: -------------------------------------------------------------------------------- 1 | # LazView is a simple imagen viewer writen in Free Pascal and Lazarus 2 | -------------------------------------------------------------------------------- /pixmaps/Thumbs.db: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/pixmaps/Thumbs.db -------------------------------------------------------------------------------- /pixmaps/main16.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/pixmaps/main16.png -------------------------------------------------------------------------------- /pixmaps/main32.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/pixmaps/main32.png -------------------------------------------------------------------------------- /pixmaps/main64.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/pixmaps/main64.png -------------------------------------------------------------------------------- /src/fgoto.lrt: -------------------------------------------------------------------------------- 1 | TFORM5.EDIT1.TEXT=0 2 | TFORM5.LABEL1.CAPTION=Numero de la imagen: 3 | -------------------------------------------------------------------------------- /src/unit5.lrt: -------------------------------------------------------------------------------- 1 | TFORM5.EDIT1.TEXT=0 2 | TFORM5.LABEL1.CAPTION=Numero de la imagen: 3 | -------------------------------------------------------------------------------- /pixmaps/LazView.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/pixmaps/LazView.png -------------------------------------------------------------------------------- /pixmaps/MAIN-ICON.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/pixmaps/MAIN-ICON.png -------------------------------------------------------------------------------- /pixmaps/MAIN-ICON.psd: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/pixmaps/MAIN-ICON.psd -------------------------------------------------------------------------------- /pixmaps/curleft.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/pixmaps/curleft.cur -------------------------------------------------------------------------------- /pixmaps/curright.cur: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/pixmaps/curright.cur -------------------------------------------------------------------------------- /pixmaps/main128.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/pixmaps/main128.png -------------------------------------------------------------------------------- /pixmaps/main256.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/pixmaps/main256.png -------------------------------------------------------------------------------- /use/PasLibVlc/logo1.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/logo1.png -------------------------------------------------------------------------------- /use/PasLibVlc/logo2.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/logo2.png -------------------------------------------------------------------------------- /pixmaps/MAIN-ICON.psd.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/pixmaps/MAIN-ICON.psd.png -------------------------------------------------------------------------------- /use/vlc/test/testlcl.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/vlc/test/testlcl.ico -------------------------------------------------------------------------------- /use/vlc/test/testlcl.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/vlc/test/testlcl.res -------------------------------------------------------------------------------- /use/vlc/tlclvlcplayer.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/vlc/tlclvlcplayer.png -------------------------------------------------------------------------------- /use/vlc/tvlcmedialistplayer.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/vlc/tvlcmedialistplayer.png -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE10/PasLibVlc_prjgroup.tvsconfig: -------------------------------------------------------------------------------- 1 | 2 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE7/PasLibVlc_prjgroup.tvsconfig: -------------------------------------------------------------------------------- 1 | 2 | -------------------------------------------------------------------------------- /use/PasLibVlc/source/PasLibVlcUnit.txt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/source/PasLibVlcUnit.txt -------------------------------------------------------------------------------- /use/PasLibVlc/Delphi4/PasLibVlcPlayer.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/Delphi4/PasLibVlcPlayer.res -------------------------------------------------------------------------------- /use/PasLibVlc/Delphi7/PasLibVlcPlayer.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/Delphi7/PasLibVlcPlayer.res -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE10/FmxDemoPasLibVlcPlayer/FmxDemoPasLibVlcPlayer._@emb_.tmp: -------------------------------------------------------------------------------- 1 | FmxDemoPasLibVlcPlayer\FmxDemoPasLibVlcPlayer.exe 2 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE7/FmxDemoPasLibVlcPlayer/FmxDemoPasLibVlcPlayer._@emb_.tmp: -------------------------------------------------------------------------------- 1 | FmxDemoPasLibVlcPlayer\FmxDemoPasLibVlcPlayer.exe 2 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE7/PasLibVlcPlayer.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/DelphiXE7/PasLibVlcPlayer.res -------------------------------------------------------------------------------- /src/fexif.lrj: -------------------------------------------------------------------------------- 1 | {"version":1,"strings":[ 2 | {"hash":306390,"name":"tfrexif.caption","sourcebytes":[69,88,73,70],"value":"EXIF"} 3 | ]} 4 | -------------------------------------------------------------------------------- /use/PasLibVlc/Delphi2007/PasLibVlcPlayer.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/Delphi2007/PasLibVlcPlayer.res -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE10/PasLibVlcPlayer.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/DelphiXE10/PasLibVlcPlayer.res -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE7/PasLibVlcPlayerFmx.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/DelphiXE7/PasLibVlcPlayerFmx.res -------------------------------------------------------------------------------- /src/unit2.lrt: -------------------------------------------------------------------------------- 1 | TFORM2.CAPTION=Redimensionar 2 | TFORM2.LABEL1.CAPTION=Ancho: 3 | TFORM2.LABEL2.CAPTION=Alto: 4 | TFORM2.TOGGLEBOX1.CAPTION=] 5 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE10/PasLibVlcPlayerFmx.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/DelphiXE10/PasLibVlcPlayerFmx.res -------------------------------------------------------------------------------- /use/PasLibVlc/source.vcl/PasLibVlcPlayerUnit.RES: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/source.vcl/PasLibVlcPlayerUnit.RES -------------------------------------------------------------------------------- /use/PasLibVlc/source.vcl/PasLibVlcPlayerUnit.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/source.vcl/PasLibVlcPlayerUnit.pas -------------------------------------------------------------------------------- /use/PasLibVlc/source.vcl/TPasLibVlcPlayer16.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/source.vcl/TPasLibVlcPlayer16.bmp -------------------------------------------------------------------------------- /use/PasLibVlc/source.vcl/TPasLibVlcPlayer24.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/source.vcl/TPasLibVlcPlayer24.bmp -------------------------------------------------------------------------------- /src/fresize.lrt: -------------------------------------------------------------------------------- 1 | TFORM2.CAPTION=Redimensionar 2 | TFORM2.LABEL1.CAPTION=Ancho: 3 | TFORM2.LABEL2.CAPTION=Alto: 4 | TFORM2.TOGGLEBOX1.CAPTION=] 5 | -------------------------------------------------------------------------------- /use/PasLibVlc/Delphi2007/DemoUseLog/DemoUseLog.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/Delphi2007/DemoUseLog/DemoUseLog.res -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE7/FmxDemoPasLibVlc/MainFormUnit.Windows.fmx: -------------------------------------------------------------------------------- 1 | inherited MainForm_Windows: TMainForm_Windows 2 | DesignerMasterStyle = 0 3 | end 4 | -------------------------------------------------------------------------------- /use/PasLibVlc/source.fmx/FmxPasLibVlcPlayerUnit.RES: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/source.fmx/FmxPasLibVlcPlayerUnit.RES -------------------------------------------------------------------------------- /use/PasLibVlc/source.vcl/TPasLibVlcMediaList16.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/source.vcl/TPasLibVlcMediaList16.bmp -------------------------------------------------------------------------------- /use/PasLibVlc/Delphi4/DemoPasLibVlc/DemoPasLibVlc.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/Delphi4/DemoPasLibVlc/DemoPasLibVlc.res -------------------------------------------------------------------------------- /use/PasLibVlc/Delphi4/DemoPasLibVlc/MainFormUnit.dfm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/Delphi4/DemoPasLibVlc/MainFormUnit.dfm -------------------------------------------------------------------------------- /use/PasLibVlc/Delphi7/DemoPasLibVlc/DemoPasLibVlc.dpr: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/Delphi7/DemoPasLibVlc/DemoPasLibVlc.dpr -------------------------------------------------------------------------------- /use/PasLibVlc/Delphi7/DemoPasLibVlc/DemoPasLibVlc.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/Delphi7/DemoPasLibVlc/DemoPasLibVlc.res -------------------------------------------------------------------------------- /use/PasLibVlc/Delphi7/DemoPasLibVlc/MainFormUnit.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/Delphi7/DemoPasLibVlc/MainFormUnit.pas -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE10/FmxDemoPasLibVlc/MainFormUnit.Windows.fmx: -------------------------------------------------------------------------------- 1 | inherited MainForm_Windows: TMainForm_Windows 2 | DesignerMasterStyle = 0 3 | end 4 | -------------------------------------------------------------------------------- /use/PasLibVlc/Lazarus/DemoPasLibVlc/DemoPasLibVlc.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/Lazarus/DemoPasLibVlc/DemoPasLibVlc.res -------------------------------------------------------------------------------- /use/PasLibVlc/source.vcl/PasLibVlcPlayerUnit.RC: -------------------------------------------------------------------------------- 1 | TPasLibVlcPlayer BITMAP "TPasLibVlcPlayer16.bmp" 2 | TPasLibVlcMediaList BITMAP "TPasLibVlcMediaList16.bmp" -------------------------------------------------------------------------------- /use/PasLibVlc/Delphi2007/DemoPasLibVlc/DemoPasLibVlc.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/Delphi2007/DemoPasLibVlc/DemoPasLibVlc.res -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE10/DemoPasLibVlc/DemoPasLibVlc.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/DelphiXE10/DemoPasLibVlc/DemoPasLibVlc.res -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE10/FmxDemoPasLibVlcPlayer/MainFormUnit.Windows.fmx: -------------------------------------------------------------------------------- 1 | inherited MainForm_Windows: TMainForm_Windows 2 | DesignerMasterStyle = 0 3 | end 4 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE7/DemoPasLibVlc/DemoPasLibVlc.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/DelphiXE7/DemoPasLibVlc/DemoPasLibVlc.res -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE7/FmxDemoPasLibVlcPlayer/MainFormUnit.Windows.fmx: -------------------------------------------------------------------------------- 1 | inherited MainForm_Windows: TMainForm_Windows 2 | DesignerMasterStyle = 0 3 | end 4 | -------------------------------------------------------------------------------- /use/PasLibVlc/source.fmx/FmxPasLibVlcPlayerUnit.RC: -------------------------------------------------------------------------------- 1 | TFmxPasLibVlcPlayer BITMAP "TPasLibVlcPlayer16.bmp" 2 | TFmxPasLibVlcMediaList BITMAP "TPasLibVlcMediaList16.bmp" -------------------------------------------------------------------------------- /use/PasLibVlc/Delphi4/DemoPasLibVlcPlayer/MainFormUnit.dfm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/Delphi4/DemoPasLibVlcPlayer/MainFormUnit.dfm -------------------------------------------------------------------------------- /use/PasLibVlc/Delphi7/DemoPasLibVlcPlayer/MainFormUnit.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/Delphi7/DemoPasLibVlcPlayer/MainFormUnit.pas -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE10/FmxDemoPasLibVlcPlayer/MainFormUnit.Macintosh.fmx: -------------------------------------------------------------------------------- 1 | inherited MainForm_Macintosh: TMainForm_Macintosh 2 | DesignerMasterStyle = 0 3 | end 4 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE7/DemoPasLibVlc/DemoPasLibVlc.otares: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/DelphiXE7/DemoPasLibVlc/DemoPasLibVlc.otares -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE7/FmxDemoPasLibVlcPlayer/MainFormUnit.Macintosh.fmx: -------------------------------------------------------------------------------- 1 | inherited MainForm_Macintosh: TMainForm_Macintosh 2 | DesignerMasterStyle = 0 3 | end 4 | -------------------------------------------------------------------------------- /.github/dependabot.yml: -------------------------------------------------------------------------------- 1 | --- 2 | version: 2 3 | updates: 4 | - package-ecosystem: "github-actions" 5 | directory: "/" 6 | schedule: 7 | interval: "monthly" 8 | -------------------------------------------------------------------------------- /use/PasLibVlc/Delphi2007/DemoPlayViaPipe/DemoPlayViaPipe.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/Delphi2007/DemoPlayViaPipe/DemoPlayViaPipe.res -------------------------------------------------------------------------------- /use/PasLibVlc/Delphi2007/DemoStreamVideo/DemoStreamVideo.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/Delphi2007/DemoStreamVideo/DemoStreamVideo.res -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE10/DemoPasLibVlc/DemoPasLibVlc.otares: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/DelphiXE10/DemoPasLibVlc/DemoPasLibVlc.otares -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE10/DemoPasLibVlc/DemoPasLibVlc_Icon.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/DelphiXE10/DemoPasLibVlc/DemoPasLibVlc_Icon.ico -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE7/DemoPasLibVlc/DemoPasLibVlc_Icon.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/DelphiXE7/DemoPasLibVlc/DemoPasLibVlc_Icon.ico -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE7/FmxDemoPasLibVlc/FmxDemoPasLibVlc.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/DelphiXE7/FmxDemoPasLibVlc/FmxDemoPasLibVlc.res -------------------------------------------------------------------------------- /use/PasLibVlc/Delphi2007/DemoStreamScreen/DemoStreamScreen.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/Delphi2007/DemoStreamScreen/DemoStreamScreen.res -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE10/FmxDemoPasLibVlc/FmxDemoPasLibVlc.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/DelphiXE10/FmxDemoPasLibVlc/FmxDemoPasLibVlc.res -------------------------------------------------------------------------------- /use/PasLibVlc/Lazarus/lib/x86_64-linux/PasLibVlcPlayerUnit.RES: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/Lazarus/lib/x86_64-linux/PasLibVlcPlayerUnit.RES -------------------------------------------------------------------------------- /use/PasLibVlc/Lazarus/lib/x86_64-win64/PasLibVlcPlayerUnit.RES: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/Lazarus/lib/x86_64-win64/PasLibVlcPlayerUnit.RES -------------------------------------------------------------------------------- /use/PasLibVlc/Delphi2007/DemoVideoCallBacks/DemoVideoCallBacks.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/Delphi2007/DemoVideoCallBacks/DemoVideoCallBacks.res -------------------------------------------------------------------------------- /use/PasLibVlc/Delphi4/DemoPasLibVlcPlayer/DemoPasLibVlcPlayer.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/Delphi4/DemoPasLibVlcPlayer/DemoPasLibVlcPlayer.res -------------------------------------------------------------------------------- /use/PasLibVlc/Delphi7/DemoPasLibVlcPlayer/DemoPasLibVlcPlayer.dpr: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/Delphi7/DemoPasLibVlcPlayer/DemoPasLibVlcPlayer.dpr -------------------------------------------------------------------------------- /use/PasLibVlc/Delphi7/DemoPasLibVlcPlayer/DemoPasLibVlcPlayer.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/Delphi7/DemoPasLibVlcPlayer/DemoPasLibVlcPlayer.res -------------------------------------------------------------------------------- /use/PasLibVlc/Delphi7/DemoPasLibVlcPlayer/FullScreenFormUnit.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/Delphi7/DemoPasLibVlcPlayer/FullScreenFormUnit.pas -------------------------------------------------------------------------------- /use/PasLibVlc/Delphi7/DemoPasLibVlcPlayer/VideoAdjustFormUnit.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/Delphi7/DemoPasLibVlcPlayer/VideoAdjustFormUnit.pas -------------------------------------------------------------------------------- /use/PasLibVlc/Lazarus/DemoPasLibVlcPlayer/DemoPasLibVlcPlayer.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/Lazarus/DemoPasLibVlcPlayer/DemoPasLibVlcPlayer.res -------------------------------------------------------------------------------- /use/PasLibVlc/Delphi2007/DemoPasLibVlcPlayer/DemoPasLibVlcPlayer.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/Delphi2007/DemoPasLibVlcPlayer/DemoPasLibVlcPlayer.res -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE10/DemoPasLibVlcPlayer/DemoPasLibVlcPlayer.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/DelphiXE10/DemoPasLibVlcPlayer/DemoPasLibVlcPlayer.res -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE7/DemoPasLibVlcPlayer/DemoPasLibVlcPlayer.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/DelphiXE7/DemoPasLibVlcPlayer/DemoPasLibVlcPlayer.res -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE10/DemoPasLibVlcPlayer/DemoPasLibVlcPlayer.otares: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/DelphiXE10/DemoPasLibVlcPlayer/DemoPasLibVlcPlayer.otares -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE7/DemoPasLibVlcPlayer/DemoPasLibVlcPlayer.otares: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/DelphiXE7/DemoPasLibVlcPlayer/DemoPasLibVlcPlayer.otares -------------------------------------------------------------------------------- /use/PasLibVlc/Delphi7/DemoPasLibVlcPlayer/SelectOutputDeviceFormUnit.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/Delphi7/DemoPasLibVlcPlayer/SelectOutputDeviceFormUnit.pas -------------------------------------------------------------------------------- /use/PasLibVlc/Delphi7/DemoPasLibVlcPlayer/SetEqualizerPresetFormUnit.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/Delphi7/DemoPasLibVlcPlayer/SetEqualizerPresetFormUnit.pas -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE10/DemoPasLibVlcPlayer/DemoPasLibVlcPlayer_Icon.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/DelphiXE10/DemoPasLibVlcPlayer/DemoPasLibVlcPlayer_Icon.ico -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE10/FmxDemoPasLibVlc/MainFormUnit.iPad.fmx: -------------------------------------------------------------------------------- 1 | inherited MainForm_iPad: TMainForm_iPad 2 | ClientHeight = 1004 3 | ClientWidth = 768 4 | DesignerMasterStyle = 0 5 | end 6 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE7/DemoPasLibVlcPlayer/DemoPasLibVlcPlayer_Icon.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/DelphiXE7/DemoPasLibVlcPlayer/DemoPasLibVlcPlayer_Icon.ico -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE7/FmxDemoPasLibVlc/MainFormUnit.iPad.fmx: -------------------------------------------------------------------------------- 1 | inherited MainForm_iPad: TMainForm_iPad 2 | ClientHeight = 1004 3 | ClientWidth = 768 4 | DesignerMasterStyle = 0 5 | end 6 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE7/FmxDemoPasLibVlcPlayer/FmxDemoPasLibVlcPlayer.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/DelphiXE7/FmxDemoPasLibVlcPlayer/FmxDemoPasLibVlcPlayer.res -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE10/FmxDemoPasLibVlcPlayer/FmxDemoPasLibVlcPlayer.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/DelphiXE10/FmxDemoPasLibVlcPlayer/FmxDemoPasLibVlcPlayer.res -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE10/FmxDemoPasLibVlc/MainFormUnit.Surface.fmx: -------------------------------------------------------------------------------- 1 | inherited MainForm_Surface: TMainForm_Surface 2 | ClientHeight = 1920 3 | ClientWidth = 1080 4 | DesignerMasterStyle = 0 5 | end 6 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE7/FmxDemoPasLibVlc/MainFormUnit.LgXhdpiPh.fmx: -------------------------------------------------------------------------------- 1 | inherited MainForm_LgXhdpiPh: TMainForm_LgXhdpiPh 2 | ClientHeight = 695 3 | ClientWidth = 450 4 | DesignerMasterStyle = 0 5 | end 6 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE7/FmxDemoPasLibVlc/MainFormUnit.SmXhdpiPh.fmx: -------------------------------------------------------------------------------- 1 | inherited MainForm_SmXhdpiPh: TMainForm_SmXhdpiPh 2 | ClientHeight = 375 3 | ClientWidth = 250 4 | DesignerMasterStyle = 0 5 | end 6 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE7/FmxDemoPasLibVlc/MainFormUnit.Surface.fmx: -------------------------------------------------------------------------------- 1 | inherited MainForm_Surface: TMainForm_Surface 2 | ClientHeight = 1920 3 | ClientWidth = 1080 4 | DesignerMasterStyle = 0 5 | end 6 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE10/FmxDemoPasLibVlc/MainFormUnit.LgXhdpiPh.fmx: -------------------------------------------------------------------------------- 1 | inherited MainForm_LgXhdpiPh: TMainForm_LgXhdpiPh 2 | ClientHeight = 695 3 | ClientWidth = 450 4 | DesignerMasterStyle = 0 5 | end 6 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE10/FmxDemoPasLibVlc/MainFormUnit.SmXhdpiPh.fmx: -------------------------------------------------------------------------------- 1 | inherited MainForm_SmXhdpiPh: TMainForm_SmXhdpiPh 2 | ClientHeight = 375 3 | ClientWidth = 250 4 | DesignerMasterStyle = 0 5 | end 6 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE10/FmxDemoPasLibVlc/MainFormUnit.iPhone55in.fmx: -------------------------------------------------------------------------------- 1 | inherited MainForm_iPhone55in: TMainForm_iPhone55in 2 | ClientHeight = 716 3 | ClientWidth = 414 4 | DesignerMasterStyle = 0 5 | end 6 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE7/FmxDemoPasLibVlc/MainFormUnit.iPhone55in.fmx: -------------------------------------------------------------------------------- 1 | inherited MainForm_iPhone55in: TMainForm_iPhone55in 2 | ClientHeight = 716 3 | ClientWidth = 414 4 | DesignerMasterStyle = 0 5 | end 6 | -------------------------------------------------------------------------------- /use/PasLibVlc/Lazarus/DemoPasLibVlcMediaListPlayer/DemoPasLibVlcMediaListPlayer.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/Lazarus/DemoPasLibVlcMediaListPlayer/DemoPasLibVlcMediaListPlayer.res -------------------------------------------------------------------------------- /use/PasLibVlc/Delphi2007/DemoPasLibVlcMediaListPlayer/DemoPasLibVlcMediaListPlayer.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/Delphi2007/DemoPasLibVlcMediaListPlayer/DemoPasLibVlcMediaListPlayer.res -------------------------------------------------------------------------------- /use/PasLibVlc/Lazarus/DemoPasLibVlcPlayerPauseAtStart/DemoPasLivVlcPlayerPauseAtStart.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/Lazarus/DemoPasLibVlcPlayerPauseAtStart/DemoPasLivVlcPlayerPauseAtStart.res -------------------------------------------------------------------------------- /use/PasLibVlc/Delphi2007/DemoPasLibVlcPlayerPauseAtStart/DemoPasLibVlcPlayerPauseAtStart.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Nenirey/LazView/HEAD/use/PasLibVlc/Delphi2007/DemoPasLibVlcPlayerPauseAtStart/DemoPasLibVlcPlayerPauseAtStart.res -------------------------------------------------------------------------------- /src/fquality.lrj: -------------------------------------------------------------------------------- 1 | {"version":1,"strings":[ 2 | {"hash":146288873,"name":"tform3.caption","sourcebytes":[81,117,97,108,105,116,121],"value":"Quality"}, 3 | {"hash":13360,"name":"tform3.label1.caption","sourcebytes":[49,48,48],"value":"100"} 4 | ]} 5 | -------------------------------------------------------------------------------- /src/unit3.lrj: -------------------------------------------------------------------------------- 1 | {"version":1,"strings":[ 2 | {"hash":146288873,"name":"tform3.caption","sourcebytes":[81,117,97,108,105,116,121],"value":"Quality"}, 3 | {"hash":13360,"name":"tform3.label1.caption","sourcebytes":[49,48,48],"value":"100"} 4 | ]} 5 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE10/PasLibVlcPlayer.stat: -------------------------------------------------------------------------------- 1 | [Stats] 2 | EditorSecs=18738 3 | DesignerSecs=175 4 | InspectorSecs=46 5 | CompileSecs=813734 6 | OtherSecs=2646 7 | StartTime=17.07.2017 20:12:09 8 | RealKeys=0 9 | EffectiveKeys=0 10 | DebugSecs=1 11 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE7/DemoPasLibVlc/DemoPasLibVlc.stat: -------------------------------------------------------------------------------- 1 | [Stats] 2 | EditorSecs=1765 3 | DesignerSecs=51 4 | InspectorSecs=18 5 | CompileSecs=116523 6 | OtherSecs=470 7 | StartTime=17.07.2017 20:12:37 8 | RealKeys=0 9 | EffectiveKeys=0 10 | DebugSecs=908 11 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE10/DemoPasLibVlc/DemoPasLibVlc.stat: -------------------------------------------------------------------------------- 1 | [Stats] 2 | EditorSecs=14515 3 | DesignerSecs=142 4 | InspectorSecs=18 5 | CompileSecs=541004 6 | OtherSecs=1828 7 | StartTime=17.07.2017 20:12:37 8 | RealKeys=0 9 | EffectiveKeys=0 10 | DebugSecs=3727 11 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE7/FmxDemoPasLibVlc/FmxDemoPasLibVlc.stat: -------------------------------------------------------------------------------- 1 | [Stats] 2 | EditorSecs=591 3 | DesignerSecs=3 4 | InspectorSecs=3 5 | CompileSecs=102389 6 | OtherSecs=156 7 | StartTime=17.07.2017 20:15:35 8 | RealKeys=0 9 | EffectiveKeys=0 10 | DebugSecs=662 11 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE10/FmxDemoPasLibVlc/FmxDemoPasLibVlc.stat: -------------------------------------------------------------------------------- 1 | [Stats] 2 | EditorSecs=4346 3 | DesignerSecs=23 4 | InspectorSecs=3 5 | CompileSecs=267648 6 | OtherSecs=517 7 | StartTime=17.07.2017 20:15:35 8 | RealKeys=0 9 | EffectiveKeys=0 10 | DebugSecs=1112 11 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE10/DemoPasLibVlcPlayer/DemoPasLibVlcPlayer.stat: -------------------------------------------------------------------------------- 1 | [Stats] 2 | EditorSecs=5887 3 | DesignerSecs=248 4 | InspectorSecs=40 5 | CompileSecs=354056 6 | OtherSecs=991 7 | StartTime=17.07.2017 20:14:23 8 | RealKeys=0 9 | EffectiveKeys=0 10 | DebugSecs=1420 11 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE7/DemoPasLibVlcPlayer/DemoPasLibVlcPlayer.stat: -------------------------------------------------------------------------------- 1 | [Stats] 2 | EditorSecs=756 3 | DesignerSecs=33 4 | InspectorSecs=11 5 | CompileSecs=162462 6 | OtherSecs=197 7 | StartTime=17.07.2017 20:14:23 8 | RealKeys=0 9 | EffectiveKeys=0 10 | DebugSecs=159 11 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE10/FmxDemoPasLibVlcPlayer/FmxDemoPasLibVlcPlayer.stat: -------------------------------------------------------------------------------- 1 | [Stats] 2 | EditorSecs=28829 3 | DesignerSecs=433 4 | InspectorSecs=101 5 | CompileSecs=876727 6 | OtherSecs=3266 7 | StartTime=17.07.2017 20:16:35 8 | RealKeys=0 9 | EffectiveKeys=0 10 | DebugSecs=14652 11 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE7/FmxDemoPasLibVlcPlayer/FmxDemoPasLibVlcPlayer.stat: -------------------------------------------------------------------------------- 1 | [Stats] 2 | EditorSecs=20860 3 | DesignerSecs=377 4 | InspectorSecs=101 5 | CompileSecs=508013 6 | OtherSecs=2505 7 | StartTime=17.07.2017 20:16:35 8 | RealKeys=0 9 | EffectiveKeys=0 10 | DebugSecs=12879 11 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE10/FmxDemoPasLibVlc/Entitlement.TemplateOSX32.xml: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | <%appSandboxKeys%> 6 | 7 | 8 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE7/FmxDemoPasLibVlc/Entitlement.TemplateOSX32.xml: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | <%appSandboxKeys%> 6 | 7 | 8 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE10/FmxDemoPasLibVlcPlayer/Entitlement.TemplateOSX32.xml: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | <%appSandboxKeys%> 6 | 7 | 8 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE7/FmxDemoPasLibVlcPlayer/Entitlement.TemplateOSX32.xml: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | <%appSandboxKeys%> 6 | 7 | 8 | -------------------------------------------------------------------------------- /src/fpass.lrj: -------------------------------------------------------------------------------- 1 | {"version":1,"strings":[ 2 | {"hash":218539300,"name":"tfrpass.caption","sourcebytes":[69,110,116,101,114,32,112,97,115,115,119,111,114,100],"value":"Enter password"}, 3 | {"hash":179191546,"name":"tfrpass.label1.caption","sourcebytes":[80,97,115,115,119,111,114,100,58],"value":"Password:"} 4 | ]} 5 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE10/FmxDemoPasLibVlcPlayer/info.plist.TemplateOSX.xml: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | <%VersionInfoPListKeys%> 6 | <%ExtraInfoPListKeys%> 7 | 8 | 9 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE7/FmxDemoPasLibVlcPlayer/info.plist.TemplateOSX.xml: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | <%VersionInfoPListKeys%> 6 | <%ExtraInfoPListKeys%> 7 | 8 | 9 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE10/FmxDemoPasLibVlc/FmxDemoPasLibVlc._@emb_.tmp: -------------------------------------------------------------------------------- 1 | FmxDemoPasLibVlc.app\../\FmxDemoPasLibVlc.entitlements 2 | FmxDemoPasLibVlc.app\Contents\MacOS\libcgunwind.1.0.dylib 3 | FmxDemoPasLibVlc.app\Contents\Resources\FmxDemoPasLibVlc.icns 4 | FmxDemoPasLibVlc.app\Contents\Info.plist 5 | FmxDemoPasLibVlc.app\Contents\MacOS\FmxDemoPasLibVlc 6 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE7/FmxDemoPasLibVlc/FmxDemoPasLibVlc._@emb_.tmp: -------------------------------------------------------------------------------- 1 | FmxDemoPasLibVlc.app\../\FmxDemoPasLibVlc.entitlements 2 | FmxDemoPasLibVlc.app\Contents\MacOS\libcgunwind.1.0.dylib 3 | FmxDemoPasLibVlc.app\Contents\Resources\FmxDemoPasLibVlc.icns 4 | FmxDemoPasLibVlc.app\Contents\Info.plist 5 | FmxDemoPasLibVlc.app\Contents\MacOS\FmxDemoPasLibVlc 6 | -------------------------------------------------------------------------------- /use/vlc/vlcqt.inc: -------------------------------------------------------------------------------- 1 | {%MainUnit lclvlc.pp} 2 | 3 | uses qt45; 4 | 5 | Function GetXHandle(AWinControl : TWinControl) : culong; 6 | 7 | var 8 | Widget: PGtkWidget; 9 | begin 10 | Result:=0; 11 | if (AWinControl=nil) or (not AWinControl.HandleAllocated) then exit; 12 | Result:=QWidget_winID(TQtWidget(AWinControl.Handle).Widget); 13 | end; 14 | 15 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE10/FmxDemoPasLibVlc/PlayFormUnit.fmx: -------------------------------------------------------------------------------- 1 | object PlayForm: TPlayForm 2 | Left = 0 3 | Top = 0 4 | Border.Styling = False 5 | BorderIcons = [] 6 | Caption = 'Form1' 7 | ClientHeight = 200 8 | ClientWidth = 200 9 | FormFactor.Width = 320 10 | FormFactor.Height = 480 11 | FormFactor.Devices = [Desktop] 12 | DesignerMasterStyle = 0 13 | end 14 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE7/FmxDemoPasLibVlc/PlayFormUnit.fmx: -------------------------------------------------------------------------------- 1 | object PlayForm: TPlayForm 2 | Left = 0 3 | Top = 0 4 | Border.Styling = False 5 | BorderIcons = [] 6 | Caption = 'Form1' 7 | ClientHeight = 200 8 | ClientWidth = 200 9 | FormFactor.Width = 320 10 | FormFactor.Height = 480 11 | FormFactor.Devices = [Desktop] 12 | DesignerMasterStyle = 0 13 | end 14 | -------------------------------------------------------------------------------- /src/unit6.lrj: -------------------------------------------------------------------------------- 1 | {"version":1,"strings":[ 2 | {"hash":2364117,"name":"tform6.caption","sourcebytes":[84,104,117,109,98,110,97,105,108,32,115,105,122,101],"value":"Thumbnail size"}, 3 | {"hash":214085337,"name":"tform6.label1.caption","sourcebytes":[84,104,117,109,98,110,97,105,108,32,115,105,122,101,32,40,119,105,116,104,32,120,32,104,101,105,103,104,116,41],"value":"Thumbnail size (with x height)"} 4 | ]} 5 | -------------------------------------------------------------------------------- /src/fthumbsize.lrj: -------------------------------------------------------------------------------- 1 | {"version":1,"strings":[ 2 | {"hash":2364117,"name":"tfrthumbsize.caption","sourcebytes":[84,104,117,109,98,110,97,105,108,32,115,105,122,101],"value":"Thumbnail size"}, 3 | {"hash":214085337,"name":"tfrthumbsize.label1.caption","sourcebytes":[84,104,117,109,98,110,97,105,108,32,115,105,122,101,32,40,119,105,116,104,32,120,32,104,101,105,103,104,116,41],"value":"Thumbnail size (with x height)"} 4 | ]} 5 | -------------------------------------------------------------------------------- /src/fexif.pas: -------------------------------------------------------------------------------- 1 | unit fexif; 2 | 3 | {$mode objfpc}{$H+} 4 | 5 | interface 6 | 7 | uses 8 | Forms, ValEdit; 9 | 10 | type 11 | 12 | { Tfrexif } 13 | 14 | Tfrexif = class(TForm) 15 | ValueListEditor1: TValueListEditor; 16 | private 17 | 18 | public 19 | 20 | end; 21 | 22 | var 23 | frexif: Tfrexif; 24 | 25 | implementation 26 | 27 | {$R *.lfm} 28 | 29 | end. 30 | 31 | -------------------------------------------------------------------------------- /.gitignore: -------------------------------------------------------------------------------- 1 | # C extensions 2 | *.so 3 | 4 | # Unit test / coverage reports 5 | use/*/ 6 | htmlcov/ 7 | .tox/ 8 | .coverage 9 | .cache 10 | nosetests.xml 11 | coverage.xml 12 | 13 | # Translations 14 | *.mo 15 | *.pot 16 | 17 | # other stuff: 18 | *.log 19 | 20 | # Sphinx documentation 21 | docs/_build/ 22 | 23 | #KDE 24 | .directory 25 | 26 | #Residual pascal files 27 | *.o 28 | *.bak 29 | *.ppu 30 | *.old 31 | **.compiled 32 | -------------------------------------------------------------------------------- /src/unit5.lrj: -------------------------------------------------------------------------------- 1 | {"version":1,"strings":[ 2 | {"hash":65677486,"name":"tform5.caption","sourcebytes":[71,111,32,116,111,32,105,109,97,103,101,32,110,117,109,98,101,114,46,46,46],"value":"Go to image number..."}, 3 | {"hash":48,"name":"tform5.edit1.text","sourcebytes":[48],"value":"0"}, 4 | {"hash":128182794,"name":"tform5.label1.caption","sourcebytes":[71,111,32,116,111,32,105,109,97,103,101,32,110,117,109,98,101,114,58],"value":"Go to image number:"} 5 | ]} 6 | -------------------------------------------------------------------------------- /src/fgoto.lrj: -------------------------------------------------------------------------------- 1 | {"version":1,"strings":[ 2 | {"hash":65677486,"name":"tfrgoto.caption","sourcebytes":[71,111,32,116,111,32,105,109,97,103,101,32,110,117,109,98,101,114,46,46,46],"value":"Go to image number..."}, 3 | {"hash":48,"name":"tfrgoto.edit1.text","sourcebytes":[48],"value":"0"}, 4 | {"hash":128182794,"name":"tfrgoto.label1.caption","sourcebytes":[71,111,32,116,111,32,105,109,97,103,101,32,110,117,109,98,101,114,58],"value":"Go to image number:"} 5 | ]} 6 | -------------------------------------------------------------------------------- /use/vlc/vlcgtk2.inc: -------------------------------------------------------------------------------- 1 | {%MainUnit lclvlc.pp} 2 | 3 | uses gtk2proc, gtk2extra, ctypes, gtk2; 4 | 5 | Function GetXHandle(AWinControl : TWinControl) : culong; 6 | 7 | var 8 | Widget: PGtkWidget; 9 | begin 10 | Result:=0; 11 | if (AWinControl=nil) or (not AWinControl.HandleAllocated) then exit; 12 | Widget:={%H-}PGtkWidget(AWinControl.Handle); 13 | if Widget^.window = nil then exit; 14 | Result := gdk_window_xwindow(Widget^.window); 15 | end; 16 | 17 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE10/FmxDemoPasLibVlcPlayer/MainFormUnit.iPad.fmx: -------------------------------------------------------------------------------- 1 | inherited MainForm_iPad: TMainForm_iPad 2 | ClientHeight = 1004 3 | ClientWidth = 768 4 | DesignerMasterStyle = 0 5 | inherited Panel1: TPanel 6 | Position.X = 648.000000000000000000 7 | Size.Height = 1004.000000000000000000 8 | end 9 | inherited FmxPasLibVlcPlayer1: TFmxPasLibVlcPlayer 10 | Size.Width = 648.000000000000000000 11 | Size.Height = 1004.000000000000000000 12 | end 13 | end 14 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE7/FmxDemoPasLibVlcPlayer/MainFormUnit.iPad.fmx: -------------------------------------------------------------------------------- 1 | inherited MainForm_iPad: TMainForm_iPad 2 | ClientHeight = 1004 3 | ClientWidth = 768 4 | DesignerMasterStyle = 0 5 | inherited Panel1: TPanel 6 | Position.X = 648.000000000000000000 7 | Size.Height = 1004.000000000000000000 8 | end 9 | inherited FmxPasLibVlcPlayer1: TFmxPasLibVlcPlayer 10 | Size.Width = 648.000000000000000000 11 | Size.Height = 1004.000000000000000000 12 | end 13 | end 14 | -------------------------------------------------------------------------------- /use/vlc/reglazvlc.pas: -------------------------------------------------------------------------------- 1 | unit reglazvlc; 2 | 3 | {$IF FPC_FULLVERSION<20701} 4 | {$ERROR needs at least FPC 2.7.1} 5 | {$ENDIF} 6 | 7 | {$mode objfpc}{$H+} 8 | 9 | interface 10 | 11 | uses 12 | Classes, SysUtils, vlc, lclvlc, lresources; 13 | 14 | Procedure register; 15 | 16 | implementation 17 | 18 | Procedure register; 19 | begin 20 | RegisterComponents('Multimedia',[TLCLVLCPlayer,TVLCMediaListPlayer]); 21 | end; 22 | 23 | initialization 24 | {$i lazvlc.res} 25 | end. 26 | 27 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE10/FmxDemoPasLibVlcPlayer/MainFormUnit.Surface.fmx: -------------------------------------------------------------------------------- 1 | inherited MainForm_Surface: TMainForm_Surface 2 | ClientHeight = 1920 3 | ClientWidth = 1080 4 | DesignerMasterStyle = 0 5 | inherited Panel1: TPanel 6 | Position.X = 960.000000000000000000 7 | Size.Height = 1920.000000000000000000 8 | end 9 | inherited FmxPasLibVlcPlayer1: TFmxPasLibVlcPlayer 10 | Size.Width = 960.000000000000000000 11 | Size.Height = 1920.000000000000000000 12 | end 13 | end 14 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE7/FmxDemoPasLibVlcPlayer/MainFormUnit.Surface.fmx: -------------------------------------------------------------------------------- 1 | inherited MainForm_Surface: TMainForm_Surface 2 | ClientHeight = 1920 3 | ClientWidth = 1080 4 | DesignerMasterStyle = 0 5 | inherited Panel1: TPanel 6 | Position.X = 960.000000000000000000 7 | Size.Height = 1920.000000000000000000 8 | end 9 | inherited FmxPasLibVlcPlayer1: TFmxPasLibVlcPlayer 10 | Size.Width = 960.000000000000000000 11 | Size.Height = 1920.000000000000000000 12 | end 13 | end 14 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE10/FmxDemoPasLibVlcPlayer/MainFormUnit.LgXhdpiPh.fmx: -------------------------------------------------------------------------------- 1 | inherited MainForm_LgXhdpiPh: TMainForm_LgXhdpiPh 2 | ClientHeight = 695 3 | ClientWidth = 450 4 | DesignerMasterStyle = 0 5 | inherited Panel1: TPanel 6 | Position.X = 330.000000000000000000 7 | Size.Height = 695.000000000000000000 8 | end 9 | inherited FmxPasLibVlcPlayer1: TFmxPasLibVlcPlayer 10 | Size.Width = 330.000000000000000000 11 | Size.Height = 695.000000000000000000 12 | end 13 | end 14 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE10/FmxDemoPasLibVlcPlayer/MainFormUnit.SmXhdpiPh.fmx: -------------------------------------------------------------------------------- 1 | inherited MainForm_SmXhdpiPh: TMainForm_SmXhdpiPh 2 | ClientHeight = 375 3 | ClientWidth = 250 4 | DesignerMasterStyle = 0 5 | inherited Panel1: TPanel 6 | Position.X = 130.000000000000000000 7 | Size.Height = 375.000000000000000000 8 | end 9 | inherited FmxPasLibVlcPlayer1: TFmxPasLibVlcPlayer 10 | Size.Width = 130.000000000000000000 11 | Size.Height = 375.000000000000000000 12 | end 13 | end 14 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE10/FmxDemoPasLibVlcPlayer/MainFormUnit.iPhone47in.fmx: -------------------------------------------------------------------------------- 1 | inherited MainForm_iPhone47in: TMainForm_iPhone47in 2 | ClientHeight = 647 3 | ClientWidth = 375 4 | DesignerMasterStyle = 0 5 | inherited Panel1: TPanel 6 | Position.X = 255.000000000000000000 7 | Size.Height = 647.000000000000000000 8 | end 9 | inherited FmxPasLibVlcPlayer1: TFmxPasLibVlcPlayer 10 | Size.Width = 255.000000000000000000 11 | Size.Height = 647.000000000000000000 12 | end 13 | end 14 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE7/FmxDemoPasLibVlcPlayer/MainFormUnit.LgXhdpiPh.fmx: -------------------------------------------------------------------------------- 1 | inherited MainForm_LgXhdpiPh: TMainForm_LgXhdpiPh 2 | ClientHeight = 695 3 | ClientWidth = 450 4 | DesignerMasterStyle = 0 5 | inherited Panel1: TPanel 6 | Position.X = 330.000000000000000000 7 | Size.Height = 695.000000000000000000 8 | end 9 | inherited FmxPasLibVlcPlayer1: TFmxPasLibVlcPlayer 10 | Size.Width = 330.000000000000000000 11 | Size.Height = 695.000000000000000000 12 | end 13 | end 14 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE7/FmxDemoPasLibVlcPlayer/MainFormUnit.SmXhdpiPh.fmx: -------------------------------------------------------------------------------- 1 | inherited MainForm_SmXhdpiPh: TMainForm_SmXhdpiPh 2 | ClientHeight = 375 3 | ClientWidth = 250 4 | DesignerMasterStyle = 0 5 | inherited Panel1: TPanel 6 | Position.X = 130.000000000000000000 7 | Size.Height = 375.000000000000000000 8 | end 9 | inherited FmxPasLibVlcPlayer1: TFmxPasLibVlcPlayer 10 | Size.Width = 130.000000000000000000 11 | Size.Height = 375.000000000000000000 12 | end 13 | end 14 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE7/FmxDemoPasLibVlcPlayer/MainFormUnit.iPhone47in.fmx: -------------------------------------------------------------------------------- 1 | inherited MainForm_iPhone47in: TMainForm_iPhone47in 2 | ClientHeight = 647 3 | ClientWidth = 375 4 | DesignerMasterStyle = 0 5 | inherited Panel1: TPanel 6 | Position.X = 255.000000000000000000 7 | Size.Height = 647.000000000000000000 8 | end 9 | inherited FmxPasLibVlcPlayer1: TFmxPasLibVlcPlayer 10 | Size.Width = 255.000000000000000000 11 | Size.Height = 647.000000000000000000 12 | end 13 | end 14 | -------------------------------------------------------------------------------- /use/PasLibVlc/Lazarus/DemoPasLibVlcPlayer/FullScreenFormUnit.lfm: -------------------------------------------------------------------------------- 1 | object FullScreenForm: TFullScreenForm 2 | Left = 0 3 | Height = 436 4 | Top = 0 5 | Width = 639 6 | Align = alClient 7 | BorderIcons = [] 8 | BorderStyle = bsNone 9 | Color = clBlack 10 | Font.Color = clWindowText 11 | Font.Height = -11 12 | Font.Name = 'Tahoma' 13 | FormStyle = fsStayOnTop 14 | KeyPreview = True 15 | OnKeyPress = FormKeyPress 16 | OnShow = FormShow 17 | LCLVersion = '1.2.6.0' 18 | end 19 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE10/FmxDemoPasLibVlcPlayer/MainFormUnit.XLgXhdpiTb.fmx: -------------------------------------------------------------------------------- 1 | inherited MainForm_XLgXhdpiTb: TMainForm_XLgXhdpiTb 2 | ClientHeight = 1255 3 | ClientWidth = 800 4 | DesignerMasterStyle = 0 5 | inherited Panel1: TPanel 6 | Position.X = 680.000000000000000000 7 | Size.Height = 1255.000000000000000000 8 | end 9 | inherited FmxPasLibVlcPlayer1: TFmxPasLibVlcPlayer 10 | Size.Width = 680.000000000000000000 11 | Size.Height = 1255.000000000000000000 12 | end 13 | end 14 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE7/FmxDemoPasLibVlcPlayer/MainFormUnit.XLgXhdpiTb.fmx: -------------------------------------------------------------------------------- 1 | inherited MainForm_XLgXhdpiTb: TMainForm_XLgXhdpiTb 2 | ClientHeight = 1255 3 | ClientWidth = 800 4 | DesignerMasterStyle = 0 5 | inherited Panel1: TPanel 6 | Position.X = 680.000000000000000000 7 | Size.Height = 1255.000000000000000000 8 | end 9 | inherited FmxPasLibVlcPlayer1: TFmxPasLibVlcPlayer 10 | Size.Width = 680.000000000000000000 11 | Size.Height = 1255.000000000000000000 12 | end 13 | end 14 | -------------------------------------------------------------------------------- /use/vlc/lazvlc.pas: -------------------------------------------------------------------------------- 1 | { This file was automatically created by Lazarus. Do not edit! 2 | This source is only used to compile and install the package. 3 | } 4 | 5 | unit lazvlc; 6 | 7 | {$warn 5023 off : no warning about unused units} 8 | interface 9 | 10 | uses 11 | reglazvlc, lclvlc, LazarusPackageIntf; 12 | 13 | implementation 14 | 15 | procedure Register; 16 | begin 17 | RegisterUnit('reglazvlc', @reglazvlc.Register); 18 | end; 19 | 20 | initialization 21 | RegisterPackage('lazvlc', @Register); 22 | end. 23 | -------------------------------------------------------------------------------- /ppas.sh: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | DoExitAsm () 3 | { echo "An error occurred while assembling $1"; exit 1; } 4 | DoExitLink () 5 | { echo "An error occurred while linking $1"; exit 1; } 6 | echo Linking /home/reinier/LazView/lazview 7 | OFS=$IFS 8 | IFS=" 9 | " 10 | /usr/bin/ld -b elf64-x86-64 -m elf_x86_64 --dynamic-linker=/lib64/ld-linux-x86-64.so.2 --gc-sections -s -L. -o /home/reinier/LazView/lazview /home/reinier/LazView/link.res 11 | if [ $? != 0 ]; then DoExitLink /home/reinier/LazView/lazview; fi 12 | IFS=$OFS 13 | -------------------------------------------------------------------------------- /src/fpass.pas: -------------------------------------------------------------------------------- 1 | unit fpass; 2 | 3 | {$mode objfpc}{$H+} 4 | 5 | interface 6 | 7 | uses 8 | Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ButtonPanel, StdCtrls; 9 | 10 | type 11 | 12 | { Tfrpass } 13 | 14 | Tfrpass = class(TForm) 15 | ButtonPanel1: TButtonPanel; 16 | edtPass: TEdit; 17 | Label1: TLabel; 18 | private 19 | 20 | public 21 | 22 | end; 23 | 24 | var 25 | frpass: Tfrpass; 26 | 27 | implementation 28 | 29 | {$R *.lfm} 30 | 31 | end. 32 | 33 | -------------------------------------------------------------------------------- /src/unit6.pas: -------------------------------------------------------------------------------- 1 | unit Unit6; 2 | 3 | {$mode objfpc}{$H+} 4 | 5 | interface 6 | 7 | uses 8 | Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ButtonPanel, 9 | Spin, StdCtrls; 10 | 11 | type 12 | 13 | { TForm6 } 14 | 15 | TForm6 = class(TForm) 16 | ButtonPanel1: TButtonPanel; 17 | Label1: TLabel; 18 | SpinEdit1: TSpinEdit; 19 | private 20 | 21 | public 22 | 23 | end; 24 | 25 | var 26 | Form6: TForm6; 27 | 28 | implementation 29 | 30 | {$R *.lfm} 31 | 32 | end. 33 | 34 | -------------------------------------------------------------------------------- /use/PasLibVlc/Lazarus/PasLibVlcPlayer.pas: -------------------------------------------------------------------------------- 1 | { This file was automatically created by Lazarus. Do not edit! 2 | This source is only used to compile and install the package. 3 | } 4 | 5 | unit PasLibVlcPlayer; 6 | 7 | interface 8 | 9 | uses 10 | PasLibVlcUnit, PasLibVlcPlayerUnit, LazarusPackageIntf; 11 | 12 | implementation 13 | 14 | procedure Register; 15 | begin 16 | RegisterUnit('PasLibVlcPlayerUnit', @PasLibVlcPlayerUnit.Register); 17 | end; 18 | 19 | initialization 20 | RegisterPackage('PasLibVlcPlayer', @Register); 21 | end. 22 | -------------------------------------------------------------------------------- /use/vlc/test/testlcl.lpr: -------------------------------------------------------------------------------- 1 | program testlcl; 2 | 3 | {$mode objfpc}{$H+} 4 | 5 | uses 6 | {$IFDEF UNIX} 7 | cthreads, 8 | {$ENDIF} 9 | Interfaces, // this includes the LCL widgetset 10 | Forms, frmmain, libvlc, vlc, lclvlc, math; 11 | 12 | {$R *.res} 13 | 14 | begin 15 | setexceptionmask([exInvalidOp, exDenormalized, exZeroDivide, 16 | exOverflow, exUnderflow, exPrecision]); 17 | RequireDerivedFormResource := True; 18 | Application.Initialize; 19 | Application.CreateForm(TForm1, Form1); 20 | Application.Run; 21 | end. 22 | -------------------------------------------------------------------------------- /use/PasLibVlc/Delphi2007/DemoPlayViaPipe/MainFormUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'DemoPlayFromStream' 5 | ClientHeight = 310 6 | ClientWidth = 474 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | Position = poScreenCenter 15 | OnActivate = FormActivate 16 | OnCreate = FormCreate 17 | OnDestroy = FormDestroy 18 | PixelsPerInch = 96 19 | TextHeight = 13 20 | end 21 | -------------------------------------------------------------------------------- /src/fthumbsize.pas: -------------------------------------------------------------------------------- 1 | unit fthumbsize; 2 | 3 | {$mode objfpc}{$H+} 4 | 5 | interface 6 | 7 | uses 8 | Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ButtonPanel, 9 | Spin, StdCtrls; 10 | 11 | type 12 | 13 | { Tfrthumbsize } 14 | 15 | Tfrthumbsize = class(TForm) 16 | ButtonPanel1: TButtonPanel; 17 | Label1: TLabel; 18 | SpinEdit1: TSpinEdit; 19 | private 20 | 21 | public 22 | 23 | end; 24 | 25 | var 26 | frthumbsize: Tfrthumbsize; 27 | 28 | implementation 29 | 30 | {$R *.lfm} 31 | 32 | end. 33 | 34 | -------------------------------------------------------------------------------- /src/unit2.lrj: -------------------------------------------------------------------------------- 1 | {"version":1,"strings":[ 2 | {"hash":93102341,"name":"tfrresize.caption","sourcebytes":[82,101,115,105,122,101],"value":"Resize"}, 3 | {"hash":98548410,"name":"tfrresize.label1.caption","sourcebytes":[87,105,100,116,104,58],"value":"Width:"}, 4 | {"hash":247455546,"name":"tfrresize.label2.caption","sourcebytes":[72,101,105,103,104,116,58],"value":"Height:"}, 5 | {"hash":8609151,"name":"tfrresize.togglebox1.hint","sourcebytes":[107,101,101,112,32,97,115,112,101,99,116,32,114,97,116,105,111],"value":"keep aspect ratio"}, 6 | {"hash":93,"name":"tfrresize.togglebox1.caption","sourcebytes":[93],"value":"]"} 7 | ]} 8 | -------------------------------------------------------------------------------- /use/PasLibVlc/Delphi7/DemoPasLibVlcPlayer/FullScreenFormUnit.dfm: -------------------------------------------------------------------------------- 1 | object FullScreenForm: TFullScreenForm 2 | Left = 0 3 | Top = 0 4 | Align = alClient 5 | BorderIcons = [] 6 | BorderStyle = bsNone 7 | ClientHeight = 436 8 | ClientWidth = 639 9 | Color = clBlack 10 | Font.Charset = DEFAULT_CHARSET 11 | Font.Color = clWindowText 12 | Font.Height = -11 13 | Font.Name = 'Tahoma' 14 | Font.Style = [] 15 | FormStyle = fsStayOnTop 16 | KeyPreview = True 17 | OldCreateOrder = False 18 | OnKeyPress = FormKeyPress 19 | OnShow = FormShow 20 | PixelsPerInch = 96 21 | TextHeight = 13 22 | end 23 | -------------------------------------------------------------------------------- /use/vlc/README.txt: -------------------------------------------------------------------------------- 1 | 2 | This component is a video player based on the VLC libraries. 3 | You need the VLC library headers in FPC, so this will only compile with FPC 4 | 2.7.1 and higher. 5 | 6 | The component works on Windows and Linux with GTK2. 7 | It should work with QT, but this is untested. 8 | 9 | The test directory contains a sample project that shows minimal use of the 10 | component. 11 | 12 | There are actually 2 components: 13 | TLCLVLCPLayer 14 | and 15 | TVLCMediaListPlayer 16 | The former plays 1 video file. The second can be used to create a playlist 17 | and uses a TLCLVLCPLayer to play the media. 18 | 19 | -------------------------------------------------------------------------------- /use/PasLibVlc/Delphi2007/DemoPasLibVlcPlayer/FullScreenFormUnit.dfm: -------------------------------------------------------------------------------- 1 | object FullScreenForm: TFullScreenForm 2 | Left = 0 3 | Top = 0 4 | Align = alClient 5 | BorderIcons = [] 6 | BorderStyle = bsNone 7 | ClientHeight = 436 8 | ClientWidth = 639 9 | Color = clBlack 10 | Font.Charset = DEFAULT_CHARSET 11 | Font.Color = clWindowText 12 | Font.Height = -11 13 | Font.Name = 'Tahoma' 14 | Font.Style = [] 15 | FormStyle = fsStayOnTop 16 | KeyPreview = True 17 | OldCreateOrder = False 18 | Position = poDesigned 19 | OnKeyPress = FormKeyPress 20 | OnShow = FormShow 21 | PixelsPerInch = 96 22 | TextHeight = 13 23 | end 24 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE7/DemoPasLibVlcPlayer/FullScreenFormUnit.dfm: -------------------------------------------------------------------------------- 1 | object FullScreenForm: TFullScreenForm 2 | Left = 0 3 | Top = 0 4 | Align = alClient 5 | BorderIcons = [] 6 | BorderStyle = bsNone 7 | ClientHeight = 436 8 | ClientWidth = 639 9 | Color = clBlack 10 | Font.Charset = DEFAULT_CHARSET 11 | Font.Color = clWindowText 12 | Font.Height = -11 13 | Font.Name = 'Tahoma' 14 | Font.Style = [] 15 | FormStyle = fsStayOnTop 16 | KeyPreview = True 17 | OldCreateOrder = False 18 | Position = poDesigned 19 | OnKeyPress = FormKeyPress 20 | OnShow = FormShow 21 | PixelsPerInch = 96 22 | TextHeight = 13 23 | end 24 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE10/DemoPasLibVlcPlayer/FullScreenFormUnit.dfm: -------------------------------------------------------------------------------- 1 | object FullScreenForm: TFullScreenForm 2 | Left = 0 3 | Top = 0 4 | Align = alClient 5 | BorderIcons = [] 6 | BorderStyle = bsNone 7 | ClientHeight = 436 8 | ClientWidth = 639 9 | Color = clBlack 10 | Font.Charset = DEFAULT_CHARSET 11 | Font.Color = clWindowText 12 | Font.Height = -11 13 | Font.Name = 'Tahoma' 14 | Font.Style = [] 15 | FormStyle = fsStayOnTop 16 | KeyPreview = True 17 | OldCreateOrder = False 18 | Position = poDesigned 19 | OnKeyPress = FormKeyPress 20 | OnShow = FormShow 21 | ExplicitWidth = 320 22 | ExplicitHeight = 240 23 | PixelsPerInch = 96 24 | TextHeight = 13 25 | end 26 | -------------------------------------------------------------------------------- /src/print.lrj: -------------------------------------------------------------------------------- 1 | {"version":1,"strings":[ 2 | {"hash":5738580,"name":"tfrprint.caption","sourcebytes":[80,114,105,110,116],"value":"Print"}, 3 | {"hash":151365930,"name":"tfrprint.lblprint.caption","sourcebytes":[80,114,105,110,116,101,114,58],"value":"Printer:"}, 4 | {"hash":94288890,"name":"tfrprint.lblsheel.caption","sourcebytes":[83,104,101,101,108,58],"value":"Sheel:"}, 5 | {"hash":18001132,"name":"tfrprint.rbhorizontal.caption","sourcebytes":[72,111,114,105,122,111,110,116,97,108],"value":"Horizontal"}, 6 | {"hash":211483836,"name":"tfrprint.rbvertical.caption","sourcebytes":[86,101,114,116,105,99,97,108],"value":"Vertical"}, 7 | {"hash":78020714,"name":"tfrprint.lblcopys.caption","sourcebytes":[67,111,112,121,115,58],"value":"Copys:"} 8 | ]} 9 | -------------------------------------------------------------------------------- /ppas.bat: -------------------------------------------------------------------------------- 1 | @echo off 2 | SET THEFILE=C:\Users\Reinier Romero Mir\Documents\LazView\lazview.exe 3 | echo Linking %THEFILE% 4 | C:\lazarus\fpc\3.0.4\bin\i386-win32\ld.exe -b pei-i386 -m i386pe --gc-sections -s --subsystem windows --entry=_WinMainCRTStartup -o "C:\Users\Reinier Romero Mir\Documents\LazView\lazview.exe" "C:\Users\Reinier Romero Mir\Documents\LazView\link.res" 5 | if errorlevel 1 goto linkend 6 | C:\lazarus\fpc\3.0.4\bin\i386-win32\postw32.exe --subsystem gui --input "C:\Users\Reinier Romero Mir\Documents\LazView\lazview.exe" --stack 16777216 7 | if errorlevel 1 goto linkend 8 | goto end 9 | :asmend 10 | echo An error occurred while assembling %THEFILE% 11 | goto end 12 | :linkend 13 | echo An error occurred while linking %THEFILE% 14 | :end 15 | -------------------------------------------------------------------------------- /src/unit3.pas: -------------------------------------------------------------------------------- 1 | unit Unit3; 2 | 3 | {$mode objfpc}{$H+} 4 | 5 | interface 6 | 7 | uses 8 | Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls, 9 | ButtonPanel, StdCtrls; 10 | 11 | type 12 | 13 | { TForm3 } 14 | 15 | TForm3 = class(TForm) 16 | ButtonPanel1: TButtonPanel; 17 | Label1: TLabel; 18 | TrackBar1: TTrackBar; 19 | procedure TrackBar1Change(Sender: TObject); 20 | private 21 | { private declarations } 22 | public 23 | { public declarations } 24 | end; 25 | 26 | var 27 | Form3: TForm3; 28 | 29 | implementation 30 | 31 | {$R *.lfm} 32 | 33 | { TForm3 } 34 | 35 | procedure TForm3.TrackBar1Change(Sender: TObject); 36 | begin 37 | Form3.Label1.Caption:=inttostr(Form3.TrackBar1.Position); 38 | end; 39 | 40 | end. 41 | 42 | -------------------------------------------------------------------------------- /src/fexif.lfm: -------------------------------------------------------------------------------- 1 | object frexif: Tfrexif 2 | Left = 413 3 | Height = 459 4 | Top = 130 5 | Width = 448 6 | Caption = 'EXIF' 7 | ClientHeight = 459 8 | ClientWidth = 448 9 | LCLVersion = '1.8.4.0' 10 | object ValueListEditor1: TValueListEditor 11 | Left = 0 12 | Height = 459 13 | Top = 0 14 | Width = 448 15 | Align = alClient 16 | DefaultColWidth = 160 17 | FixedCols = 0 18 | RowCount = 16 19 | TabOrder = 0 20 | TitleStyle = tsNative 21 | Strings.Strings = ( 22 | '' 23 | '' 24 | '' 25 | '' 26 | '' 27 | '' 28 | '' 29 | '' 30 | '' 31 | '' 32 | '' 33 | '' 34 | '' 35 | '' 36 | '' 37 | ) 38 | ColWidths = ( 39 | 160 40 | 284 41 | ) 42 | end 43 | end 44 | -------------------------------------------------------------------------------- /src/fresize.lrj: -------------------------------------------------------------------------------- 1 | {"version":1,"strings":[ 2 | {"hash":93102341,"name":"tfrresize.caption","sourcebytes":[82,101,115,105,122,101],"value":"Resize"}, 3 | {"hash":98548410,"name":"tfrresize.label1.caption","sourcebytes":[87,105,100,116,104,58],"value":"Width:"}, 4 | {"hash":247455546,"name":"tfrresize.label2.caption","sourcebytes":[72,101,105,103,104,116,58],"value":"Height:"}, 5 | {"hash":8609151,"name":"tfrresize.togglebox1.hint","sourcebytes":[107,101,101,112,32,97,115,112,101,99,116,32,114,97,116,105,111],"value":"keep aspect ratio"}, 6 | {"hash":93,"name":"tfrresize.togglebox1.caption","sourcebytes":[93],"value":"]"}, 7 | {"hash":218344474,"name":"tfrresize.lblfilter.caption","sourcebytes":[70,105,108,116,101,114,58],"value":"Filter:"}, 8 | {"hash":42250547,"name":"tfrresize.cbfilter.text","sourcebytes":[76,97,110,99,122,111,115],"value":"Lanczos"} 9 | ]} 10 | -------------------------------------------------------------------------------- /use/PasLibVlc/Lazarus/DemoPasLibVlc/MainFormUnit.lfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 411 3 | Height = 367 4 | Top = 192 5 | Width = 515 6 | Caption = 'DemoPasLibVlc' 7 | Menu = MainMenu 8 | OnCreate = FormCreate 9 | OnDestroy = FormDestroy 10 | LCLVersion = '2.0.2.0' 11 | object OpenDialog: TOpenDialog 12 | left = 16 13 | top = 16 14 | end 15 | object MainMenu: TMainMenu 16 | left = 16 17 | top = 72 18 | object FileMenuItem: TMenuItem 19 | Caption = 'File' 20 | object OpenMenuItem: TMenuItem 21 | Caption = 'Open' 22 | ShortCut = 16463 23 | OnClick = MenuFileOpenClick 24 | end 25 | object QuitMenuItem: TMenuItem 26 | Caption = 'Quit' 27 | ShortCut = 49233 28 | OnClick = MenuFileQuitClick 29 | end 30 | end 31 | end 32 | end 33 | -------------------------------------------------------------------------------- /src/fquality.pas: -------------------------------------------------------------------------------- 1 | unit fquality; 2 | 3 | {$mode objfpc}{$H+} 4 | 5 | interface 6 | 7 | uses 8 | Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls, 9 | ButtonPanel, StdCtrls; 10 | 11 | type 12 | 13 | { Tfrquality } 14 | 15 | Tfrquality = class(TForm) 16 | ButtonPanel1: TButtonPanel; 17 | Label1: TLabel; 18 | TrackBar1: TTrackBar; 19 | procedure TrackBar1Change(Sender: TObject); 20 | private 21 | { private declarations } 22 | public 23 | { public declarations } 24 | end; 25 | 26 | var 27 | frquality: Tfrquality; 28 | 29 | implementation 30 | 31 | {$R *.lfm} 32 | 33 | { Tfrquality } 34 | 35 | procedure Tfrquality.TrackBar1Change(Sender: TObject); 36 | begin 37 | frquality.Label1.Caption:=inttostr(frquality.TrackBar1.Position); 38 | end; 39 | 40 | end. 41 | 42 | -------------------------------------------------------------------------------- /src/lazview.lpr: -------------------------------------------------------------------------------- 1 | program LazView; 2 | 3 | {$mode objfpc}{$H+} 4 | 5 | uses 6 | {$IFDEF UNIX} 7 | cthreads, cmem, 8 | {$ENDIF} 9 | Forms, PasLibVlcPlayer, Interfaces, fmain, fresize, fquality, feffects, 10 | fgoto, fthumbsize, print, fexif, fpass, abbrevia; 11 | 12 | {$R *.res} 13 | 14 | begin 15 | Application.Scaled:=True; 16 | Application.Title:='LazView'; 17 | RequireDerivedFormResource:=True; 18 | Application.Initialize; 19 | Application.CreateForm(Tfrmain, frmain); 20 | Application.CreateForm(Tfrresize, frresize); 21 | Application.CreateForm(TFrquality, frquality); 22 | Application.CreateForm(Tfreffect, freffect); 23 | Application.CreateForm(Tfrgoto, frgoto); 24 | Application.CreateForm(Tfrthumbsize, frthumbsize); 25 | Application.CreateForm(Tfrprint, frprint); 26 | Application.CreateForm(Tfrexif, frexif); 27 | Application.CreateForm(Tfrpass, frpass); 28 | Application.Run; 29 | end. 30 | 31 | -------------------------------------------------------------------------------- /src/unit4.lrt: -------------------------------------------------------------------------------- 1 | TFORM4.BUTTON1.CAPTION=Escala de grises 2 | TFORM4.BUTTON2.CAPTION=Resaltar rojo 3 | TFORM4.BUTTON3.CAPTION=Resaltar verde 4 | TFORM4.BUTTON4.CAPTION=Resaltar azul 5 | TFORM4.BUTTON5.CAPTION=Recargar 6 | TFORM4.BUTTON11.CAPTION=Suavizar 7 | TFORM4.BUTTON12.CAPTION=Realzar 8 | TFORM4.BUTTON13.CAPTION=Negativo 9 | TFORM4.BUTTON14.CAPTION=Plane (lento) 10 | TFORM4.BUTTON15.CAPTION=Contorno 11 | TFORM4.BUTTON16.CAPTION=Cilindro 12 | TFORM4.BUTTON17.CAPTION=Emboss 13 | TFORM4.BUTTON18.CAPTION=Emboss high light 14 | TFORM4.BUTTON19.CAPTION=Normalizar 15 | TFORM4.BUTTON20.CAPTION=Esfera 16 | TFORM4.BUTTON21.CAPTION=Median 17 | TFORM4.BUTTON22.CAPTION=Zoom inteligente [3] 18 | TFORM4.GROUPBOX1.CAPTION=Change colors 19 | TFORM4.BUTTON6.CAPTION=RGB -> BGR 20 | TFORM4.BUTTON7.CAPTION=RGB -> RBG 21 | TFORM4.BUTTON8.CAPTION=RGB -> GRB 22 | TFORM4.BUTTON9.CAPTION=RGB -> GBR 23 | TFORM4.BUTTON10.CAPTION=RGB -> BRG 24 | -------------------------------------------------------------------------------- /use/PasLibVlc/Delphi4/PasLibVlcPlayer.dpk: -------------------------------------------------------------------------------- 1 | package PasLibVlcPlayer; 2 | 3 | {$R *.RES} 4 | {$ALIGN ON} 5 | {$ASSERTIONS OFF} 6 | {$BOOLEVAL OFF} 7 | {$DEBUGINFO OFF} 8 | {$EXTENDEDSYNTAX ON} 9 | {$IMPORTEDDATA ON} 10 | {$IOCHECKS ON} 11 | {$LOCALSYMBOLS OFF} 12 | {$LONGSTRINGS ON} 13 | {$OPENSTRINGS ON} 14 | {$OPTIMIZATION ON} 15 | {$OVERFLOWCHECKS OFF} 16 | {$RANGECHECKS OFF} 17 | {$REFERENCEINFO OFF} 18 | {$SAFEDIVIDE OFF} 19 | {$STACKFRAMES OFF} 20 | {$TYPEDADDRESS OFF} 21 | {$VARSTRINGCHECKS ON} 22 | {$WRITEABLECONST OFF} 23 | {$MINENUMSIZE 4} 24 | {$IMAGEBASE $00400000} 25 | {$DESCRIPTION 'PasLibVlcPlayer design time package'} 26 | {$IMPLICITBUILD ON} 27 | {$DEFINE RELEASE} 28 | 29 | requires 30 | vcl40; 31 | 32 | contains 33 | PasLibVlcUnit in '..\source\PasLibVlcUnit.pas', 34 | PasLibVlcClassUnit in '..\source\PasLibVlcClassUnit.pas', 35 | PasLibVlcPlayerUnit in '..\source.vcl\PasLibVlcPlayerUnit.pas'; 36 | 37 | end. 38 | -------------------------------------------------------------------------------- /src/feffects.lrt: -------------------------------------------------------------------------------- 1 | TFORM4.BUTTON1.CAPTION=Escala de grises 2 | TFORM4.BUTTON2.CAPTION=Resaltar rojo 3 | TFORM4.BUTTON3.CAPTION=Resaltar verde 4 | TFORM4.BUTTON4.CAPTION=Resaltar azul 5 | TFORM4.BUTTON5.CAPTION=Recargar 6 | TFORM4.BUTTON11.CAPTION=Suavizar 7 | TFORM4.BUTTON12.CAPTION=Realzar 8 | TFORM4.BUTTON13.CAPTION=Negativo 9 | TFORM4.BUTTON14.CAPTION=Plane (lento) 10 | TFORM4.BUTTON15.CAPTION=Contorno 11 | TFORM4.BUTTON16.CAPTION=Cilindro 12 | TFORM4.BUTTON17.CAPTION=Emboss 13 | TFORM4.BUTTON18.CAPTION=Emboss high light 14 | TFORM4.BUTTON19.CAPTION=Normalizar 15 | TFORM4.BUTTON20.CAPTION=Esfera 16 | TFORM4.BUTTON21.CAPTION=Median 17 | TFORM4.BUTTON22.CAPTION=Zoom inteligente [3] 18 | TFORM4.GROUPBOX1.CAPTION=Change colors 19 | TFORM4.BUTTON6.CAPTION=RGB -> BGR 20 | TFORM4.BUTTON7.CAPTION=RGB -> RBG 21 | TFORM4.BUTTON8.CAPTION=RGB -> GRB 22 | TFORM4.BUTTON9.CAPTION=RGB -> GBR 23 | TFORM4.BUTTON10.CAPTION=RGB -> BRG 24 | -------------------------------------------------------------------------------- /use/PasLibVlc/Delphi7/PasLibVlcPlayer.dpk: -------------------------------------------------------------------------------- 1 | package PasLibVlcPlayer; 2 | 3 | {$R *.res} 4 | {$ALIGN 8} 5 | {$ASSERTIONS ON} 6 | {$BOOLEVAL OFF} 7 | {$DEBUGINFO OFF} 8 | {$EXTENDEDSYNTAX ON} 9 | {$IMPORTEDDATA ON} 10 | {$IOCHECKS ON} 11 | {$LOCALSYMBOLS OFF} 12 | {$LONGSTRINGS ON} 13 | {$OPENSTRINGS ON} 14 | {$OPTIMIZATION ON} 15 | {$OVERFLOWCHECKS OFF} 16 | {$RANGECHECKS OFF} 17 | {$REFERENCEINFO OFF} 18 | {$SAFEDIVIDE OFF} 19 | {$STACKFRAMES OFF} 20 | {$TYPEDADDRESS OFF} 21 | {$VARSTRINGCHECKS ON} 22 | {$WRITEABLECONST OFF} 23 | {$MINENUMSIZE 1} 24 | {$IMAGEBASE $400000} 25 | {$DESCRIPTION 'PasLibVlcPlayer design time package'} 26 | {$IMPLICITBUILD ON} 27 | {$DEFINE RELEASE} 28 | 29 | requires 30 | vcl, 31 | rtl; 32 | 33 | contains 34 | PasLibVlcUnit in '..\source\PasLibVlcUnit.pas', 35 | PasLibVlcClassUnit in '..\source\PasLibVlcClassUnit.pas', 36 | PasLibVlcPlayerUnit in '..\source.vcl\PasLibVlcPlayerUnit.pas'; 37 | 38 | end. 39 | -------------------------------------------------------------------------------- /use/PasLibVlc/Delphi2007/PasLibVlcPlayer.dpk: -------------------------------------------------------------------------------- 1 | package PasLibVlcPlayer; 2 | 3 | {$R *.res} 4 | {$ALIGN 8} 5 | {$ASSERTIONS ON} 6 | {$BOOLEVAL OFF} 7 | {$DEBUGINFO OFF} 8 | {$EXTENDEDSYNTAX ON} 9 | {$IMPORTEDDATA ON} 10 | {$IOCHECKS ON} 11 | {$LOCALSYMBOLS OFF} 12 | {$LONGSTRINGS ON} 13 | {$OPENSTRINGS ON} 14 | {$OPTIMIZATION ON} 15 | {$OVERFLOWCHECKS OFF} 16 | {$RANGECHECKS OFF} 17 | {$REFERENCEINFO OFF} 18 | {$SAFEDIVIDE OFF} 19 | {$STACKFRAMES OFF} 20 | {$TYPEDADDRESS OFF} 21 | {$VARSTRINGCHECKS ON} 22 | {$WRITEABLECONST OFF} 23 | {$MINENUMSIZE 1} 24 | {$IMAGEBASE $400000} 25 | {$DESCRIPTION 'PasLibVlcPlayer design time package'} 26 | {$IMPLICITBUILD OFF} 27 | {$DEFINE RELEASE} 28 | 29 | requires 30 | vcl, 31 | rtl; 32 | 33 | contains 34 | PasLibVlcUnit in '..\source\PasLibVlcUnit.pas', 35 | PasLibVlcClassUnit in '..\source\PasLibVlcClassUnit.pas', 36 | PasLibVlcPlayerUnit in '..\source.vcl\PasLibVlcPlayerUnit.pas'; 37 | 38 | end. 39 | -------------------------------------------------------------------------------- /.github/workflows/make.yml: -------------------------------------------------------------------------------- 1 | --- 2 | name: Make 3 | 4 | on: 5 | schedule: 6 | - cron: '0 0 1 * *' 7 | push: 8 | branches: 9 | - "**" 10 | pull_request: 11 | branches: 12 | - master 13 | - main 14 | 15 | concurrency: 16 | group: ${{ github.workflow }}-${{ github.ref }} 17 | cancel-in-progress: true 18 | 19 | jobs: 20 | build: 21 | runs-on: ${{ matrix.os }} 22 | timeout-minutes: 120 23 | strategy: 24 | matrix: 25 | os: 26 | - ubuntu-latest 27 | - windows-latest 28 | steps: 29 | - name: Checkout 30 | uses: actions/checkout@v4 31 | with: 32 | submodules: true 33 | 34 | - name: Build on Linux 35 | if: runner.os == 'Linux' 36 | shell: bash 37 | run: bash make.sh build 38 | 39 | - name: Build on Windows 40 | if: runner.os == 'Windows' 41 | shell: powershell 42 | run: pwsh -File make.ps1 build 43 | -------------------------------------------------------------------------------- /clean.bat: -------------------------------------------------------------------------------- 1 | @echo Clean up output directory 2 | @del /Q /S units\*.* 3 | @del /Q src\*.*~ 4 | @del /Q src\*.~* 5 | @rmdir /S /Q src\lib\ 6 | @rmdir /S /Q src\backup\ 7 | @rmdir /S /Q components\bgrabitmap\lib\ 8 | @rmdir /S /Q components\bgrabitmap\lib4nogui\ 9 | @rmdir /S /Q components\dexif\lib 10 | @rmdir /S /Q components\vampireimaging\bin 11 | @rmdir /S /Q components\Abbrevia\packages\Lazarus\lib\ 12 | 13 | @del /Q win32\lazview.dbg 14 | @del /Q win32\lazview*.exe 15 | @del /Q win64\lazview*.exe 16 | @del /Q win32\lazview*.old 17 | @del /Q win64\lazview*.old 18 | @del /Q src\*.bak 19 | @del /Q lazview*.old 20 | @del /Q lazview*.exe 21 | @del /Q lazview*.dbg 22 | @del /Q lazview.zdli 23 | @del /Q lazview 24 | @del /Q units\*.* 25 | 26 | @echo Clean up tools output directories 27 | @del /Q /S tools\lib\*.* 28 | @del /Q tools\extractdwrflnfo.exe 29 | 30 | @echo Clean up components output directories 31 | 32 | @echo Done. -------------------------------------------------------------------------------- /use/PasLibVlc/Delphi2007/DemoPasLibVlcPlayerPauseAtStart/MainFormUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'DemoPasLivVlcPlayerPauseAtStart' 5 | ClientHeight = 339 6 | ClientWidth = 414 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnCreate = FormCreate 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object mrlEdit: TEdit 18 | Left = 12 19 | Top = 12 20 | Width = 391 21 | Height = 21 22 | TabOrder = 0 23 | end 24 | object player: TPasLibVlcPlayer 25 | Left = 12 26 | Top = 44 27 | Width = 391 28 | SnapShotFmt = 'png' 29 | OnMediaPlayerTimeChanged = playerMediaPlayerTimeChanged 30 | end 31 | object playButton: TButton 32 | Left = 164 33 | Top = 300 34 | Width = 75 35 | Height = 25 36 | Caption = 'Play' 37 | TabOrder = 2 38 | OnClick = playButtonClick 39 | end 40 | end 41 | -------------------------------------------------------------------------------- /use/PasLibVlc/Delphi4/PasLibVlc.bpg: -------------------------------------------------------------------------------- 1 | #------------------------------------------------------------------------------ 2 | VERSION = BWS.01 3 | #------------------------------------------------------------------------------ 4 | !ifndef ROOT 5 | ROOT = $(MAKEDIR)\.. 6 | !endif 7 | #------------------------------------------------------------------------------ 8 | MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$** 9 | DCC = $(ROOT)\bin\dcc32.exe $** 10 | BRCC = $(ROOT)\bin\brcc32.exe $** 11 | #------------------------------------------------------------------------------ 12 | PROJECTS = PasLibVlcPlayer.bpl DemoPasLibVlc.exe DemoPasLibVlcPlayer.exe 13 | #------------------------------------------------------------------------------ 14 | default: $(PROJECTS) 15 | #------------------------------------------------------------------------------ 16 | 17 | DemoPasLibVlc.exe: DemoPasLibVlc\DemoPasLibVlc.dpr 18 | $(DCC) 19 | 20 | DemoPasLibVlcPlayer.exe: DemoPasLibVlcPlayer\DemoPasLibVlcPlayer.dpr 21 | $(DCC) 22 | 23 | PasLibVlcPlayer.bpl: PasLibVlcPlayer.dpk 24 | $(DCC) 25 | 26 | 27 | -------------------------------------------------------------------------------- /use/PasLibVlc/Delphi7/PasLibVlc.bpg: -------------------------------------------------------------------------------- 1 | #------------------------------------------------------------------------------ 2 | VERSION = BWS.01 3 | #------------------------------------------------------------------------------ 4 | !ifndef ROOT 5 | ROOT = $(MAKEDIR)\.. 6 | !endif 7 | #------------------------------------------------------------------------------ 8 | MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$** 9 | DCC = $(ROOT)\bin\dcc32.exe $** 10 | BRCC = $(ROOT)\bin\brcc32.exe $** 11 | #------------------------------------------------------------------------------ 12 | PROJECTS = PasLibVlcPlayer.bpl DemoPasLibVlc.exe DemoPasLibVlcPlayer.exe 13 | #------------------------------------------------------------------------------ 14 | default: $(PROJECTS) 15 | #------------------------------------------------------------------------------ 16 | 17 | DemoPasLibVlc.exe: DemoPasLibVlc\DemoPasLibVlc.dpr 18 | $(DCC) 19 | 20 | DemoPasLibVlcPlayer.exe: DemoPasLibVlcPlayer\DemoPasLibVlcPlayer.dpr 21 | $(DCC) 22 | 23 | PasLibVlcPlayer.bpl: PasLibVlcPlayer.dpk 24 | $(DCC) 25 | 26 | 27 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE10/FmxDemoPasLibVlc/MainFormUnit.fmx: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'FmxDemoPasLibVlc' 5 | ClientHeight = 480 6 | ClientWidth = 640 7 | Position = ScreenCenter 8 | FormFactor.Width = 320 9 | FormFactor.Height = 480 10 | FormFactor.Devices = [Desktop] 11 | OnActivate = FormActivate 12 | OnCreate = FormCreate 13 | OnClose = FormClose 14 | DesignerMasterStyle = 0 15 | object MainMenu: TMainMenu 16 | Left = 128 17 | Top = 80 18 | object MenuFile: TMenuItem 19 | Text = 'File' 20 | object MenuOpen: TMenuItem 21 | Locked = True 22 | ShortCut = 16463 23 | Text = 'Open' 24 | OnClick = MenuOpenClick 25 | end 26 | object MenuQuit: TMenuItem 27 | Locked = True 28 | ShortCut = 16465 29 | Text = 'Quit' 30 | OnClick = MenuQuitClick 31 | end 32 | end 33 | end 34 | object OpenDialog: TOpenDialog 35 | InitialDir = 'C:\_LibXE\vlc\_testFiles' 36 | Left = 40 37 | Top = 80 38 | end 39 | end 40 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE7/FmxDemoPasLibVlc/MainFormUnit.fmx: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'FmxDemoPasLibVlc' 5 | ClientHeight = 480 6 | ClientWidth = 640 7 | Position = ScreenCenter 8 | FormFactor.Width = 320 9 | FormFactor.Height = 480 10 | FormFactor.Devices = [Desktop] 11 | OnActivate = FormActivate 12 | OnCreate = FormCreate 13 | OnClose = FormClose 14 | DesignerMasterStyle = 0 15 | object MainMenu: TMainMenu 16 | Left = 128 17 | Top = 80 18 | object MenuFile: TMenuItem 19 | Text = 'File' 20 | object MenuOpen: TMenuItem 21 | Locked = True 22 | ShortCut = 16463 23 | Text = 'Open' 24 | OnClick = MenuOpenClick 25 | end 26 | object MenuQuit: TMenuItem 27 | Locked = True 28 | ShortCut = 16465 29 | Text = 'Quit' 30 | OnClick = MenuQuitClick 31 | end 32 | end 33 | end 34 | object OpenDialog: TOpenDialog 35 | InitialDir = 'C:\_LibXE\vlc\_testFiles' 36 | Left = 40 37 | Top = 80 38 | end 39 | end 40 | -------------------------------------------------------------------------------- /use/PasLibVlc/Lazarus/DemoPasLibVlcPlayerPauseAtStart/MainFormUnit.lfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 367 3 | Height = 339 4 | Top = 135 5 | Width = 414 6 | Caption = 'DemoPasLivVlcPlayerPauseAtStart' 7 | ClientHeight = 339 8 | ClientWidth = 414 9 | Color = clBtnFace 10 | Font.Color = clWindowText 11 | Font.Height = -11 12 | Font.Name = 'Tahoma' 13 | OnClose = FormClose 14 | OnCreate = FormCreate 15 | LCLVersion = '1.8.0.6' 16 | object mrlEdit: TEdit 17 | Left = 12 18 | Height = 21 19 | Top = 12 20 | Width = 391 21 | TabOrder = 0 22 | end 23 | object player: TPasLibVlcPlayer 24 | Left = 12 25 | Top = 44 26 | Width = 391 27 | BevelOuter = bvNone 28 | ParentColor = False 29 | TabOrder = 1 30 | SnapShotFmt = 'png' 31 | OnMediaPlayerTimeChanged = playerMediaPlayerTimeChanged 32 | end 33 | object playButton: TButton 34 | Left = 164 35 | Height = 25 36 | Top = 300 37 | Width = 75 38 | Caption = 'Play' 39 | OnClick = playButtonClick 40 | TabOrder = 2 41 | end 42 | end 43 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE7/PasLibVlcPlayer.dpk: -------------------------------------------------------------------------------- 1 | package PasLibVlcPlayer; 2 | 3 | {$R *.res} 4 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} 5 | {$ALIGN 8} 6 | {$ASSERTIONS ON} 7 | {$BOOLEVAL OFF} 8 | {$DEBUGINFO OFF} 9 | {$EXTENDEDSYNTAX ON} 10 | {$IMPORTEDDATA ON} 11 | {$IOCHECKS ON} 12 | {$LOCALSYMBOLS OFF} 13 | {$LONGSTRINGS ON} 14 | {$OPENSTRINGS ON} 15 | {$OPTIMIZATION ON} 16 | {$OVERFLOWCHECKS OFF} 17 | {$RANGECHECKS OFF} 18 | {$REFERENCEINFO OFF} 19 | {$SAFEDIVIDE OFF} 20 | {$STACKFRAMES OFF} 21 | {$TYPEDADDRESS OFF} 22 | {$VARSTRINGCHECKS ON} 23 | {$WRITEABLECONST OFF} 24 | {$MINENUMSIZE 1} 25 | {$IMAGEBASE $400000} 26 | {$DEFINE RELEASE} 27 | {$ENDIF IMPLICITBUILDING} 28 | {$DESCRIPTION 'PasLibVlcPlayer Component'} 29 | {$IMPLICITBUILD ON} 30 | 31 | requires 32 | vcl, 33 | rtl, 34 | fmx; 35 | 36 | contains 37 | PasLibVlcUnit in '..\source\PasLibVlcUnit.pas', 38 | PasLibVlcClassUnit in '..\source\PasLibVlcClassUnit.pas', 39 | PasLibVlcPlayerUnit in '..\source.vcl\PasLibVlcPlayerUnit.pas', 40 | FmxPasLibVlcPlayerUnit in '..\source.fmx\FmxPasLibVlcPlayerUnit.pas'; 41 | 42 | end. 43 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE10/PasLibVlcPlayer.dpk: -------------------------------------------------------------------------------- 1 | package PasLibVlcPlayer; 2 | 3 | {$R *.res} 4 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} 5 | {$ALIGN 8} 6 | {$ASSERTIONS ON} 7 | {$BOOLEVAL OFF} 8 | {$DEBUGINFO OFF} 9 | {$EXTENDEDSYNTAX ON} 10 | {$IMPORTEDDATA ON} 11 | {$IOCHECKS ON} 12 | {$LOCALSYMBOLS OFF} 13 | {$LONGSTRINGS ON} 14 | {$OPENSTRINGS ON} 15 | {$OPTIMIZATION ON} 16 | {$OVERFLOWCHECKS OFF} 17 | {$RANGECHECKS OFF} 18 | {$REFERENCEINFO OFF} 19 | {$SAFEDIVIDE OFF} 20 | {$STACKFRAMES OFF} 21 | {$TYPEDADDRESS OFF} 22 | {$VARSTRINGCHECKS ON} 23 | {$WRITEABLECONST OFF} 24 | {$MINENUMSIZE 1} 25 | {$IMAGEBASE $400000} 26 | {$DEFINE RELEASE} 27 | {$ENDIF IMPLICITBUILDING} 28 | {$DESCRIPTION 'PasLibVlcPlayer design time package'} 29 | {$IMPLICITBUILD ON} 30 | 31 | requires 32 | vcl, 33 | rtl, 34 | fmx; 35 | 36 | contains 37 | PasLibVlcUnit in '..\source\PasLibVlcUnit.pas', 38 | PasLibVlcClassUnit in '..\source\PasLibVlcClassUnit.pas', 39 | PasLibVlcPlayerUnit in '..\source.vcl\PasLibVlcPlayerUnit.pas', 40 | FmxPasLibVlcPlayerUnit in '..\source.fmx\FmxPasLibVlcPlayerUnit.pas'; 41 | 42 | end. 43 | -------------------------------------------------------------------------------- /src/unit5.pas: -------------------------------------------------------------------------------- 1 | unit Unit5; 2 | 3 | {$mode objfpc}{$H+} 4 | 5 | interface 6 | 7 | uses 8 | Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, 9 | ButtonPanel; 10 | 11 | type 12 | 13 | { TForm5 } 14 | 15 | TForm5 = class(TForm) 16 | ButtonPanel1: TButtonPanel; 17 | Edit1: TEdit; 18 | Label1: TLabel; 19 | procedure CancelButtonClick(Sender: TObject); 20 | procedure FormShow(Sender: TObject); 21 | procedure OKButtonClick(Sender: TObject); 22 | private 23 | { private declarations } 24 | public 25 | { public declarations } 26 | end; 27 | 28 | var 29 | Form5: TForm5; 30 | isgo:boolean=false; 31 | 32 | implementation 33 | 34 | {$R *.lfm} 35 | 36 | { TForm5 } 37 | 38 | procedure TForm5.OKButtonClick(Sender: TObject); 39 | begin 40 | isgo:=true; 41 | Form5.Close; 42 | end; 43 | 44 | procedure TForm5.CancelButtonClick(Sender: TObject); 45 | begin 46 | isgo:=false; 47 | Form5.Close; 48 | end; 49 | 50 | procedure TForm5.FormShow(Sender: TObject); 51 | begin 52 | isgo:=false; 53 | end; 54 | 55 | end. 56 | 57 | -------------------------------------------------------------------------------- /src/fgoto.pas: -------------------------------------------------------------------------------- 1 | unit fgoto; 2 | 3 | {$mode objfpc}{$H+} 4 | 5 | interface 6 | 7 | uses 8 | Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, 9 | ButtonPanel; 10 | 11 | type 12 | 13 | { Tfrgoto } 14 | 15 | Tfrgoto = class(TForm) 16 | ButtonPanel1: TButtonPanel; 17 | Edit1: TEdit; 18 | Label1: TLabel; 19 | procedure CancelButtonClick(Sender: TObject); 20 | procedure FormShow(Sender: TObject); 21 | procedure OKButtonClick(Sender: TObject); 22 | private 23 | { private declarations } 24 | public 25 | { public declarations } 26 | end; 27 | 28 | var 29 | frgoto: Tfrgoto; 30 | isgo:boolean=false; 31 | 32 | implementation 33 | 34 | {$R *.lfm} 35 | 36 | { Tfrgoto } 37 | 38 | procedure Tfrgoto.OKButtonClick(Sender: TObject); 39 | begin 40 | isgo:=true; 41 | frgoto.Close; 42 | end; 43 | 44 | procedure Tfrgoto.CancelButtonClick(Sender: TObject); 45 | begin 46 | isgo:=false; 47 | frgoto.Close; 48 | end; 49 | 50 | procedure Tfrgoto.FormShow(Sender: TObject); 51 | begin 52 | isgo:=false; 53 | end; 54 | 55 | end. 56 | 57 | -------------------------------------------------------------------------------- /use/PasLibVlc/Delphi2007/DemoPasLibVlc/MainFormUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'libvlc demo' 5 | ClientHeight = 453 6 | ClientWidth = 632 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | Menu = MainMenu 14 | OldCreateOrder = False 15 | Position = poScreenCenter 16 | OnClose = FormClose 17 | OnCreate = FormCreate 18 | PixelsPerInch = 96 19 | TextHeight = 13 20 | object OpenDialog: TOpenDialog 21 | DefaultExt = '*.*' 22 | Title = 'Select file to play' 23 | Left = 8 24 | Top = 12 25 | end 26 | object MainMenu: TMainMenu 27 | Left = 44 28 | Top = 12 29 | object MenuFile: TMenuItem 30 | Caption = 'File' 31 | object MenuFileOpen: TMenuItem 32 | Caption = 'Open' 33 | ShortCut = 16463 34 | OnClick = MenuFileOpenClick 35 | end 36 | object MenuFileQuit: TMenuItem 37 | Caption = 'Quit' 38 | ShortCut = 16465 39 | OnClick = MenuFileQuitClick 40 | end 41 | end 42 | end 43 | end 44 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE7/DemoPasLibVlc/MainFormUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'libvlc demo' 5 | ClientHeight = 453 6 | ClientWidth = 632 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | Menu = MainMenu 14 | OldCreateOrder = False 15 | Position = poScreenCenter 16 | OnCreate = FormCreate 17 | OnDestroy = FormDestroy 18 | PixelsPerInch = 96 19 | TextHeight = 13 20 | object OpenDialog: TOpenDialog 21 | DefaultExt = '*.*' 22 | Title = 'Select file to play' 23 | Left = 8 24 | Top = 12 25 | end 26 | object MainMenu: TMainMenu 27 | Left = 44 28 | Top = 12 29 | object MenuFile: TMenuItem 30 | Caption = 'File' 31 | object MenuFileOpen: TMenuItem 32 | Caption = 'Open' 33 | ShortCut = 16463 34 | OnClick = MenuFileOpenClick 35 | end 36 | object MenuFileQuit: TMenuItem 37 | Caption = 'Quit' 38 | ShortCut = 16465 39 | OnClick = MenuFileQuitClick 40 | end 41 | end 42 | end 43 | end 44 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE10/DemoPasLibVlc/MainFormUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'libvlc demo' 5 | ClientHeight = 453 6 | ClientWidth = 632 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | Menu = MainMenu 14 | OldCreateOrder = False 15 | Position = poScreenCenter 16 | OnCreate = FormCreate 17 | OnDestroy = FormDestroy 18 | PixelsPerInch = 96 19 | TextHeight = 13 20 | object OpenDialog: TOpenDialog 21 | DefaultExt = '*.*' 22 | Title = 'Select file to play' 23 | Left = 8 24 | Top = 12 25 | end 26 | object MainMenu: TMainMenu 27 | Left = 44 28 | Top = 12 29 | object MenuFile: TMenuItem 30 | Caption = 'File' 31 | object MenuFileOpen: TMenuItem 32 | Caption = 'Open' 33 | ShortCut = 16463 34 | OnClick = MenuFileOpenClick 35 | end 36 | object MenuFileQuit: TMenuItem 37 | Caption = 'Quit' 38 | ShortCut = 16465 39 | OnClick = MenuFileQuitClick 40 | end 41 | end 42 | end 43 | end 44 | -------------------------------------------------------------------------------- /use/PasLibVlc/Delphi7/DemoPasLibVlc/MainFormUnit.dfm: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 411 3 | Top = 197 4 | Width = 640 5 | Height = 499 6 | Caption = 'libvlc demo' 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | Menu = MainMenu 14 | OldCreateOrder = False 15 | Position = poScreenCenter 16 | OnClose = FormClose 17 | OnCreate = FormCreate 18 | PixelsPerInch = 96 19 | TextHeight = 13 20 | object OpenDialog: TOpenDialog 21 | DefaultExt = '*.*' 22 | Filter = 'All files|*.*' 23 | Title = 'Select file to play' 24 | Left = 8 25 | Top = 12 26 | end 27 | object MainMenu: TMainMenu 28 | Left = 44 29 | Top = 12 30 | object MenuFile: TMenuItem 31 | Caption = 'File' 32 | object MenuFileOpen: TMenuItem 33 | Caption = 'Open' 34 | ShortCut = 16463 35 | OnClick = MenuFileOpenClick 36 | end 37 | object MenuFileQuit: TMenuItem 38 | Caption = 'Quit' 39 | ShortCut = 16465 40 | OnClick = MenuFileQuitClick 41 | end 42 | end 43 | end 44 | end 45 | -------------------------------------------------------------------------------- /src/print.pas: -------------------------------------------------------------------------------- 1 | unit print; 2 | 3 | {$mode objfpc}{$H+} 4 | 5 | interface 6 | 7 | uses 8 | Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, 9 | ButtonPanel, Spin; 10 | 11 | type 12 | 13 | { Tfrprint } 14 | 15 | Tfrprint = class(TForm) 16 | btnpPrinter: TButtonPanel; 17 | cbPrinter: TComboBox; 18 | cbSheel: TComboBox; 19 | lblCopys: TLabel; 20 | lblSheel: TLabel; 21 | lblprint: TLabel; 22 | rbVertical: TRadioButton; 23 | rbHorizontal: TRadioButton; 24 | speCopys: TSpinEdit; 25 | procedure CloseButtonClick(Sender: TObject); 26 | procedure FormShow(Sender: TObject); 27 | procedure OKButtonClick(Sender: TObject); 28 | private 29 | 30 | public 31 | var 32 | accept:boolean; 33 | end; 34 | 35 | var 36 | frprint: Tfrprint; 37 | implementation 38 | 39 | {$R *.lfm} 40 | 41 | { Tfrprint } 42 | 43 | procedure Tfrprint.CloseButtonClick(Sender: TObject); 44 | begin 45 | accept:=false; 46 | end; 47 | 48 | procedure Tfrprint.FormShow(Sender: TObject); 49 | begin 50 | accept:=false; 51 | end; 52 | 53 | procedure Tfrprint.OKButtonClick(Sender: TObject); 54 | begin 55 | accept:=true; 56 | end; 57 | 58 | end. 59 | 60 | -------------------------------------------------------------------------------- /use/PasLibVlc/Lazarus/DemoPasLibVlcPlayer/SelectOutputDeviceFormUnit.lfm: -------------------------------------------------------------------------------- 1 | object SelectOutputDeviceForm: TSelectOutputDeviceForm 2 | Left = 266 3 | Height = 240 4 | Top = 112 5 | Width = 370 6 | BorderStyle = bsDialog 7 | Caption = 'Select output device' 8 | ClientHeight = 240 9 | ClientWidth = 370 10 | Position = poMainFormCenter 11 | LCLVersion = '1.4.4.0' 12 | object OutputDevicesLB: TListBox 13 | Left = 8 14 | Height = 200 15 | Top = 32 16 | Width = 264 17 | ItemHeight = 0 18 | OnDblClick = OutputDevicesLBDblClick 19 | OnDrawItem = OutputDevicesLBDrawItem 20 | Style = lbOwnerDrawFixed 21 | TabOrder = 0 22 | end 23 | object OkBtn: TButton 24 | Left = 280 25 | Height = 25 26 | Top = 32 27 | Width = 75 28 | Caption = 'OK' 29 | Default = True 30 | OnClick = OkBtnClick 31 | TabOrder = 1 32 | end 33 | object OutputDevicesLabel: TLabel 34 | Left = 8 35 | Height = 13 36 | Top = 12 37 | Width = 96 38 | Caption = 'OutputDevicesLabel' 39 | FocusControl = OutputDevicesLB 40 | ParentColor = False 41 | end 42 | object CancelBtn: TButton 43 | Left = 280 44 | Height = 25 45 | Top = 64 46 | Width = 75 47 | Caption = 'Cancel' 48 | ModalResult = 2 49 | TabOrder = 2 50 | end 51 | end 52 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE10/DemoPasLibVlcPlayer/DemoPasLibVlcPlayer.deployproj: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 12 5 | 6 | 7 | 8 | 9 | 10 | DemoPasLibVlcPlayer\ 11 | DemoPasLibVlcPlayer.exe 12 | ProjectOutput 13 | 0 14 | 15 | 16 | True 17 | True 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE10/DemoPasLibVlcPlayer/SelectOutputDeviceFormUnit.dfm: -------------------------------------------------------------------------------- 1 | object SelectOutputDeviceForm: TSelectOutputDeviceForm 2 | Left = 0 3 | Top = 0 4 | BorderStyle = bsDialog 5 | Caption = 'Select output device' 6 | ClientHeight = 242 7 | ClientWidth = 395 8 | Color = clBtnFace 9 | Font.Charset = DEFAULT_CHARSET 10 | Font.Color = clWindowText 11 | Font.Height = -11 12 | Font.Name = 'Tahoma' 13 | Font.Style = [] 14 | OldCreateOrder = False 15 | Position = poMainFormCenter 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object OutputDevicesLabel: TLabel 19 | Left = 12 20 | Top = 8 21 | Width = 77 22 | Height = 13 23 | Caption = 'Output devices:' 24 | FocusControl = OutputDevicesLB 25 | end 26 | object OutputDevicesLB: TListBox 27 | Left = 12 28 | Top = 27 29 | Width = 285 30 | Height = 198 31 | Style = lbOwnerDrawFixed 32 | TabOrder = 0 33 | OnDblClick = OutputDevicesLBDblClick 34 | OnDrawItem = OutputDevicesLBDrawItem 35 | end 36 | object OkBtn: TButton 37 | Left = 310 38 | Top = 28 39 | Width = 75 40 | Height = 25 41 | Caption = 'OK' 42 | Default = True 43 | TabOrder = 1 44 | OnClick = OkBtnClick 45 | end 46 | object CancelBtn: TButton 47 | Left = 310 48 | Top = 59 49 | Width = 75 50 | Height = 25 51 | Caption = 'Cancel' 52 | ModalResult = 2 53 | TabOrder = 2 54 | end 55 | end 56 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE7/DemoPasLibVlcPlayer/SelectOutputDeviceFormUnit.dfm: -------------------------------------------------------------------------------- 1 | object SelectOutputDeviceForm: TSelectOutputDeviceForm 2 | Left = 0 3 | Top = 0 4 | BorderStyle = bsDialog 5 | Caption = 'Select output device' 6 | ClientHeight = 242 7 | ClientWidth = 395 8 | Color = clBtnFace 9 | Font.Charset = DEFAULT_CHARSET 10 | Font.Color = clWindowText 11 | Font.Height = -11 12 | Font.Name = 'Tahoma' 13 | Font.Style = [] 14 | OldCreateOrder = False 15 | Position = poMainFormCenter 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object OutputDevicesLabel: TLabel 19 | Left = 12 20 | Top = 8 21 | Width = 77 22 | Height = 13 23 | Caption = 'Output devices:' 24 | FocusControl = OutputDevicesLB 25 | end 26 | object OutputDevicesLB: TListBox 27 | Left = 12 28 | Top = 27 29 | Width = 285 30 | Height = 198 31 | Style = lbOwnerDrawFixed 32 | TabOrder = 0 33 | OnDblClick = OutputDevicesLBDblClick 34 | OnDrawItem = OutputDevicesLBDrawItem 35 | end 36 | object OkBtn: TButton 37 | Left = 310 38 | Top = 28 39 | Width = 75 40 | Height = 25 41 | Caption = 'OK' 42 | Default = True 43 | TabOrder = 1 44 | OnClick = OkBtnClick 45 | end 46 | object CancelBtn: TButton 47 | Left = 310 48 | Top = 59 49 | Width = 75 50 | Height = 25 51 | Caption = 'Cancel' 52 | ModalResult = 2 53 | TabOrder = 2 54 | end 55 | end 56 | -------------------------------------------------------------------------------- /use/PasLibVlc/Delphi7/DemoPasLibVlcPlayer/SelectOutputDeviceFormUnit.dfm: -------------------------------------------------------------------------------- 1 | object SelectOutputDeviceForm: TSelectOutputDeviceForm 2 | Left = 0 3 | Top = 0 4 | BorderStyle = bsDialog 5 | Caption = 'Select output device' 6 | ClientHeight = 242 7 | ClientWidth = 395 8 | Color = clBtnFace 9 | Font.Charset = DEFAULT_CHARSET 10 | Font.Color = clWindowText 11 | Font.Height = -11 12 | Font.Name = 'Tahoma' 13 | Font.Style = [] 14 | OldCreateOrder = False 15 | Position = poMainFormCenter 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object OutputDevicesLabel: TLabel 19 | Left = 12 20 | Top = 8 21 | Width = 77 22 | Height = 13 23 | Caption = 'Output devices:' 24 | FocusControl = OutputDevicesLB 25 | end 26 | object OutputDevicesLB: TListBox 27 | Left = 12 28 | Top = 27 29 | Width = 285 30 | Height = 198 31 | Style = lbOwnerDrawFixed 32 | ItemHeight = 16 33 | TabOrder = 0 34 | OnDblClick = OutputDevicesLBDblClick 35 | OnDrawItem = OutputDevicesLBDrawItem 36 | end 37 | object OkBtn: TButton 38 | Left = 310 39 | Top = 28 40 | Width = 75 41 | Height = 25 42 | Caption = 'OK' 43 | Default = True 44 | TabOrder = 1 45 | OnClick = OkBtnClick 46 | end 47 | object CancelBtn: TButton 48 | Left = 310 49 | Top = 59 50 | Width = 75 51 | Height = 25 52 | Caption = 'Cancel' 53 | ModalResult = 2 54 | TabOrder = 2 55 | end 56 | end 57 | -------------------------------------------------------------------------------- /use/PasLibVlc/Delphi2007/DemoPasLibVlcPlayer/SelectOutputDeviceFormUnit.dfm: -------------------------------------------------------------------------------- 1 | object SelectOutputDeviceForm: TSelectOutputDeviceForm 2 | Left = 0 3 | Top = 0 4 | BorderStyle = bsDialog 5 | Caption = 'Select output device' 6 | ClientHeight = 242 7 | ClientWidth = 395 8 | Color = clBtnFace 9 | Font.Charset = DEFAULT_CHARSET 10 | Font.Color = clWindowText 11 | Font.Height = -11 12 | Font.Name = 'Tahoma' 13 | Font.Style = [] 14 | OldCreateOrder = False 15 | Position = poMainFormCenter 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object OutputDevicesLabel: TLabel 19 | Left = 12 20 | Top = 8 21 | Width = 77 22 | Height = 13 23 | Caption = 'Output devices:' 24 | FocusControl = OutputDevicesLB 25 | end 26 | object OutputDevicesLB: TListBox 27 | Left = 12 28 | Top = 27 29 | Width = 285 30 | Height = 198 31 | Style = lbOwnerDrawFixed 32 | ItemHeight = 16 33 | TabOrder = 0 34 | OnDblClick = OutputDevicesLBDblClick 35 | OnDrawItem = OutputDevicesLBDrawItem 36 | end 37 | object OkBtn: TButton 38 | Left = 310 39 | Top = 28 40 | Width = 75 41 | Height = 25 42 | Caption = 'OK' 43 | Default = True 44 | TabOrder = 1 45 | OnClick = OkBtnClick 46 | end 47 | object CancelBtn: TButton 48 | Left = 310 49 | Top = 59 50 | Width = 75 51 | Height = 25 52 | Caption = 'Cancel' 53 | ModalResult = 2 54 | TabOrder = 2 55 | end 56 | end 57 | -------------------------------------------------------------------------------- /src/unit6.lfm: -------------------------------------------------------------------------------- 1 | object Form6: TForm6 2 | Left = 519 3 | Height = 97 4 | Top = 302 5 | Width = 306 6 | Caption = 'Thumbnail size' 7 | ClientHeight = 97 8 | ClientWidth = 306 9 | LCLVersion = '1.8.4.0' 10 | object ButtonPanel1: TButtonPanel 11 | Left = 6 12 | Height = 34 13 | Top = 57 14 | Width = 294 15 | OKButton.Name = 'OKButton' 16 | OKButton.DefaultCaption = True 17 | HelpButton.Name = 'HelpButton' 18 | HelpButton.DefaultCaption = True 19 | CloseButton.Name = 'CloseButton' 20 | CloseButton.DefaultCaption = True 21 | CancelButton.Name = 'CancelButton' 22 | CancelButton.DefaultCaption = True 23 | TabOrder = 0 24 | ShowButtons = [pbOK, pbCancel] 25 | end 26 | object SpinEdit1: TSpinEdit 27 | AnchorSideLeft.Control = Label1 28 | AnchorSideLeft.Side = asrBottom 29 | AnchorSideTop.Control = Label1 30 | AnchorSideTop.Side = asrCenter 31 | Left = 179 32 | Height = 23 33 | Top = 16 34 | Width = 59 35 | MaxValue = 1024 36 | MinValue = 16 37 | TabOrder = 1 38 | Value = 256 39 | end 40 | object Label1: TLabel 41 | AnchorSideLeft.Control = Owner 42 | AnchorSideTop.Control = Owner 43 | AnchorSideBottom.Control = ButtonPanel1 44 | AnchorSideBottom.Side = asrBottom 45 | Left = 20 46 | Height = 15 47 | Top = 20 48 | Width = 159 49 | BorderSpacing.Left = 20 50 | BorderSpacing.Top = 20 51 | Caption = 'Thumbnail size (with x height)' 52 | ParentColor = False 53 | end 54 | end 55 | -------------------------------------------------------------------------------- /src/fthumbsize.lfm: -------------------------------------------------------------------------------- 1 | object frthumbsize: Tfrthumbsize 2 | Left = 519 3 | Height = 97 4 | Top = 302 5 | Width = 306 6 | Caption = 'Thumbnail size' 7 | ClientHeight = 97 8 | ClientWidth = 306 9 | LCLVersion = '1.8.4.0' 10 | object ButtonPanel1: TButtonPanel 11 | Left = 6 12 | Height = 34 13 | Top = 57 14 | Width = 294 15 | OKButton.Name = 'OKButton' 16 | OKButton.DefaultCaption = True 17 | HelpButton.Name = 'HelpButton' 18 | HelpButton.DefaultCaption = True 19 | CloseButton.Name = 'CloseButton' 20 | CloseButton.DefaultCaption = True 21 | CancelButton.Name = 'CancelButton' 22 | CancelButton.DefaultCaption = True 23 | TabOrder = 0 24 | ShowButtons = [pbOK, pbCancel] 25 | end 26 | object SpinEdit1: TSpinEdit 27 | AnchorSideLeft.Control = Label1 28 | AnchorSideLeft.Side = asrBottom 29 | AnchorSideTop.Control = Label1 30 | AnchorSideTop.Side = asrCenter 31 | Left = 179 32 | Height = 23 33 | Top = 16 34 | Width = 59 35 | MaxValue = 1024 36 | MinValue = 16 37 | TabOrder = 1 38 | Value = 256 39 | end 40 | object Label1: TLabel 41 | AnchorSideLeft.Control = Owner 42 | AnchorSideTop.Control = Owner 43 | AnchorSideBottom.Control = ButtonPanel1 44 | AnchorSideBottom.Side = asrBottom 45 | Left = 20 46 | Height = 15 47 | Top = 20 48 | Width = 159 49 | BorderSpacing.Left = 20 50 | BorderSpacing.Top = 20 51 | Caption = 'Thumbnail size (with x height)' 52 | ParentColor = False 53 | end 54 | end 55 | -------------------------------------------------------------------------------- /src/unit3.lfm: -------------------------------------------------------------------------------- 1 | object Form3: TForm3 2 | Left = 467 3 | Height = 126 4 | Top = 361 5 | Width = 213 6 | ActiveControl = TrackBar1 7 | BorderIcons = [biSystemMenu] 8 | BorderStyle = bsDialog 9 | Caption = 'Quality' 10 | ClientHeight = 126 11 | ClientWidth = 213 12 | FormStyle = fsStayOnTop 13 | LCLVersion = '1.8.4.0' 14 | object TrackBar1: TTrackBar 15 | AnchorSideLeft.Control = Owner 16 | AnchorSideLeft.Side = asrCenter 17 | AnchorSideTop.Control = Owner 18 | Left = 26 19 | Height = 25 20 | Top = 30 21 | Width = 160 22 | Max = 100 23 | OnChange = TrackBar1Change 24 | Position = 100 25 | BorderSpacing.Top = 30 26 | TabOrder = 0 27 | end 28 | object ButtonPanel1: TButtonPanel 29 | Left = 6 30 | Height = 34 31 | Top = 86 32 | Width = 201 33 | AutoSize = False 34 | OKButton.Name = 'OKButton' 35 | OKButton.DefaultCaption = True 36 | HelpButton.Name = 'HelpButton' 37 | HelpButton.DefaultCaption = True 38 | CloseButton.Name = 'CloseButton' 39 | CloseButton.DefaultCaption = True 40 | CancelButton.Name = 'CancelButton' 41 | CancelButton.DefaultCaption = True 42 | TabOrder = 1 43 | ShowButtons = [pbOK] 44 | ShowBevel = False 45 | end 46 | object Label1: TLabel 47 | AnchorSideLeft.Control = TrackBar1 48 | AnchorSideLeft.Side = asrBottom 49 | AnchorSideTop.Control = TrackBar1 50 | AnchorSideTop.Side = asrCenter 51 | Left = 186 52 | Height = 15 53 | Top = 35 54 | Width = 18 55 | Caption = '100' 56 | ParentColor = False 57 | end 58 | end 59 | -------------------------------------------------------------------------------- /src/fquality.lfm: -------------------------------------------------------------------------------- 1 | object frquality: Tfrquality 2 | Left = 467 3 | Height = 126 4 | Top = 361 5 | Width = 213 6 | ActiveControl = TrackBar1 7 | BorderIcons = [biSystemMenu] 8 | BorderStyle = bsDialog 9 | Caption = 'Quality' 10 | ClientHeight = 126 11 | ClientWidth = 213 12 | FormStyle = fsStayOnTop 13 | LCLVersion = '1.8.4.0' 14 | object TrackBar1: TTrackBar 15 | AnchorSideLeft.Control = Owner 16 | AnchorSideLeft.Side = asrCenter 17 | AnchorSideTop.Control = Owner 18 | Left = 26 19 | Height = 25 20 | Top = 30 21 | Width = 160 22 | Max = 100 23 | OnChange = TrackBar1Change 24 | Position = 100 25 | BorderSpacing.Top = 30 26 | TabOrder = 0 27 | end 28 | object ButtonPanel1: TButtonPanel 29 | Left = 6 30 | Height = 34 31 | Top = 86 32 | Width = 201 33 | AutoSize = False 34 | OKButton.Name = 'OKButton' 35 | OKButton.DefaultCaption = True 36 | HelpButton.Name = 'HelpButton' 37 | HelpButton.DefaultCaption = True 38 | CloseButton.Name = 'CloseButton' 39 | CloseButton.DefaultCaption = True 40 | CancelButton.Name = 'CancelButton' 41 | CancelButton.DefaultCaption = True 42 | TabOrder = 1 43 | ShowButtons = [pbOK] 44 | ShowBevel = False 45 | end 46 | object Label1: TLabel 47 | AnchorSideLeft.Control = TrackBar1 48 | AnchorSideLeft.Side = asrBottom 49 | AnchorSideTop.Control = TrackBar1 50 | AnchorSideTop.Side = asrCenter 51 | Left = 186 52 | Height = 15 53 | Top = 35 54 | Width = 18 55 | Caption = '100' 56 | ParentColor = False 57 | end 58 | end 59 | -------------------------------------------------------------------------------- /use/PasLibVlc/Lazarus/DemoPasLibVlcPlayer/SetEqualizerPresetFormUnit.lfm: -------------------------------------------------------------------------------- 1 | object SetEqualizerPresetForm: TSetEqualizerPresetForm 2 | Left = 243 3 | Height = 293 4 | Top = 109 5 | Width = 468 6 | Caption = 'Set Equalizer Preset' 7 | ClientHeight = 293 8 | ClientWidth = 468 9 | Color = clBtnFace 10 | Font.Color = clWindowText 11 | Font.Height = -11 12 | Font.Name = 'Tahoma' 13 | Position = poMainFormCenter 14 | LCLVersion = '1.2.6.0' 15 | object PresetListLabel: TLabel 16 | Left = 16 17 | Height = 13 18 | Top = 13 19 | Width = 40 20 | Caption = 'Presets:' 21 | FocusControl = PresetListLB 22 | ParentColor = False 23 | end 24 | object BandInfoLabel: TLabel 25 | Left = 140 26 | Height = 13 27 | Top = 13 28 | Width = 83 29 | Caption = 'Preset band info:' 30 | FocusControl = BandInfoLB 31 | ParentColor = False 32 | end 33 | object PresetListLB: TListBox 34 | Left = 16 35 | Height = 245 36 | Top = 32 37 | Width = 105 38 | ItemHeight = 0 39 | OnClick = PresetListLBClick 40 | TabOrder = 0 41 | end 42 | object OkBtn: TButton 43 | Left = 380 44 | Height = 25 45 | Top = 13 46 | Width = 75 47 | Caption = 'OK' 48 | Default = True 49 | ModalResult = 1 50 | TabOrder = 1 51 | end 52 | object CancelBtn: TButton 53 | Left = 380 54 | Height = 25 55 | Top = 44 56 | Width = 75 57 | Cancel = True 58 | Caption = 'Cancel' 59 | ModalResult = 2 60 | TabOrder = 2 61 | end 62 | object BandInfoLB: TListBox 63 | Left = 140 64 | Height = 245 65 | Top = 32 66 | Width = 221 67 | ItemHeight = 0 68 | TabOrder = 3 69 | end 70 | end 71 | -------------------------------------------------------------------------------- /use/vlc/test/frmmain.pp: -------------------------------------------------------------------------------- 1 | unit frmmain; 2 | 3 | {$mode objfpc}{$H+} 4 | 5 | interface 6 | 7 | uses 8 | Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls, 9 | EditBtn, StdCtrls, lclvlc, vlc, libvlc; 10 | 11 | type 12 | 13 | { TForm1 } 14 | 15 | TForm1 = class(TForm) 16 | Bplay: TButton; 17 | BStop: TButton; 18 | BPause: TButton; 19 | BResume: TButton; 20 | FEVideo: TFileNameEdit; 21 | Label1: TLabel; 22 | PVideo: TPanel; 23 | procedure BPauseClick(Sender: TObject); 24 | procedure BplayClick(Sender: TObject); 25 | procedure BResumeClick(Sender: TObject); 26 | procedure BStopClick(Sender: TObject); 27 | procedure FormCreate(Sender: TObject); 28 | procedure FormDestroy(Sender: TObject); 29 | private 30 | { private declarations } 31 | FPlayer : TLCLVlcPlayer; 32 | public 33 | { public declarations } 34 | end; 35 | 36 | var 37 | Form1: TForm1; 38 | 39 | implementation 40 | 41 | {$R *.lfm} 42 | 43 | { TForm1 } 44 | 45 | procedure TForm1.FormCreate(Sender: TObject); 46 | begin 47 | FPlayer:=TLCLVLCPlayer.Create(Self); 48 | FPlayer.ParentWindow:=PVideo; 49 | end; 50 | 51 | procedure TForm1.BplayClick(Sender: TObject); 52 | begin 53 | Fplayer.PlayFile(FEVideo.FileName); 54 | end; 55 | 56 | procedure TForm1.BResumeClick(Sender: TObject); 57 | begin 58 | FPlayer.Resume; 59 | end; 60 | 61 | procedure TForm1.BPauseClick(Sender: TObject); 62 | begin 63 | FPLayer.Pause; 64 | end; 65 | 66 | procedure TForm1.BStopClick(Sender: TObject); 67 | begin 68 | FPlayer.Stop; 69 | end; 70 | 71 | procedure TForm1.FormDestroy(Sender: TObject); 72 | begin 73 | FreeAndNil(FPlayer); 74 | end; 75 | 76 | end. 77 | 78 | -------------------------------------------------------------------------------- /use/PasLibVlc/Delphi2007/DemoPasLibVlcPlayer/SetEqualizerPresetFormUnit.dfm: -------------------------------------------------------------------------------- 1 | object SetEqualizerPresetForm: TSetEqualizerPresetForm 2 | Left = 0 3 | Top = 0 4 | BorderStyle = bsDialog 5 | Caption = 'Set Equalizer Preset' 6 | ClientHeight = 295 7 | ClientWidth = 470 8 | Color = clBtnFace 9 | Font.Charset = DEFAULT_CHARSET 10 | Font.Color = clWindowText 11 | Font.Height = -11 12 | Font.Name = 'Tahoma' 13 | Font.Style = [] 14 | OldCreateOrder = False 15 | Position = poMainFormCenter 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object PresetListLabel: TLabel 19 | Left = 16 20 | Top = 13 21 | Width = 40 22 | Height = 13 23 | Caption = 'Presets:' 24 | FocusControl = PresetListLB 25 | end 26 | object BandInfoLabel: TLabel 27 | Left = 140 28 | Top = 13 29 | Width = 83 30 | Height = 13 31 | Caption = 'Preset band info:' 32 | FocusControl = BandInfoLB 33 | end 34 | object PresetListLB: TListBox 35 | Left = 16 36 | Top = 32 37 | Width = 105 38 | Height = 245 39 | ItemHeight = 13 40 | TabOrder = 0 41 | OnClick = PresetListLBClick 42 | end 43 | object OkBtn: TButton 44 | Left = 380 45 | Top = 13 46 | Width = 75 47 | Height = 25 48 | Caption = 'OK' 49 | Default = True 50 | ModalResult = 1 51 | TabOrder = 1 52 | end 53 | object CancelBtn: TButton 54 | Left = 380 55 | Top = 44 56 | Width = 75 57 | Height = 25 58 | Cancel = True 59 | Caption = 'Cancel' 60 | ModalResult = 2 61 | TabOrder = 2 62 | end 63 | object BandInfoLB: TListBox 64 | Left = 140 65 | Top = 32 66 | Width = 221 67 | Height = 245 68 | ItemHeight = 13 69 | TabOrder = 3 70 | end 71 | end 72 | -------------------------------------------------------------------------------- /use/PasLibVlc/Delphi7/DemoPasLibVlcPlayer/SetEqualizerPresetFormUnit.dfm: -------------------------------------------------------------------------------- 1 | object SetEqualizerPresetForm: TSetEqualizerPresetForm 2 | Left = 0 3 | Top = 0 4 | BorderStyle = bsDialog 5 | Caption = 'Set Equalizer Preset' 6 | ClientHeight = 295 7 | ClientWidth = 470 8 | Color = clBtnFace 9 | Font.Charset = DEFAULT_CHARSET 10 | Font.Color = clWindowText 11 | Font.Height = -11 12 | Font.Name = 'Tahoma' 13 | Font.Style = [] 14 | OldCreateOrder = False 15 | Position = poMainFormCenter 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object PresetListLabel: TLabel 19 | Left = 16 20 | Top = 13 21 | Width = 40 22 | Height = 13 23 | Caption = 'Presets:' 24 | FocusControl = PresetListLB 25 | end 26 | object BandInfoLabel: TLabel 27 | Left = 140 28 | Top = 13 29 | Width = 83 30 | Height = 13 31 | Caption = 'Preset band info:' 32 | FocusControl = BandInfoLB 33 | end 34 | object PresetListLB: TListBox 35 | Left = 16 36 | Top = 32 37 | Width = 105 38 | Height = 245 39 | ItemHeight = 13 40 | TabOrder = 0 41 | OnClick = PresetListLBClick 42 | end 43 | object OkBtn: TButton 44 | Left = 380 45 | Top = 13 46 | Width = 75 47 | Height = 25 48 | Caption = 'OK' 49 | Default = True 50 | ModalResult = 1 51 | TabOrder = 1 52 | end 53 | object CancelBtn: TButton 54 | Left = 380 55 | Top = 44 56 | Width = 75 57 | Height = 25 58 | Cancel = True 59 | Caption = 'Cancel' 60 | ModalResult = 2 61 | TabOrder = 2 62 | end 63 | object BandInfoLB: TListBox 64 | Left = 140 65 | Top = 32 66 | Width = 221 67 | Height = 245 68 | ItemHeight = 13 69 | TabOrder = 3 70 | end 71 | end 72 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE10/DemoPasLibVlcPlayer/SetEqualizerPresetFormUnit.dfm: -------------------------------------------------------------------------------- 1 | object SetEqualizerPresetForm: TSetEqualizerPresetForm 2 | Left = 0 3 | Top = 0 4 | BorderStyle = bsDialog 5 | Caption = 'Set Equalizer Preset' 6 | ClientHeight = 295 7 | ClientWidth = 470 8 | Color = clBtnFace 9 | Font.Charset = DEFAULT_CHARSET 10 | Font.Color = clWindowText 11 | Font.Height = -11 12 | Font.Name = 'Tahoma' 13 | Font.Style = [] 14 | OldCreateOrder = False 15 | Position = poMainFormCenter 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object PresetListLabel: TLabel 19 | Left = 16 20 | Top = 13 21 | Width = 40 22 | Height = 13 23 | Caption = 'Presets:' 24 | FocusControl = PresetListLB 25 | end 26 | object BandInfoLabel: TLabel 27 | Left = 140 28 | Top = 13 29 | Width = 83 30 | Height = 13 31 | Caption = 'Preset band info:' 32 | FocusControl = BandInfoLB 33 | end 34 | object PresetListLB: TListBox 35 | Left = 16 36 | Top = 32 37 | Width = 105 38 | Height = 245 39 | ItemHeight = 13 40 | TabOrder = 0 41 | OnClick = PresetListLBClick 42 | end 43 | object OkBtn: TButton 44 | Left = 380 45 | Top = 13 46 | Width = 75 47 | Height = 25 48 | Caption = 'OK' 49 | Default = True 50 | ModalResult = 1 51 | TabOrder = 1 52 | end 53 | object CancelBtn: TButton 54 | Left = 380 55 | Top = 44 56 | Width = 75 57 | Height = 25 58 | Cancel = True 59 | Caption = 'Cancel' 60 | ModalResult = 2 61 | TabOrder = 2 62 | end 63 | object BandInfoLB: TListBox 64 | Left = 140 65 | Top = 32 66 | Width = 221 67 | Height = 245 68 | ItemHeight = 13 69 | TabOrder = 3 70 | end 71 | end 72 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE7/DemoPasLibVlcPlayer/SetEqualizerPresetFormUnit.dfm: -------------------------------------------------------------------------------- 1 | object SetEqualizerPresetForm: TSetEqualizerPresetForm 2 | Left = 0 3 | Top = 0 4 | BorderStyle = bsDialog 5 | Caption = 'Set Equalizer Preset' 6 | ClientHeight = 295 7 | ClientWidth = 470 8 | Color = clBtnFace 9 | Font.Charset = DEFAULT_CHARSET 10 | Font.Color = clWindowText 11 | Font.Height = -11 12 | Font.Name = 'Tahoma' 13 | Font.Style = [] 14 | OldCreateOrder = False 15 | Position = poMainFormCenter 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object PresetListLabel: TLabel 19 | Left = 16 20 | Top = 13 21 | Width = 40 22 | Height = 13 23 | Caption = 'Presets:' 24 | FocusControl = PresetListLB 25 | end 26 | object BandInfoLabel: TLabel 27 | Left = 140 28 | Top = 13 29 | Width = 83 30 | Height = 13 31 | Caption = 'Preset band info:' 32 | FocusControl = BandInfoLB 33 | end 34 | object PresetListLB: TListBox 35 | Left = 16 36 | Top = 32 37 | Width = 105 38 | Height = 245 39 | ItemHeight = 13 40 | TabOrder = 0 41 | OnClick = PresetListLBClick 42 | end 43 | object OkBtn: TButton 44 | Left = 380 45 | Top = 13 46 | Width = 75 47 | Height = 25 48 | Caption = 'OK' 49 | Default = True 50 | ModalResult = 1 51 | TabOrder = 1 52 | end 53 | object CancelBtn: TButton 54 | Left = 380 55 | Top = 44 56 | Width = 75 57 | Height = 25 58 | Cancel = True 59 | Caption = 'Cancel' 60 | ModalResult = 2 61 | TabOrder = 2 62 | end 63 | object BandInfoLB: TListBox 64 | Left = 140 65 | Top = 32 66 | Width = 221 67 | Height = 245 68 | ItemHeight = 13 69 | TabOrder = 3 70 | end 71 | end 72 | -------------------------------------------------------------------------------- /src/unit5.lfm: -------------------------------------------------------------------------------- 1 | object Form5: TForm5 2 | Left = 409 3 | Height = 84 4 | Top = 349 5 | Width = 201 6 | Caption = 'Go to image number...' 7 | ClientHeight = 84 8 | ClientWidth = 201 9 | OnShow = FormShow 10 | Position = poDesktopCenter 11 | LCLVersion = '1.8.4.0' 12 | object Edit1: TEdit 13 | AnchorSideLeft.Control = Label1 14 | AnchorSideLeft.Side = asrBottom 15 | AnchorSideTop.Control = Owner 16 | AnchorSideRight.Control = Owner 17 | AnchorSideRight.Side = asrBottom 18 | Left = 123 19 | Height = 23 20 | Top = 10 21 | Width = 68 22 | Anchors = [akTop, akLeft, akRight] 23 | BorderSpacing.Top = 10 24 | BorderSpacing.Right = 10 25 | NumbersOnly = True 26 | TabOrder = 0 27 | Text = '0' 28 | end 29 | object Label1: TLabel 30 | AnchorSideLeft.Control = Owner 31 | AnchorSideTop.Control = Edit1 32 | AnchorSideTop.Side = asrCenter 33 | Left = 10 34 | Height = 15 35 | Top = 14 36 | Width = 113 37 | BorderSpacing.Left = 10 38 | Caption = 'Go to image number:' 39 | ParentColor = False 40 | end 41 | object ButtonPanel1: TButtonPanel 42 | Left = 6 43 | Height = 34 44 | Top = 44 45 | Width = 189 46 | OKButton.Name = 'OKButton' 47 | OKButton.DefaultCaption = True 48 | OKButton.OnClick = OKButtonClick 49 | HelpButton.Name = 'HelpButton' 50 | HelpButton.DefaultCaption = True 51 | CloseButton.Name = 'CloseButton' 52 | CloseButton.DefaultCaption = True 53 | CancelButton.Name = 'CancelButton' 54 | CancelButton.DefaultCaption = True 55 | CancelButton.OnClick = CancelButtonClick 56 | TabOrder = 1 57 | ShowButtons = [pbOK, pbCancel] 58 | end 59 | end 60 | -------------------------------------------------------------------------------- /src/fgoto.lfm: -------------------------------------------------------------------------------- 1 | object frgoto: Tfrgoto 2 | Left = 453 3 | Height = 84 4 | Top = 355 5 | Width = 201 6 | Caption = 'Go to image number...' 7 | ClientHeight = 84 8 | ClientWidth = 201 9 | OnShow = FormShow 10 | Position = poDesktopCenter 11 | LCLVersion = '1.8.4.0' 12 | object Edit1: TEdit 13 | AnchorSideLeft.Control = Label1 14 | AnchorSideLeft.Side = asrBottom 15 | AnchorSideTop.Control = Owner 16 | AnchorSideRight.Control = Owner 17 | AnchorSideRight.Side = asrBottom 18 | Left = 123 19 | Height = 23 20 | Top = 10 21 | Width = 68 22 | Anchors = [akTop, akLeft, akRight] 23 | BorderSpacing.Top = 10 24 | BorderSpacing.Right = 10 25 | NumbersOnly = True 26 | TabOrder = 0 27 | Text = '0' 28 | end 29 | object Label1: TLabel 30 | AnchorSideLeft.Control = Owner 31 | AnchorSideTop.Control = Edit1 32 | AnchorSideTop.Side = asrCenter 33 | Left = 10 34 | Height = 15 35 | Top = 14 36 | Width = 113 37 | BorderSpacing.Left = 10 38 | Caption = 'Go to image number:' 39 | ParentColor = False 40 | end 41 | object ButtonPanel1: TButtonPanel 42 | Left = 6 43 | Height = 34 44 | Top = 44 45 | Width = 189 46 | OKButton.Name = 'OKButton' 47 | OKButton.DefaultCaption = True 48 | OKButton.OnClick = OKButtonClick 49 | HelpButton.Name = 'HelpButton' 50 | HelpButton.DefaultCaption = True 51 | CloseButton.Name = 'CloseButton' 52 | CloseButton.DefaultCaption = True 53 | CancelButton.Name = 'CancelButton' 54 | CancelButton.DefaultCaption = True 55 | CancelButton.OnClick = CancelButtonClick 56 | TabOrder = 1 57 | ShowButtons = [pbOK, pbCancel] 58 | end 59 | end 60 | -------------------------------------------------------------------------------- /src/fpass.lfm: -------------------------------------------------------------------------------- 1 | object frpass: Tfrpass 2 | Left = 426 3 | Height = 128 4 | Top = 301 5 | Width = 311 6 | BorderIcons = [] 7 | Caption = 'Enter password' 8 | ClientHeight = 128 9 | ClientWidth = 311 10 | Position = poDesktopCenter 11 | LCLVersion = '2.0.4.0' 12 | object ButtonPanel1: TButtonPanel 13 | Left = 6 14 | Height = 34 15 | Top = 88 16 | Width = 299 17 | OKButton.Name = 'OKButton' 18 | OKButton.DefaultCaption = True 19 | HelpButton.Name = 'HelpButton' 20 | HelpButton.DefaultCaption = True 21 | CloseButton.Name = 'CloseButton' 22 | CloseButton.DefaultCaption = True 23 | CancelButton.Name = 'CancelButton' 24 | CancelButton.DefaultCaption = True 25 | TabOrder = 0 26 | ShowButtons = [pbOK, pbCancel] 27 | end 28 | object Label1: TLabel 29 | AnchorSideLeft.Control = Owner 30 | AnchorSideTop.Control = Owner 31 | AnchorSideBottom.Control = ButtonPanel1 32 | Left = 10 33 | Height = 15 34 | Top = 43 35 | Width = 53 36 | Anchors = [akTop, akLeft, akBottom] 37 | BorderSpacing.Left = 10 38 | BorderSpacing.Top = 43 39 | BorderSpacing.Bottom = 30 40 | Caption = 'Password:' 41 | ParentColor = False 42 | end 43 | object edtPass: TEdit 44 | AnchorSideLeft.Control = Label1 45 | AnchorSideLeft.Side = asrBottom 46 | AnchorSideTop.Control = Label1 47 | AnchorSideTop.Side = asrCenter 48 | AnchorSideRight.Control = Owner 49 | AnchorSideRight.Side = asrBottom 50 | Left = 63 51 | Height = 23 52 | Top = 39 53 | Width = 238 54 | Anchors = [akTop, akLeft, akRight] 55 | BorderSpacing.Right = 10 56 | EchoMode = emPassword 57 | PasswordChar = '*' 58 | TabOrder = 1 59 | end 60 | end 61 | -------------------------------------------------------------------------------- /use/PasLibVlc/Lazarus/DemoPasLibVlc/DemoPasLibVlc.lpr: -------------------------------------------------------------------------------- 1 | (* 2 | ******************************************************************************* 3 | * 4 | * Copyright (c) 2020 Robert Jędrzejczyk 5 | * 6 | * Permission is hereby granted, free of charge, to any person obtaining a copy 7 | * of this software and associated documentation files (the "Software"), to deal 8 | * in the Software without restriction, including without limitation the rights 9 | * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 10 | * copies of the Software, and to permit persons to whom the Software is 11 | * furnished to do so, subject to the following conditions: 12 | * 13 | * The above copyright notice and this permission notice shall be included in all 14 | * copies or substantial portions of the Software. 15 | * 16 | * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR 17 | * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, 18 | * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE 19 | * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER 20 | * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, 21 | * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE 22 | * SOFTWARE. 23 | * 24 | ******************************************************************************* 25 | *) 26 | 27 | {$I ../../source/compiler.inc} 28 | 29 | program DemoPasLibVlc; 30 | 31 | uses 32 | {$IFDEF UNIX}{$IFDEF UseCThreads} 33 | cthreads, 34 | {$ENDIF}{$ENDIF} 35 | Interfaces, // this includes the LCL widgetset 36 | Forms, MainFormUnit; 37 | 38 | {$R *.res} 39 | 40 | begin 41 | Application.Initialize; 42 | Application.CreateForm(TMainForm, MainForm); 43 | Application.Run; 44 | end. 45 | -------------------------------------------------------------------------------- /use/PasLibVlc/Delphi4/DemoPasLibVlc/DemoPasLibVlc.dpr: -------------------------------------------------------------------------------- 1 | (* 2 | ******************************************************************************* 3 | * 4 | * Copyright (c) 2020 Robert Jędrzejczyk 5 | * 6 | * Permission is hereby granted, free of charge, to any person obtaining a copy 7 | * of this software and associated documentation files (the "Software"), to deal 8 | * in the Software without restriction, including without limitation the rights 9 | * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 10 | * copies of the Software, and to permit persons to whom the Software is 11 | * furnished to do so, subject to the following conditions: 12 | * 13 | * The above copyright notice and this permission notice shall be included in all 14 | * copies or substantial portions of the Software. 15 | * 16 | * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR 17 | * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, 18 | * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE 19 | * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER 20 | * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, 21 | * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE 22 | * SOFTWARE. 23 | * 24 | ******************************************************************************* 25 | *) 26 | 27 | {$I ..\..\source\compiler.inc} 28 | 29 | program DemoPasLibVlc; 30 | 31 | uses 32 | Forms, 33 | MainFormUnit in 'MainFormUnit.pas' {MainForm}, 34 | PasLibVlcUnit in '..\..\source\PasLibVlcUnit.pas'; 35 | 36 | {$R *.RES} 37 | 38 | begin 39 | Application.Initialize; 40 | Application.Title := 'DemoPasLibVlc'; 41 | Application.CreateForm(TMainForm, MainForm); 42 | Application.Run; 43 | end. 44 | -------------------------------------------------------------------------------- /use/PasLibVlc/Lazarus/fpmake.pp: -------------------------------------------------------------------------------- 1 | { 2 | File generated automatically by Lazarus Package Manager 3 | 4 | fpmake.pp for PasLibVlcPlayer 3.0.7 5 | 6 | This file was generated on 20/04/2021 7 | } 8 | 9 | {$ifndef ALLPACKAGES} 10 | {$mode objfpc}{$H+} 11 | program fpmake; 12 | 13 | uses fpmkunit; 14 | {$endif ALLPACKAGES} 15 | 16 | procedure add_PasLibVlcPlayer(const ADirectory: string); 17 | 18 | var 19 | P : TPackage; 20 | T : TTarget; 21 | 22 | begin 23 | with Installer do 24 | begin 25 | P:=AddPackage('paslibvlcplayer'); 26 | P.Version:='3.0.7'; 27 | 28 | P.Directory:=ADirectory; 29 | 30 | P.Flags.Add('LazarusDsgnPkg'); 31 | 32 | P.Dependencies.Add('lcl'); 33 | P.Dependencies.Add('fcl'); 34 | P.Options.Add('-MDelphi'); 35 | P.Options.Add('-Scghi'); 36 | P.Options.Add('-CX'); 37 | P.Options.Add('-O4'); 38 | P.Options.Add('-g'); 39 | P.Options.Add('-gl'); 40 | P.Options.Add('-gh'); 41 | P.Options.Add('-Xg'); 42 | P.Options.Add('-l'); 43 | P.Options.Add('-vewnhibq'); 44 | P.Options.Add('-dLCL'); 45 | P.Options.Add('-dLCL$(LCLWidgetType)'); 46 | P.UnitPath.Add('../source'); 47 | P.UnitPath.Add('../source.vcl'); 48 | P.UnitPath.Add('.'); 49 | T:=P.Targets.AddUnit('PasLibVlcPlayer.pas'); 50 | t.Dependencies.AddUnit('PasLibVlcUnit'); 51 | t.Dependencies.AddUnit('PasLibVlcPlayerUnit'); 52 | 53 | T:=P.Targets.AddUnit('..\source\PasLibVlcUnit.pas'); 54 | T:=P.Targets.AddUnit('..\source.vcl\PasLibVlcPlayerUnit.pas'); 55 | 56 | // copy the compiled file, so the IDE knows how the package was compiled 57 | P.InstallFiles.Add('PasLibVlcPlayer.compiled',AllOSes,'$(unitinstalldir)'); 58 | 59 | end; 60 | end; 61 | 62 | {$ifndef ALLPACKAGES} 63 | begin 64 | add_PasLibVlcPlayer(''); 65 | Installer.Run; 66 | end. 67 | {$endif ALLPACKAGES} 68 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE10/DemoPasLibVlc/DemoPasLibVlc.deployproj: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 12 5 | 6 | 7 | 8 | 9 | 10 | DemoPasLibVlc\ 11 | DemoPasLibVlc.exe 12 | ProjectOutput 13 | 0 14 | 15 | 16 | True 17 | True 18 | 19 | 20 | DemoPasLibVlc\ 21 | DemoPasLibVlc.exe 22 | ProjectOutput 23 | 0 24 | 25 | 26 | True 27 | True 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | -------------------------------------------------------------------------------- /use/PasLibVlc/Lazarus/DemoPasLibVlcMediaListPlayer/DemoPasLibVlcMediaListPlayer.lpr: -------------------------------------------------------------------------------- 1 | (* 2 | ******************************************************************************* 3 | * 4 | * Copyright (c) 2020 Robert Jędrzejczyk 5 | * 6 | * Permission is hereby granted, free of charge, to any person obtaining a copy 7 | * of this software and associated documentation files (the "Software"), to deal 8 | * in the Software without restriction, including without limitation the rights 9 | * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 10 | * copies of the Software, and to permit persons to whom the Software is 11 | * furnished to do so, subject to the following conditions: 12 | * 13 | * The above copyright notice and this permission notice shall be included in all 14 | * copies or substantial portions of the Software. 15 | * 16 | * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR 17 | * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, 18 | * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE 19 | * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER 20 | * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, 21 | * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE 22 | * SOFTWARE. 23 | * 24 | ******************************************************************************* 25 | *) 26 | 27 | {$I ../../source/compiler.inc} 28 | 29 | program DemoPasLibVlcMediaListPlayer; 30 | 31 | uses 32 | {$IFDEF UNIX}{$IFDEF UseCThreads} 33 | cthreads, 34 | {$ENDIF}{$ENDIF} 35 | Interfaces, // this includes the LCL widgetset 36 | Forms, 37 | MainFormUnit; 38 | 39 | {$R *.res} 40 | 41 | begin 42 | Application.Initialize; 43 | Application.CreateForm(TMainForm, MainForm); 44 | Application.Run; 45 | end. 46 | -------------------------------------------------------------------------------- /use/vlc/lazvlc.lpk: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 51 | 52 | 53 | 54 | 55 | 56 | 57 | 58 | 59 | 60 | 61 | -------------------------------------------------------------------------------- /use/PasLibVlc/Lazarus/DemoPasLibVlcPlayerPauseAtStart/DemoPasLivVlcPlayerPauseAtStart.lpr: -------------------------------------------------------------------------------- 1 | (* 2 | ******************************************************************************* 3 | * 4 | * Copyright (c) 2020 Robert Jędrzejczyk 5 | * 6 | * Permission is hereby granted, free of charge, to any person obtaining a copy 7 | * of this software and associated documentation files (the "Software"), to deal 8 | * in the Software without restriction, including without limitation the rights 9 | * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 10 | * copies of the Software, and to permit persons to whom the Software is 11 | * furnished to do so, subject to the following conditions: 12 | * 13 | * The above copyright notice and this permission notice shall be included in all 14 | * copies or substantial portions of the Software. 15 | * 16 | * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR 17 | * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, 18 | * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE 19 | * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER 20 | * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, 21 | * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE 22 | * SOFTWARE. 23 | * 24 | ******************************************************************************* 25 | *) 26 | 27 | {$I ../../source/compiler.inc} 28 | 29 | program DemoPasLivVlcPlayerPauseAtStart; 30 | 31 | uses 32 | {$IFDEF UNIX}{$IFDEF UseCThreads} 33 | cthreads, 34 | {$ENDIF}{$ENDIF} 35 | Interfaces, // this includes the LCL widgetset 36 | Forms, 37 | MainFormUnit; 38 | 39 | {$R *.res} 40 | 41 | begin 42 | Application.Initialize; 43 | Application.CreateForm(TMainForm, MainForm); 44 | Application.Run; 45 | end. 46 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE7/FmxDemoPasLibVlc/PlayFormUnit.pas: -------------------------------------------------------------------------------- 1 | (* 2 | ******************************************************************************* 3 | * 4 | * Copyright (c) 2020 Robert Jędrzejczyk 5 | * 6 | * Permission is hereby granted, free of charge, to any person obtaining a copy 7 | * of this software and associated documentation files (the "Software"), to deal 8 | * in the Software without restriction, including without limitation the rights 9 | * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 10 | * copies of the Software, and to permit persons to whom the Software is 11 | * furnished to do so, subject to the following conditions: 12 | * 13 | * The above copyright notice and this permission notice shall be included in all 14 | * copies or substantial portions of the Software. 15 | * 16 | * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR 17 | * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, 18 | * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE 19 | * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER 20 | * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, 21 | * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE 22 | * SOFTWARE. 23 | * 24 | ******************************************************************************* 25 | *) 26 | 27 | unit PlayFormUnit; 28 | 29 | interface 30 | 31 | uses 32 | System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, 33 | FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs; 34 | 35 | type 36 | TPlayForm = class(TForm) 37 | private 38 | { Private declarations } 39 | public 40 | { Public declarations } 41 | end; 42 | 43 | var 44 | PlayForm: TPlayForm; 45 | 46 | implementation 47 | 48 | {$R *.fmx} 49 | 50 | end. 51 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE10/DemoPasLibVlc/DemoPasLibVlc.dpr: -------------------------------------------------------------------------------- 1 | (* 2 | ******************************************************************************* 3 | * 4 | * Copyright (c) 2020 Robert Jędrzejczyk 5 | * 6 | * Permission is hereby granted, free of charge, to any person obtaining a copy 7 | * of this software and associated documentation files (the "Software"), to deal 8 | * in the Software without restriction, including without limitation the rights 9 | * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 10 | * copies of the Software, and to permit persons to whom the Software is 11 | * furnished to do so, subject to the following conditions: 12 | * 13 | * The above copyright notice and this permission notice shall be included in all 14 | * copies or substantial portions of the Software. 15 | * 16 | * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR 17 | * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, 18 | * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE 19 | * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER 20 | * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, 21 | * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE 22 | * SOFTWARE. 23 | * 24 | ******************************************************************************* 25 | *) 26 | 27 | {$I ..\..\source\compiler.inc} 28 | 29 | program DemoPasLibVlc; 30 | 31 | uses 32 | Forms, 33 | MainFormUnit in 'MainFormUnit.pas' {MainForm}; 34 | 35 | {$R *.res} 36 | 37 | begin 38 | ReportMemoryLeaksOnShutdown := True; 39 | Application.Initialize; 40 | Application.MainFormOnTaskbar := True; 41 | Application.Title := 'PasLibVlcDemo' + ' - ' + {$IFDEF CPUX64}'64'{$ELSE}'32'{$ENDIF} + ' bit'; 42 | Application.CreateForm(TMainForm, MainForm); 43 | Application.Run; 44 | end. 45 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE10/FmxDemoPasLibVlc/FmxDemoPasLibVlc.dpr: -------------------------------------------------------------------------------- 1 | (* 2 | ******************************************************************************* 3 | * 4 | * Copyright (c) 2020 Robert Jędrzejczyk 5 | * 6 | * Permission is hereby granted, free of charge, to any person obtaining a copy 7 | * of this software and associated documentation files (the "Software"), to deal 8 | * in the Software without restriction, including without limitation the rights 9 | * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 10 | * copies of the Software, and to permit persons to whom the Software is 11 | * furnished to do so, subject to the following conditions: 12 | * 13 | * The above copyright notice and this permission notice shall be included in all 14 | * copies or substantial portions of the Software. 15 | * 16 | * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR 17 | * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, 18 | * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE 19 | * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER 20 | * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, 21 | * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE 22 | * SOFTWARE. 23 | * 24 | ******************************************************************************* 25 | *) 26 | 27 | {$I ..\..\source\compiler.inc} 28 | 29 | program FmxDemoPasLibVlc; 30 | 31 | uses 32 | System.StartUpCopy, 33 | FMX.Forms, 34 | MainFormUnit in 'MainFormUnit.pas' {MainForm}; 35 | 36 | {$R *.res} 37 | 38 | begin 39 | ReportMemoryLeaksOnShutdown := True; 40 | Application.Initialize; 41 | Application.Title := 'FmxDemoPasLibVlc' + ' - ' + {$IFDEF CPUX64}'64'{$ELSE}'32'{$ENDIF} + ' bit'; 42 | Application.CreateForm(TMainForm, MainForm); 43 | Application.Run; 44 | end. 45 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE7/DemoPasLibVlc/DemoPasLibVlc.dpr: -------------------------------------------------------------------------------- 1 | (* 2 | ******************************************************************************* 3 | * 4 | * Copyright (c) 2020 Robert Jędrzejczyk 5 | * 6 | * Permission is hereby granted, free of charge, to any person obtaining a copy 7 | * of this software and associated documentation files (the "Software"), to deal 8 | * in the Software without restriction, including without limitation the rights 9 | * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 10 | * copies of the Software, and to permit persons to whom the Software is 11 | * furnished to do so, subject to the following conditions: 12 | * 13 | * The above copyright notice and this permission notice shall be included in all 14 | * copies or substantial portions of the Software. 15 | * 16 | * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR 17 | * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, 18 | * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE 19 | * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER 20 | * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, 21 | * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE 22 | * SOFTWARE. 23 | * 24 | ******************************************************************************* 25 | *) 26 | 27 | {$I ..\..\source\compiler.inc} 28 | 29 | program DemoPasLibVlc; 30 | 31 | uses 32 | Forms, 33 | MainFormUnit in 'MainFormUnit.pas' {MainForm}; 34 | 35 | {$R *.res} 36 | 37 | begin 38 | ReportMemoryLeaksOnShutdown := True; 39 | Application.Initialize; 40 | Application.MainFormOnTaskbar := True; 41 | Application.Title := 'PasLibVlcDemo' + ' - ' + {$IFDEF CPUX64}'64'{$ELSE}'32'{$ENDIF} + ' bit'; 42 | Application.CreateForm(TMainForm, MainForm); 43 | Application.Run; 44 | end. 45 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE7/FmxDemoPasLibVlc/FmxDemoPasLibVlc.dpr: -------------------------------------------------------------------------------- 1 | (* 2 | ******************************************************************************* 3 | * 4 | * Copyright (c) 2020 Robert Jędrzejczyk 5 | * 6 | * Permission is hereby granted, free of charge, to any person obtaining a copy 7 | * of this software and associated documentation files (the "Software"), to deal 8 | * in the Software without restriction, including without limitation the rights 9 | * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 10 | * copies of the Software, and to permit persons to whom the Software is 11 | * furnished to do so, subject to the following conditions: 12 | * 13 | * The above copyright notice and this permission notice shall be included in all 14 | * copies or substantial portions of the Software. 15 | * 16 | * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR 17 | * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, 18 | * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE 19 | * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER 20 | * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, 21 | * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE 22 | * SOFTWARE. 23 | * 24 | ******************************************************************************* 25 | *) 26 | 27 | {$I ..\..\source\compiler.inc} 28 | 29 | program FmxDemoPasLibVlc; 30 | 31 | uses 32 | System.StartUpCopy, 33 | FMX.Forms, 34 | MainFormUnit in 'MainFormUnit.pas' {MainForm}; 35 | 36 | {$R *.res} 37 | 38 | begin 39 | ReportMemoryLeaksOnShutdown := True; 40 | Application.Initialize; 41 | Application.Title := 'FmxDemoPasLibVlc' + ' - ' + {$IFDEF CPUX64}'64'{$ELSE}'32'{$ENDIF} + ' bit'; 42 | Application.CreateForm(TMainForm, MainForm); 43 | Application.Run; 44 | end. 45 | -------------------------------------------------------------------------------- /use/vlc/test/frmmain.lfm: -------------------------------------------------------------------------------- 1 | object Form1: TForm1 2 | Left = 479 3 | Height = 362 4 | Top = 224 5 | Width = 546 6 | Caption = 'Form1' 7 | ClientHeight = 362 8 | ClientWidth = 546 9 | OnCreate = FormCreate 10 | OnDestroy = FormDestroy 11 | LCLVersion = '1.0.2.0' 12 | object PVideo: TPanel 13 | Left = 16 14 | Height = 285 15 | Top = 40 16 | Width = 518 17 | Anchors = [akTop, akLeft, akRight, akBottom] 18 | TabOrder = 0 19 | end 20 | object FEVideo: TFileNameEdit 21 | Left = 56 22 | Height = 23 23 | Top = 7 24 | Width = 374 25 | DialogTitle = 'Select a video file' 26 | FilterIndex = 0 27 | HideDirectories = False 28 | ButtonWidth = 23 29 | NumGlyphs = 0 30 | Anchors = [akTop, akLeft, akRight] 31 | MaxLength = 0 32 | TabOrder = 1 33 | end 34 | object Label1: TLabel 35 | Left = 16 36 | Height = 16 37 | Top = 7 38 | Width = 31 39 | Caption = 'Video' 40 | ParentColor = False 41 | end 42 | object Bplay: TButton 43 | Left = 462 44 | Height = 25 45 | Top = 8 46 | Width = 75 47 | Anchors = [akTop, akRight] 48 | Caption = '&Play' 49 | OnClick = BplayClick 50 | TabOrder = 2 51 | end 52 | object BStop: TButton 53 | Left = 17 54 | Height = 25 55 | Top = 331 56 | Width = 75 57 | Anchors = [akLeft, akBottom] 58 | Caption = '&Stop' 59 | OnClick = BStopClick 60 | TabOrder = 3 61 | end 62 | object BPause: TButton 63 | Left = 102 64 | Height = 25 65 | Top = 331 66 | Width = 75 67 | Anchors = [akLeft, akBottom] 68 | Caption = '&Pause' 69 | OnClick = BPauseClick 70 | TabOrder = 4 71 | end 72 | object BResume: TButton 73 | Left = 190 74 | Height = 25 75 | Top = 331 76 | Width = 75 77 | Anchors = [akLeft, akBottom] 78 | Caption = '&Resume' 79 | OnClick = BResumeClick 80 | TabOrder = 5 81 | end 82 | end 83 | -------------------------------------------------------------------------------- /use/PasLibVlc/Delphi4/DemoPasLibVlcPlayer/DemoPasLibVlcPlayer.dpr: -------------------------------------------------------------------------------- 1 | (* 2 | ******************************************************************************* 3 | * 4 | * Copyright (c) 2020 Robert Jędrzejczyk 5 | * 6 | * Permission is hereby granted, free of charge, to any person obtaining a copy 7 | * of this software and associated documentation files (the "Software"), to deal 8 | * in the Software without restriction, including without limitation the rights 9 | * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 10 | * copies of the Software, and to permit persons to whom the Software is 11 | * furnished to do so, subject to the following conditions: 12 | * 13 | * The above copyright notice and this permission notice shall be included in all 14 | * copies or substantial portions of the Software. 15 | * 16 | * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR 17 | * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, 18 | * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE 19 | * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER 20 | * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, 21 | * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE 22 | * SOFTWARE. 23 | * 24 | ******************************************************************************* 25 | *) 26 | 27 | {$I ..\..\source\compiler.inc} 28 | 29 | program DemoPasLibVlcPlayer; 30 | 31 | uses 32 | Forms, 33 | MainFormUnit in 'MainFormUnit.pas' {MainForm}, 34 | PasLibVlcUnit in '..\..\source\PasLibVlcUnit.pas', 35 | PasLibVlcClassUnit in '..\..\source\PasLibVlcClassUnit.pas', 36 | PasLibVlcPlayerUnit in '..\..\source.vcl\PasLibVlcPlayerUnit.pas'; 37 | 38 | {$R *.RES} 39 | 40 | begin 41 | Application.Initialize; 42 | Application.CreateForm(TMainForm, MainForm); 43 | Application.Run; 44 | end. 45 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE10/FmxDemoPasLibVlc/PlayFormUnit.pas: -------------------------------------------------------------------------------- 1 | (* 2 | ******************************************************************************* 3 | * 4 | * Copyright (c) 2020 Robert Jędrzejczyk 5 | * 6 | * Permission is hereby granted, free of charge, to any person obtaining a copy 7 | * of this software and associated documentation files (the "Software"), to deal 8 | * in the Software without restriction, including without limitation the rights 9 | * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 10 | * copies of the Software, and to permit persons to whom the Software is 11 | * furnished to do so, subject to the following conditions: 12 | * 13 | * The above copyright notice and this permission notice shall be included in all 14 | * copies or substantial portions of the Software. 15 | * 16 | * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR 17 | * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, 18 | * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE 19 | * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER 20 | * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, 21 | * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE 22 | * SOFTWARE. 23 | * 24 | ******************************************************************************* 25 | *) 26 | 27 | {$I ..\..\source\compiler.inc} 28 | 29 | unit PlayFormUnit; 30 | 31 | interface 32 | 33 | uses 34 | System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, 35 | FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs; 36 | 37 | type 38 | TPlayForm = class(TForm) 39 | private 40 | { Private declarations } 41 | public 42 | { Public declarations } 43 | end; 44 | 45 | var 46 | PlayForm: TPlayForm; 47 | 48 | implementation 49 | 50 | {$R *.fmx} 51 | 52 | end. 53 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE10/FmxDemoPasLibVlcPlayer/FmxDemoPasLibVlcPlayer.dpr: -------------------------------------------------------------------------------- 1 | (* 2 | ******************************************************************************* 3 | * 4 | * Copyright (c) 2020 Robert Jędrzejczyk 5 | * 6 | * Permission is hereby granted, free of charge, to any person obtaining a copy 7 | * of this software and associated documentation files (the "Software"), to deal 8 | * in the Software without restriction, including without limitation the rights 9 | * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 10 | * copies of the Software, and to permit persons to whom the Software is 11 | * furnished to do so, subject to the following conditions: 12 | * 13 | * The above copyright notice and this permission notice shall be included in all 14 | * copies or substantial portions of the Software. 15 | * 16 | * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR 17 | * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, 18 | * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE 19 | * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER 20 | * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, 21 | * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE 22 | * SOFTWARE. 23 | * 24 | ******************************************************************************* 25 | *) 26 | 27 | {$I ..\..\source\compiler.inc} 28 | 29 | program FmxDemoPasLibVlcPlayer; 30 | 31 | uses 32 | System.StartUpCopy, 33 | FMX.Forms, 34 | MainFormUnit in 'MainFormUnit.pas' {MainForm}; 35 | 36 | {$R *.res} 37 | 38 | begin 39 | ReportMemoryLeaksOnShutdown := True; 40 | Application.Initialize; 41 | Application.Title := 'FmxDemoPasLibVlcPlayer' + ' - ' + {$IFDEF CPUX64}'64'{$ELSE}'32'{$ENDIF} + ' bit';; 42 | Application.CreateForm(TMainForm, MainForm); 43 | Application.Run; 44 | end. 45 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE7/FmxDemoPasLibVlcPlayer/FmxDemoPasLibVlcPlayer.dpr: -------------------------------------------------------------------------------- 1 | (* 2 | ******************************************************************************* 3 | * 4 | * Copyright (c) 2020 Robert Jędrzejczyk 5 | * 6 | * Permission is hereby granted, free of charge, to any person obtaining a copy 7 | * of this software and associated documentation files (the "Software"), to deal 8 | * in the Software without restriction, including without limitation the rights 9 | * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 10 | * copies of the Software, and to permit persons to whom the Software is 11 | * furnished to do so, subject to the following conditions: 12 | * 13 | * The above copyright notice and this permission notice shall be included in all 14 | * copies or substantial portions of the Software. 15 | * 16 | * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR 17 | * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, 18 | * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE 19 | * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER 20 | * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, 21 | * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE 22 | * SOFTWARE. 23 | * 24 | ******************************************************************************* 25 | *) 26 | 27 | {$I ..\..\source\compiler.inc} 28 | 29 | program FmxDemoPasLibVlcPlayer; 30 | 31 | uses 32 | System.StartUpCopy, 33 | FMX.Forms, 34 | MainFormUnit in 'MainFormUnit.pas' {MainForm}; 35 | 36 | {$R *.res} 37 | 38 | begin 39 | ReportMemoryLeaksOnShutdown := True; 40 | Application.Initialize; 41 | Application.Title := 'FmxDemoPasLibVlcPlayer' + ' - ' + {$IFDEF CPUX64}'64'{$ELSE}'32'{$ENDIF} + ' bit';; 42 | Application.CreateForm(TMainForm, MainForm); 43 | Application.Run; 44 | end. 45 | -------------------------------------------------------------------------------- /use/PasLibVlc/Lazarus/DemoPasLibVlcPlayer/DemoPasLibVlcPlayer.lpr: -------------------------------------------------------------------------------- 1 | (* 2 | ******************************************************************************* 3 | * 4 | * Copyright (c) 2020 Robert Jędrzejczyk 5 | * 6 | * Permission is hereby granted, free of charge, to any person obtaining a copy 7 | * of this software and associated documentation files (the "Software"), to deal 8 | * in the Software without restriction, including without limitation the rights 9 | * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 10 | * copies of the Software, and to permit persons to whom the Software is 11 | * furnished to do so, subject to the following conditions: 12 | * 13 | * The above copyright notice and this permission notice shall be included in all 14 | * copies or substantial portions of the Software. 15 | * 16 | * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR 17 | * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, 18 | * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE 19 | * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER 20 | * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, 21 | * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE 22 | * SOFTWARE. 23 | * 24 | ******************************************************************************* 25 | *) 26 | 27 | {$I ../../source/compiler.inc} 28 | 29 | program DemoPasLibVlcPlayer; 30 | 31 | uses 32 | {$IFDEF UNIX}{$IFDEF UseCThreads} 33 | cthreads, 34 | {$ENDIF}{$ENDIF} 35 | Interfaces, // this includes the LCL widgetset 36 | Forms, 37 | MainFormUnit, 38 | FullScreenFormUnit, 39 | SetEqualizerPresetFormUnit; 40 | 41 | {$R *.res} 42 | 43 | begin 44 | Application.Initialize; 45 | Application.CreateForm(TMainForm, MainForm); 46 | Application.CreateForm(TSetEqualizerPresetForm, SetEqualizerPresetForm); 47 | Application.Run; 48 | end. 49 | -------------------------------------------------------------------------------- /use/PasLibVlc/Delphi2007/DemoPasLibVlcPlayerPauseAtStart/DemoPasLibVlcPlayerPauseAtStart.dpr: -------------------------------------------------------------------------------- 1 | (* 2 | ******************************************************************************* 3 | * 4 | * Copyright (c) 2020 Robert Jędrzejczyk 5 | * 6 | * Permission is hereby granted, free of charge, to any person obtaining a copy 7 | * of this software and associated documentation files (the "Software"), to deal 8 | * in the Software without restriction, including without limitation the rights 9 | * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 10 | * copies of the Software, and to permit persons to whom the Software is 11 | * furnished to do so, subject to the following conditions: 12 | * 13 | * The above copyright notice and this permission notice shall be included in all 14 | * copies or substantial portions of the Software. 15 | * 16 | * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR 17 | * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, 18 | * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE 19 | * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER 20 | * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, 21 | * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE 22 | * SOFTWARE. 23 | * 24 | ******************************************************************************* 25 | *) 26 | 27 | program DemoPasLibVlcPlayerPauseAtStart; 28 | 29 | uses 30 | Forms, 31 | MainFormUnit in 'MainFormUnit.pas' {MainForm}, 32 | PasLibVlcUnit in '..\..\source\PasLibVlcUnit.pas', 33 | PasLibVlcPlayerUnit in '..\..\source\PasLibVlcPlayerUnit.pas', 34 | PasLibVlcClassUnit in '..\..\source\PasLibVlcClassUnit.pas'; 35 | 36 | {$R *.res} 37 | 38 | begin 39 | Application.Initialize; 40 | {$IFDEF DELPHI2007_UP} 41 | Application.MainFormOnTaskbar := True; 42 | {$ENDIF} 43 | Application.CreateForm(TMainForm, MainForm); 44 | Application.Run; 45 | end. 46 | -------------------------------------------------------------------------------- /use/PasLibVlc/Lazarus/Makefile.fpc: -------------------------------------------------------------------------------- 1 | # File generated automatically by Lazarus Package Manager 2 | # 3 | # Makefile.fpc for PasLibVlcPlayer 3.0.7 4 | # 5 | # This file was generated on 24-10-24 6 | 7 | [package] 8 | name=paslibvlcplayer 9 | version=3.0.7 10 | 11 | [compiler] 12 | unittargetdir=lib/$(CPU_TARGET)-$(OS_TARGET) 13 | unitdir=../source ../source.vcl /usr/lib64/lazarus/packager/units/$(CPU_TARGET)-$(OS_TARGET) /usr/lib64/lazarus/components/lazutils/lib/$(CPU_TARGET)-$(OS_TARGET) /usr/lib64/lazarus/components/freetype/lib/$(CPU_TARGET)-$(OS_TARGET) /usr/lib64/lazarus/lcl/units/$(CPU_TARGET)-$(OS_TARGET) /usr/lib64/lazarus/lcl/units/$(CPU_TARGET)-$(OS_TARGET)/$(LCL_PLATFORM) . 14 | options= -MDelphi -Scghi -CX -O4 -g -gl -gh -Xg -l -vewnhibq -dLCL -dLCL$(LCL_PLATFORM) $(DBG_OPTIONS) 15 | 16 | [target] 17 | units=PasLibVlcPlayer.pas 18 | 19 | [clean] 20 | files=$(wildcard $(COMPILER_UNITTARGETDIR)/*$(OEXT)) \ 21 | $(wildcard $(COMPILER_UNITTARGETDIR)/*$(PPUEXT)) \ 22 | $(wildcard $(COMPILER_UNITTARGETDIR)/*$(RSTEXT)) \ 23 | $(wildcard $(COMPILER_UNITTARGETDIR)/*.lfm) \ 24 | $(wildcard $(COMPILER_UNITTARGETDIR)/*.res) \ 25 | $(wildcard $(COMPILER_UNITTARGETDIR)/*.compiled) \ 26 | $(wildcard *$(OEXT)) $(wildcard *$(PPUEXT)) $(wildcard *$(RSTEXT)) 27 | 28 | [prerules] 29 | # LCL Platform 30 | ifndef LCL_PLATFORM 31 | ifeq ($(OS_TARGET),win32) 32 | LCL_PLATFORM=win32 33 | else 34 | ifeq ($(OS_TARGET),win64) 35 | LCL_PLATFORM=win32 36 | else 37 | ifeq ($(OS_TARGET),darwin) 38 | LCL_PLATFORM=cocoa 39 | else 40 | LCL_PLATFORM=gtk2 41 | endif 42 | endif 43 | endif 44 | endif 45 | export LCL_PLATFORM 46 | 47 | DBG_OPTIONS= 48 | ifeq ($(OS_TARGET),darwin) 49 | DBG_OPTIONS=-gw 50 | endif 51 | 52 | [rules] 53 | .PHONY: cleartarget compiled all 54 | 55 | cleartarget: 56 | -$(DEL) $(COMPILER_UNITTARGETDIR)/paslibvlcplayer$(PPUEXT) 57 | 58 | compiled: 59 | $(CPPROG) -f Makefile.compiled $(COMPILER_UNITTARGETDIR)/paslibvlcplayer.compiled 60 | 61 | all: cleartarget $(COMPILER_UNITTARGETDIR) paslibvlcplayer$(PPUEXT) compiled 62 | 63 | distclean: clean 64 | ${DELTREE} lib/* 65 | -------------------------------------------------------------------------------- /src/darkmode.pas: -------------------------------------------------------------------------------- 1 | unit DarkModeClasses; 2 | 3 | {$mode delphi}{$H+} 4 | interface 5 | 6 | uses 7 | Windows, SysUtils; 8 | 9 | 10 | const 11 | THEME_LIB = 'uxtheme.dll'; 12 | 13 | type 14 | TShouldAppsUseDarkMode = function: BOOL; stdcall; 15 | TAllowDarkModeForWindow = function(hwnd: HWND; allow: BOOL): BOOL; stdcall; 16 | TAllowDarkModeForApp = function(allow: BOOL): BOOL; stdcall; 17 | TFlushMenuThemes = procedure; stdcall; 18 | TRefreshImmersiveColorPolicyState = procedure; stdcall; 19 | 20 | var 21 | FHandle: THandle; 22 | FLoaded: Boolean; 23 | RefreshImmersiveColorPolicyState: TRefreshImmersiveColorPolicyState; 24 | ShouldAppsUseDarkMode: TShouldAppsUseDarkMode; 25 | AllowDarkModeForWindow: TAllowDarkModeForWindow; 26 | AllowDarkModeForApp: TAllowDarkModeForApp; 27 | FlushMenuThemes: TFlushMenuThemes; 28 | DarkModeSupported: Boolean; 29 | 30 | implementation 31 | 32 | function DarkModeLoadLibrary: Boolean; 33 | begin 34 | if CheckWin32Version(10) {and (TOSVersion.Build >= 17763)} then 35 | FHandle := LoadLibrary(PChar(THEME_LIB)); 36 | Result := FHandle <> 0; 37 | if Result then 38 | begin 39 | @RefreshImmersiveColorPolicyState := GetProcAddress(FHandle, MakeIntResource(104)); 40 | @ShouldAppsUseDarkMode := GetProcAddress(FHandle, MakeIntResource(132)); 41 | @AllowDarkModeForWindow := GetProcAddress(FHandle, MakeIntResource(133)); 42 | @AllowDarkModeForApp := GetProcAddress(FHandle, MakeIntResource(135)); 43 | @FlushMenuThemes := GetProcAddress(FHandle, MakeIntResource(136)); 44 | if (@RefreshImmersiveColorPolicyState <> nil) and 45 | (@ShouldAppsUseDarkMode <> nil) and (@AllowDarkModeForWindow <> nil) and 46 | (@AllowDarkModeForApp <> nil) and (@FlushMenuThemes <> nil) then 47 | DarkModeSupported := True; 48 | end; 49 | end; 50 | 51 | procedure DarkModeFreeLibrary; 52 | begin 53 | if FHandle <> 0 then 54 | FreeLibrary(FHandle); 55 | FHandle := 0; 56 | end; 57 | 58 | initialization 59 | 60 | if not FLoaded then 61 | FLoaded := DarkModeLoadLibrary; 62 | 63 | finalization 64 | 65 | if FLoaded then 66 | DarkModeFreeLibrary; 67 | 68 | end. 69 | -------------------------------------------------------------------------------- /use/PasLibVlc/Delphi2007/DemoPlayViaPipe/DemoPlayViaPipe.dpr: -------------------------------------------------------------------------------- 1 | (* 2 | ******************************************************************************* 3 | * 4 | * Copyright (c) 2020 Robert Jędrzejczyk 5 | * 6 | * Permission is hereby granted, free of charge, to any person obtaining a copy 7 | * of this software and associated documentation files (the "Software"), to deal 8 | * in the Software without restriction, including without limitation the rights 9 | * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 10 | * copies of the Software, and to permit persons to whom the Software is 11 | * furnished to do so, subject to the following conditions: 12 | * 13 | * The above copyright notice and this permission notice shall be included in all 14 | * copies or substantial portions of the Software. 15 | * 16 | * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR 17 | * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, 18 | * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE 19 | * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER 20 | * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, 21 | * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE 22 | * SOFTWARE. 23 | * 24 | ******************************************************************************* 25 | *) 26 | 27 | {$I ..\..\source\compiler.inc} 28 | 29 | program DemoPlayViaPipe; 30 | 31 | uses 32 | Forms, 33 | PasLibVlcUnit in '..\..\source\PasLibVlcUnit.pas', 34 | PasLibVlcClassUnit in '..\..\source\PasLibVlcClassUnit.pas', 35 | PasLibVlcPlayerUnit in '..\..\source.vcl\PasLibVlcPlayerUnit.pas', 36 | MainFormUnit in 'MainFormUnit.pas' {MainForm}; 37 | 38 | {$R *.res} 39 | 40 | begin 41 | {$IFDEF DELPHI2007_UP} 42 | ReportMemoryLeaksOnShutdown := TRUE; 43 | {$ENDIF} 44 | 45 | Application.Initialize; 46 | {$IFDEF DELPHI2007_UP} 47 | Application.MainFormOnTaskbar := True; 48 | {$ENDIF} 49 | Application.Title := 'PasLibVlcDemo'; 50 | Application.CreateForm(TMainForm, MainForm); 51 | Application.Run; 52 | end. 53 | -------------------------------------------------------------------------------- /use/PasLibVlc/Delphi2007/DemoPasLibVlc/DemoPasLibVlc.dpr: -------------------------------------------------------------------------------- 1 | (* 2 | ******************************************************************************* 3 | * 4 | * Copyright (c) 2020 Robert Jędrzejczyk 5 | * 6 | * Permission is hereby granted, free of charge, to any person obtaining a copy 7 | * of this software and associated documentation files (the "Software"), to deal 8 | * in the Software without restriction, including without limitation the rights 9 | * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 10 | * copies of the Software, and to permit persons to whom the Software is 11 | * furnished to do so, subject to the following conditions: 12 | * 13 | * The above copyright notice and this permission notice shall be included in all 14 | * copies or substantial portions of the Software. 15 | * 16 | * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR 17 | * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, 18 | * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE 19 | * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER 20 | * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, 21 | * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE 22 | * SOFTWARE. 23 | * 24 | ******************************************************************************* 25 | *) 26 | 27 | {$I ..\..\source\compiler.inc} 28 | 29 | program DemoPasLibVlc; 30 | 31 | uses 32 | Forms, 33 | PasLibVlcUnit in '..\..\source\PasLibVlcUnit.pas', 34 | PasLibVlcClassUnit in '..\..\source\PasLibVlcClassUnit.pas', 35 | PasLibVlcPlayerUnit in '..\..\source.vcl\PasLibVlcPlayerUnit.pas', 36 | MainFormUnit in 'MainFormUnit.pas' {MainForm}; 37 | 38 | {$R *.res} 39 | 40 | begin 41 | {$IFDEF DELPHI2007_UP} 42 | ReportMemoryLeaksOnShutdown := TRUE; 43 | {$ENDIF} 44 | 45 | Application.Initialize; 46 | {$IFDEF DELPHI2007_UP} 47 | Application.MainFormOnTaskbar := True; 48 | {$ENDIF} 49 | Application.Title := 'PasLibVlcDemo' + ' - ' + {$IFDEF CPUX64}'64'{$ELSE}'32'{$ENDIF} + ' bit'; 50 | Application.CreateForm(TMainForm, MainForm); 51 | Application.Run; 52 | end. 53 | -------------------------------------------------------------------------------- /src/DarkModeClasses.pas: -------------------------------------------------------------------------------- 1 | unit DarkModeClasses; 2 | 3 | {$mode delphi}{$H+} 4 | interface 5 | 6 | uses 7 | Windows, SysUtils; 8 | 9 | 10 | const 11 | THEME_LIB = 'uxtheme.dll'; 12 | 13 | type 14 | TShouldAppsUseDarkMode = function: BOOL; stdcall; 15 | TAllowDarkModeForWindow = function(hwnd: HWND; allow: BOOL): BOOL; stdcall; 16 | TAllowDarkModeForApp = function(allow: BOOL): BOOL; stdcall; 17 | TFlushMenuThemes = procedure; stdcall; 18 | TRefreshImmersiveColorPolicyState = procedure; stdcall; 19 | 20 | var 21 | FHandle: THandle; 22 | FLoaded: Boolean; 23 | RefreshImmersiveColorPolicyState: TRefreshImmersiveColorPolicyState; 24 | ShouldAppsUseDarkMode: TShouldAppsUseDarkMode; 25 | AllowDarkModeForWindow: TAllowDarkModeForWindow; 26 | AllowDarkModeForApp: TAllowDarkModeForApp; 27 | FlushMenuThemes: TFlushMenuThemes; 28 | DarkModeSupported: Boolean; 29 | 30 | implementation 31 | 32 | function DarkModeLoadLibrary: Boolean; 33 | begin 34 | if CheckWin32Version(10) {and (TOSVersion.Build >= 17763)} then 35 | FHandle := LoadLibrary(PChar(THEME_LIB)); 36 | Result := FHandle <> 0; 37 | if Result then 38 | begin 39 | @RefreshImmersiveColorPolicyState := GetProcAddress(FHandle, MakeIntResource(104)); 40 | @ShouldAppsUseDarkMode := GetProcAddress(FHandle, MakeIntResource(132)); 41 | @AllowDarkModeForWindow := GetProcAddress(FHandle, MakeIntResource(133)); 42 | @AllowDarkModeForApp := GetProcAddress(FHandle, MakeIntResource(135)); 43 | @FlushMenuThemes := GetProcAddress(FHandle, MakeIntResource(136)); 44 | if (@RefreshImmersiveColorPolicyState <> nil) and 45 | (@ShouldAppsUseDarkMode <> nil) and (@AllowDarkModeForWindow <> nil) and 46 | (@AllowDarkModeForApp <> nil) and (@FlushMenuThemes <> nil) then 47 | DarkModeSupported := True; 48 | end; 49 | end; 50 | 51 | procedure DarkModeFreeLibrary; 52 | begin 53 | if FHandle <> 0 then 54 | FreeLibrary(FHandle); 55 | FHandle := 0; 56 | end; 57 | 58 | procedure setwintheme; 59 | var 60 | LDark: Bool; 61 | begin 62 | LDark:=true; 63 | end; 64 | 65 | initialization 66 | 67 | if not FLoaded then 68 | FLoaded := DarkModeLoadLibrary; 69 | 70 | finalization 71 | 72 | if FLoaded then 73 | DarkModeFreeLibrary; 74 | 75 | end. 76 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE7/DemoPasLibVlcPlayer/FullScreenFormUnit.pas: -------------------------------------------------------------------------------- 1 | (* 2 | ******************************************************************************* 3 | * 4 | * Copyright (c) 2020 Robert Jędrzejczyk 5 | * 6 | * Permission is hereby granted, free of charge, to any person obtaining a copy 7 | * of this software and associated documentation files (the "Software"), to deal 8 | * in the Software without restriction, including without limitation the rights 9 | * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 10 | * copies of the Software, and to permit persons to whom the Software is 11 | * furnished to do so, subject to the following conditions: 12 | * 13 | * The above copyright notice and this permission notice shall be included in all 14 | * copies or substantial portions of the Software. 15 | * 16 | * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR 17 | * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, 18 | * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE 19 | * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER 20 | * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, 21 | * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE 22 | * SOFTWARE. 23 | * 24 | ******************************************************************************* 25 | *) 26 | 27 | {$I ..\..\source\compiler.inc} 28 | 29 | unit FullScreenFormUnit; 30 | 31 | interface 32 | 33 | uses 34 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 35 | Dialogs; 36 | 37 | type 38 | TFullScreenForm = class(TForm) 39 | procedure FormKeyPress(Sender: TObject; var Key: Char); 40 | procedure FormShow(Sender: TObject); 41 | private 42 | { Private declarations } 43 | public 44 | { Public declarations } 45 | end; 46 | 47 | var 48 | FullScreenForm: TFullScreenForm; 49 | 50 | implementation 51 | 52 | {$R *.dfm} 53 | 54 | procedure TFullScreenForm.FormKeyPress(Sender: TObject; var Key: Char); 55 | begin 56 | Close; 57 | end; 58 | 59 | procedure TFullScreenForm.FormShow(Sender: TObject); 60 | begin 61 | Application.ProcessMessages; 62 | end; 63 | 64 | end. 65 | -------------------------------------------------------------------------------- /use/PasLibVlc/Delphi2007/DemoPasLibVlcPlayer/FullScreenFormUnit.pas: -------------------------------------------------------------------------------- 1 | (* 2 | ******************************************************************************* 3 | * 4 | * Copyright (c) 2020 Robert Jędrzejczyk 5 | * 6 | * Permission is hereby granted, free of charge, to any person obtaining a copy 7 | * of this software and associated documentation files (the "Software"), to deal 8 | * in the Software without restriction, including without limitation the rights 9 | * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 10 | * copies of the Software, and to permit persons to whom the Software is 11 | * furnished to do so, subject to the following conditions: 12 | * 13 | * The above copyright notice and this permission notice shall be included in all 14 | * copies or substantial portions of the Software. 15 | * 16 | * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR 17 | * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, 18 | * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE 19 | * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER 20 | * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, 21 | * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE 22 | * SOFTWARE. 23 | * 24 | ******************************************************************************* 25 | *) 26 | 27 | {$I ..\..\source\compiler.inc} 28 | 29 | unit FullScreenFormUnit; 30 | 31 | interface 32 | 33 | uses 34 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 35 | Dialogs; 36 | 37 | type 38 | TFullScreenForm = class(TForm) 39 | procedure FormKeyPress(Sender: TObject; var Key: Char); 40 | procedure FormShow(Sender: TObject); 41 | private 42 | { Private declarations } 43 | public 44 | { Public declarations } 45 | end; 46 | 47 | var 48 | FullScreenForm: TFullScreenForm; 49 | 50 | implementation 51 | 52 | {$R *.dfm} 53 | 54 | procedure TFullScreenForm.FormKeyPress(Sender: TObject; var Key: Char); 55 | begin 56 | Close; 57 | end; 58 | 59 | procedure TFullScreenForm.FormShow(Sender: TObject); 60 | begin 61 | Application.ProcessMessages; 62 | end; 63 | 64 | end. 65 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE10/DemoPasLibVlcPlayer/FullScreenFormUnit.pas: -------------------------------------------------------------------------------- 1 | (* 2 | ******************************************************************************* 3 | * 4 | * Copyright (c) 2020 Robert Jędrzejczyk 5 | * 6 | * Permission is hereby granted, free of charge, to any person obtaining a copy 7 | * of this software and associated documentation files (the "Software"), to deal 8 | * in the Software without restriction, including without limitation the rights 9 | * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 10 | * copies of the Software, and to permit persons to whom the Software is 11 | * furnished to do so, subject to the following conditions: 12 | * 13 | * The above copyright notice and this permission notice shall be included in all 14 | * copies or substantial portions of the Software. 15 | * 16 | * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR 17 | * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, 18 | * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE 19 | * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER 20 | * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, 21 | * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE 22 | * SOFTWARE. 23 | * 24 | ******************************************************************************* 25 | *) 26 | 27 | {$I ..\..\source\compiler.inc} 28 | 29 | unit FullScreenFormUnit; 30 | 31 | interface 32 | 33 | uses 34 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 35 | Dialogs; 36 | 37 | type 38 | TFullScreenForm = class(TForm) 39 | procedure FormKeyPress(Sender: TObject; var Key: Char); 40 | procedure FormShow(Sender: TObject); 41 | private 42 | { Private declarations } 43 | public 44 | { Public declarations } 45 | end; 46 | 47 | var 48 | FullScreenForm: TFullScreenForm; 49 | 50 | implementation 51 | 52 | {$R *.dfm} 53 | 54 | procedure TFullScreenForm.FormKeyPress(Sender: TObject; var Key: Char); 55 | begin 56 | Close; 57 | end; 58 | 59 | procedure TFullScreenForm.FormShow(Sender: TObject); 60 | begin 61 | Application.ProcessMessages; 62 | end; 63 | 64 | end. 65 | -------------------------------------------------------------------------------- /use/PasLibVlc/Delphi2007/DemoPasLibVlcMediaListPlayer/DemoPasLibVlcMediaListPlayer.dpr: -------------------------------------------------------------------------------- 1 | (* 2 | ******************************************************************************* 3 | * 4 | * Copyright (c) 2020 Robert Jędrzejczyk 5 | * 6 | * Permission is hereby granted, free of charge, to any person obtaining a copy 7 | * of this software and associated documentation files (the "Software"), to deal 8 | * in the Software without restriction, including without limitation the rights 9 | * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 10 | * copies of the Software, and to permit persons to whom the Software is 11 | * furnished to do so, subject to the following conditions: 12 | * 13 | * The above copyright notice and this permission notice shall be included in all 14 | * copies or substantial portions of the Software. 15 | * 16 | * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR 17 | * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, 18 | * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE 19 | * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER 20 | * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, 21 | * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE 22 | * SOFTWARE. 23 | * 24 | ******************************************************************************* 25 | *) 26 | 27 | {$I ..\..\source\compiler.inc} 28 | 29 | program DemoPasLibVlcMediaListPlayer; 30 | 31 | uses 32 | Forms, 33 | PasLibVlcUnit in '..\..\source\PasLibVlcUnit.pas', 34 | PasLibVlcClassUnit in '..\..\source\PasLibVlcClassUnit.pas', 35 | PasLibVlcPlayerUnit in '..\..\source.vcl\PasLibVlcPlayerUnit.pas', 36 | MainFormUnit in 'MainFormUnit.pas' {MainForm}; 37 | 38 | {$R *.res} 39 | 40 | begin 41 | {$IFDEF DELPHI2007_UP} 42 | ReportMemoryLeaksOnShutdown := TRUE; 43 | {$ENDIF} 44 | 45 | Application.Initialize; 46 | {$IFDEF DELPHI2007_UP} 47 | Application.MainFormOnTaskbar := True; 48 | {$ENDIF} 49 | Application.Title := 'DemoPasLibVlcMediaListPlayer' + ' - ' + {$IFDEF CPUX64}'64'{$ELSE}'32'{$ENDIF} + ' bit'; 50 | Application.CreateForm(TMainForm, MainForm); 51 | Application.Run; 52 | end. 53 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE7/DemoPasLibVlcPlayer/DemoPasLibVlcPlayer.dpr: -------------------------------------------------------------------------------- 1 | (* 2 | ******************************************************************************* 3 | * 4 | * Copyright (c) 2020 Robert Jędrzejczyk 5 | * 6 | * Permission is hereby granted, free of charge, to any person obtaining a copy 7 | * of this software and associated documentation files (the "Software"), to deal 8 | * in the Software without restriction, including without limitation the rights 9 | * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 10 | * copies of the Software, and to permit persons to whom the Software is 11 | * furnished to do so, subject to the following conditions: 12 | * 13 | * The above copyright notice and this permission notice shall be included in all 14 | * copies or substantial portions of the Software. 15 | * 16 | * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR 17 | * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, 18 | * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE 19 | * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER 20 | * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, 21 | * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE 22 | * SOFTWARE. 23 | * 24 | ******************************************************************************* 25 | *) 26 | 27 | {$I ..\..\source\compiler.inc} 28 | 29 | program DemoPasLibVlcPlayer; 30 | 31 | uses 32 | Forms, 33 | MainFormUnit in 'MainFormUnit.pas' {MainForm}, 34 | FullScreenFormUnit in 'FullScreenFormUnit.pas' {FullScreenForm}, 35 | SetEqualizerPresetFormUnit in 'SetEqualizerPresetFormUnit.pas' {SetEqualizerPresetForm}, 36 | SelectOutputDeviceFormUnit in 'SelectOutputDeviceFormUnit.pas' {SelectOutputDeviceForm}; 37 | 38 | {$R *.res} 39 | 40 | begin 41 | ReportMemoryLeaksOnShutdown := TRUE; 42 | Application.Initialize; 43 | Application.MainFormOnTaskbar := True; 44 | Application.Title := 'PasLibVlcPlayerDemo' + ' - ' + {$IFDEF CPUX64}'64'{$ELSE}'32'{$ENDIF} + ' bit'; 45 | Application.CreateForm(TMainForm, MainForm); 46 | Application.CreateForm(TSetEqualizerPresetForm, SetEqualizerPresetForm); 47 | Application.CreateForm(TSelectOutputDeviceForm, SelectOutputDeviceForm); 48 | Application.Run; 49 | end. 50 | -------------------------------------------------------------------------------- /use/PasLibVlc/Lazarus/DemoPasLibVlcPlayer/FullScreenFormUnit.pas: -------------------------------------------------------------------------------- 1 | (* 2 | ******************************************************************************* 3 | * 4 | * Copyright (c) 2020 Robert Jędrzejczyk 5 | * 6 | * Permission is hereby granted, free of charge, to any person obtaining a copy 7 | * of this software and associated documentation files (the "Software"), to deal 8 | * in the Software without restriction, including without limitation the rights 9 | * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 10 | * copies of the Software, and to permit persons to whom the Software is 11 | * furnished to do so, subject to the following conditions: 12 | * 13 | * The above copyright notice and this permission notice shall be included in all 14 | * copies or substantial portions of the Software. 15 | * 16 | * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR 17 | * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, 18 | * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE 19 | * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER 20 | * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, 21 | * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE 22 | * SOFTWARE. 23 | * 24 | ******************************************************************************* 25 | *) 26 | 27 | {$I ../../source/compiler.inc} 28 | 29 | unit FullScreenFormUnit; 30 | 31 | interface 32 | 33 | uses 34 | {$IFDEF UNIX}Unix,{$ENDIF} 35 | {$IFDEF FPC} 36 | LCLIntf, LCLType, LMessages, 37 | {$ELSE} 38 | Messages, 39 | {$ENDIF} 40 | SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; 41 | 42 | type 43 | TFullScreenForm = class(TForm) 44 | procedure FormKeyPress(Sender: TObject; var Key: Char); 45 | procedure FormShow(Sender: TObject); 46 | private 47 | { Private declarations } 48 | public 49 | { Public declarations } 50 | end; 51 | 52 | var 53 | FullScreenForm: TFullScreenForm; 54 | 55 | implementation 56 | 57 | {$R *.lfm} 58 | 59 | procedure TFullScreenForm.FormKeyPress(Sender: TObject; var Key: Char); 60 | begin 61 | Close; 62 | end; 63 | 64 | procedure TFullScreenForm.FormShow(Sender: TObject); 65 | begin 66 | Application.ProcessMessages; 67 | end; 68 | 69 | end. 70 | -------------------------------------------------------------------------------- /src/print.lfm: -------------------------------------------------------------------------------- 1 | object frprint: Tfrprint 2 | Left = 382 3 | Height = 240 4 | Top = 263 5 | Width = 351 6 | Caption = 'Print' 7 | ClientHeight = 240 8 | ClientWidth = 351 9 | OnShow = FormShow 10 | LCLVersion = '1.8.4.0' 11 | object cbPrinter: TComboBox 12 | Left = 72 13 | Height = 23 14 | Top = 16 15 | Width = 208 16 | ItemHeight = 15 17 | Style = csDropDownList 18 | TabOrder = 0 19 | end 20 | object lblprint: TLabel 21 | Left = 32 22 | Height = 15 23 | Top = 16 24 | Width = 38 25 | Caption = 'Printer:' 26 | ParentColor = False 27 | end 28 | object btnpPrinter: TButtonPanel 29 | Left = 6 30 | Height = 34 31 | Top = 200 32 | Width = 339 33 | OKButton.Name = 'OKButton' 34 | OKButton.DefaultCaption = True 35 | OKButton.OnClick = OKButtonClick 36 | HelpButton.Name = 'HelpButton' 37 | HelpButton.DefaultCaption = True 38 | CloseButton.Name = 'CloseButton' 39 | CloseButton.DefaultCaption = True 40 | CloseButton.OnClick = CloseButtonClick 41 | CancelButton.Name = 'CancelButton' 42 | CancelButton.DefaultCaption = True 43 | TabOrder = 1 44 | end 45 | object lblSheel: TLabel 46 | Left = 32 47 | Height = 15 48 | Top = 56 49 | Width = 31 50 | Caption = 'Sheel:' 51 | ParentColor = False 52 | end 53 | object cbSheel: TComboBox 54 | Left = 72 55 | Height = 23 56 | Top = 56 57 | Width = 208 58 | ItemHeight = 15 59 | Style = csDropDownList 60 | TabOrder = 2 61 | end 62 | object rbHorizontal: TRadioButton 63 | Left = 40 64 | Height = 19 65 | Top = 104 66 | Width = 75 67 | Caption = 'Horizontal' 68 | TabOrder = 3 69 | end 70 | object rbVertical: TRadioButton 71 | Left = 40 72 | Height = 19 73 | Top = 136 74 | Width = 59 75 | Caption = 'Vertical' 76 | Checked = True 77 | TabOrder = 4 78 | TabStop = True 79 | end 80 | object speCopys: TSpinEdit 81 | Left = 230 82 | Height = 23 83 | Top = 100 84 | Width = 50 85 | MinValue = 1 86 | TabOrder = 5 87 | Value = 1 88 | end 89 | object lblCopys: TLabel 90 | Left = 192 91 | Height = 15 92 | Top = 104 93 | Width = 36 94 | Caption = 'Copys:' 95 | ParentColor = False 96 | end 97 | end 98 | -------------------------------------------------------------------------------- /use/PasLibVlc/Lazarus/PasLibVlcPlayer.lpk: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 51 | 52 | 53 | 54 | 55 | 56 | 57 | 58 | 59 | 60 | 61 | 62 | 63 | 64 | 65 | 66 | 67 | 68 | <_ExternHelp Items="Count"/> 69 | 70 | 71 | 72 | -------------------------------------------------------------------------------- /src/unit2.pas: -------------------------------------------------------------------------------- 1 | unit Unit2; 2 | 3 | {$mode objfpc}{$H+} 4 | 5 | interface 6 | 7 | uses 8 | Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, 9 | ButtonPanel, Spin; 10 | 11 | type 12 | 13 | { Tfrresize } 14 | 15 | Tfrresize = class(TForm) 16 | ButtonPanel1: TButtonPanel; 17 | Label1: TLabel; 18 | Label2: TLabel; 19 | SpinEdit1: TSpinEdit; 20 | SpinEdit2: TSpinEdit; 21 | ToggleBox1: TToggleBox; 22 | procedure SpinEdit1Change(Sender: TObject); 23 | procedure SpinEdit2Change(Sender: TObject); 24 | procedure FormCreate(Sender: TObject); 25 | procedure FormShow(Sender: TObject); 26 | procedure OKButtonClick(Sender: TObject); 27 | private 28 | { private declarations } 29 | public 30 | { public declarations } 31 | end; 32 | 33 | var 34 | frresize: Tfrresize; 35 | okresize:boolean=false; 36 | psw:Longint=1; 37 | psh:Longint=1; 38 | implementation 39 | uses fmain; 40 | {$R *.lfm} 41 | 42 | { Tfrresize } 43 | 44 | 45 | procedure Tfrresize.SpinEdit1Change(Sender: TObject); 46 | var 47 | nsh:Longint; 48 | begin 49 | //psw=ancho actual, psh=alto actual 50 | psw:=realimgwidth; 51 | if (frresize.ToggleBox1.State=cbChecked) then 52 | begin 53 | frresize.SpinEdit2.OnChange:=nil; 54 | //nsh= 55 | nsh:=frresize.SpinEdit1.Value*psh div psw; 56 | frresize.SpinEdit2.Value:=nsh; 57 | frresize.SpinEdit2.OnChange:=@frresize.SpinEdit2Change; 58 | end; 59 | end; 60 | 61 | 62 | procedure Tfrresize.SpinEdit2Change(Sender: TObject); 63 | var 64 | nsh:Longint; 65 | begin 66 | psh:=realimgheight; 67 | if (frresize.ToggleBox1.State=cbChecked) then 68 | begin 69 | frresize.SpinEdit1.OnChange:=nil; 70 | nsh:=frresize.SpinEdit2.Value*psw div psh; 71 | frresize.SpinEdit1.Value:=nsh; 72 | frresize.SpinEdit1.OnChange:=@frresize.SpinEdit1Change; 73 | end; 74 | end; 75 | 76 | procedure Tfrresize.FormCreate(Sender: TObject); 77 | begin 78 | okresize:=false; 79 | psw:=frresize.SpinEdit1.Value; 80 | psh:=frresize.SpinEdit2.Value; 81 | end; 82 | 83 | procedure Tfrresize.FormShow(Sender: TObject); 84 | begin 85 | okresize:=false; 86 | psw:=frresize.SpinEdit1.Value; 87 | psh:=frresize.SpinEdit2.Value; 88 | end; 89 | 90 | procedure Tfrresize.OKButtonClick(Sender: TObject); 91 | begin 92 | okresize:=true; 93 | frresize.Close; 94 | end; 95 | 96 | end. 97 | 98 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE10/DemoPasLibVlcPlayer/DemoPasLibVlcPlayer.dpr: -------------------------------------------------------------------------------- 1 | (* 2 | ******************************************************************************* 3 | * 4 | * Copyright (c) 2020 Robert Jędrzejczyk 5 | * 6 | * Permission is hereby granted, free of charge, to any person obtaining a copy 7 | * of this software and associated documentation files (the "Software"), to deal 8 | * in the Software without restriction, including without limitation the rights 9 | * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 10 | * copies of the Software, and to permit persons to whom the Software is 11 | * furnished to do so, subject to the following conditions: 12 | * 13 | * The above copyright notice and this permission notice shall be included in all 14 | * copies or substantial portions of the Software. 15 | * 16 | * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR 17 | * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, 18 | * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE 19 | * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER 20 | * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, 21 | * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE 22 | * SOFTWARE. 23 | * 24 | ******************************************************************************* 25 | *) 26 | 27 | {$I ..\..\source\compiler.inc} 28 | 29 | program DemoPasLibVlcPlayer; 30 | 31 | uses 32 | Forms, 33 | MainFormUnit in 'MainFormUnit.pas' {MainForm}, 34 | FullScreenFormUnit in 'FullScreenFormUnit.pas' {FullScreenForm}, 35 | SetEqualizerPresetFormUnit in 'SetEqualizerPresetFormUnit.pas' {SetEqualizerPresetForm}, 36 | SelectOutputDeviceFormUnit in 'SelectOutputDeviceFormUnit.pas' {SelectOutputDeviceForm}, 37 | VideoAdjustFormUnit in 'VideoAdjustFormUnit.pas' {VideoAdjustForm}; 38 | 39 | {$R *.res} 40 | 41 | begin 42 | ReportMemoryLeaksOnShutdown := TRUE; 43 | Application.Initialize; 44 | Application.MainFormOnTaskbar := True; 45 | Application.Title := 'PasLibVlcPlayerDemo' + ' - ' + {$IFDEF CPUX64}'64'{$ELSE}'32'{$ENDIF} + ' bit'; 46 | Application.CreateForm(TMainForm, MainForm); 47 | Application.CreateForm(TSetEqualizerPresetForm, SetEqualizerPresetForm); 48 | Application.CreateForm(TSelectOutputDeviceForm, SelectOutputDeviceForm); 49 | Application.CreateForm(TVideoAdjustForm, VideoAdjustForm); 50 | Application.Run; 51 | end. 52 | -------------------------------------------------------------------------------- /use/PasLibVlc/Delphi2007/DemoPasLibVlcPlayer/DemoPasLibVlcPlayer.dpr: -------------------------------------------------------------------------------- 1 | (* 2 | ******************************************************************************* 3 | * 4 | * Copyright (c) 2020 Robert Jędrzejczyk 5 | * 6 | * Permission is hereby granted, free of charge, to any person obtaining a copy 7 | * of this software and associated documentation files (the "Software"), to deal 8 | * in the Software without restriction, including without limitation the rights 9 | * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 10 | * copies of the Software, and to permit persons to whom the Software is 11 | * furnished to do so, subject to the following conditions: 12 | * 13 | * The above copyright notice and this permission notice shall be included in all 14 | * copies or substantial portions of the Software. 15 | * 16 | * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR 17 | * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, 18 | * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE 19 | * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER 20 | * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, 21 | * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE 22 | * SOFTWARE. 23 | * 24 | ******************************************************************************* 25 | *) 26 | 27 | {$I ..\..\source\compiler.inc} 28 | 29 | program DemoPasLibVlcPlayer; 30 | 31 | uses 32 | Forms, 33 | PasLibVlcUnit in '..\..\source\PasLibVlcUnit.pas', 34 | PasLibVlcClassUnit in '..\..\source\PasLibVlcClassUnit.pas', 35 | PasLibVlcPlayerUnit in '..\..\source.vcl\PasLibVlcPlayerUnit.pas', 36 | MainFormUnit in 'MainFormUnit.pas' {MainForm}, 37 | FullScreenFormUnit in 'FullScreenFormUnit.pas' {FullScreenForm}, 38 | SetEqualizerPresetFormUnit in 'SetEqualizerPresetFormUnit.pas' {SetEqualizerPresetForm}, 39 | SelectOutputDeviceFormUnit in 'SelectOutputDeviceFormUnit.pas' {SelectOutputDeviceForm}, 40 | VideoAdjustFormUnit in 'VideoAdjustFormUnit.pas' {VideoAdjustForm}; 41 | 42 | {$R *.res} 43 | 44 | begin 45 | {$IFDEF DELPHI2007_UP} 46 | ReportMemoryLeaksOnShutdown := TRUE; 47 | {$ENDIF} 48 | 49 | Application.Initialize; 50 | {$IFDEF DELPHI2007_UP} 51 | Application.MainFormOnTaskbar := True; 52 | {$ENDIF} 53 | Application.Title := 'PasLibVlcPlayerDemo' + ' - ' + {$IFDEF CPUX64}'64'{$ELSE}'32'{$ENDIF} + ' bit';; 54 | Application.CreateForm(TMainForm, MainForm); 55 | Application.Run; 56 | end. 57 | -------------------------------------------------------------------------------- /src/fresize.pas: -------------------------------------------------------------------------------- 1 | unit fresize; 2 | 3 | {$mode objfpc}{$H+} 4 | 5 | interface 6 | 7 | uses 8 | SysUtils, Forms, StdCtrls, 9 | ButtonPanel, Spin; 10 | 11 | type 12 | 13 | { Tfrresize } 14 | 15 | Tfrresize = class(TForm) 16 | ButtonPanel1: TButtonPanel; 17 | cbFilter: TComboBox; 18 | Label1: TLabel; 19 | Label2: TLabel; 20 | lblFilter: TLabel; 21 | SpinEdit1: TSpinEdit; 22 | SpinEdit2: TSpinEdit; 23 | ToggleBox1: TToggleBox; 24 | procedure SpinEdit1Change(Sender: TObject); 25 | procedure SpinEdit2Change(Sender: TObject); 26 | procedure FormCreate(Sender: TObject); 27 | procedure FormShow(Sender: TObject); 28 | procedure OKButtonClick(Sender: TObject); 29 | private 30 | { private declarations } 31 | public 32 | { public declarations } 33 | end; 34 | 35 | var 36 | frresize: Tfrresize; 37 | okresize:boolean=false; 38 | psw:Longint=1; 39 | psh:Longint=1; 40 | implementation 41 | uses fmain; 42 | {$R *.lfm} 43 | 44 | { Tfrresize } 45 | 46 | 47 | procedure Tfrresize.SpinEdit1Change(Sender: TObject); 48 | var 49 | nsh:Longint; 50 | begin 51 | //psw=ancho actual, psh=alto actual 52 | psw:=realimgwidth; 53 | if (frresize.ToggleBox1.State=cbChecked) then 54 | begin 55 | frresize.SpinEdit2.OnChange:=nil; 56 | //nsh= 57 | nsh:=frresize.SpinEdit1.Value*psh div psw; 58 | frresize.SpinEdit2.Value:=nsh; 59 | frresize.SpinEdit2.OnChange:=@frresize.SpinEdit2Change; 60 | end; 61 | end; 62 | 63 | 64 | procedure Tfrresize.SpinEdit2Change(Sender: TObject); 65 | var 66 | nsh:Longint; 67 | begin 68 | psh:=realimgheight; 69 | if (frresize.ToggleBox1.State=cbChecked) then 70 | begin 71 | frresize.SpinEdit1.OnChange:=nil; 72 | nsh:=frresize.SpinEdit2.Value*psw div psh; 73 | frresize.SpinEdit1.Value:=nsh; 74 | frresize.SpinEdit1.OnChange:=@frresize.SpinEdit1Change; 75 | end; 76 | end; 77 | 78 | procedure Tfrresize.FormCreate(Sender: TObject); 79 | begin 80 | okresize:=false; 81 | psw:=frresize.SpinEdit1.Value; 82 | psh:=frresize.SpinEdit2.Value; 83 | end; 84 | 85 | procedure Tfrresize.FormShow(Sender: TObject); 86 | begin 87 | okresize:=false; 88 | psw:=frresize.SpinEdit1.Value; 89 | psh:=frresize.SpinEdit2.Value; 90 | end; 91 | 92 | procedure Tfrresize.OKButtonClick(Sender: TObject); 93 | begin 94 | okresize:=true; 95 | frresize.Close; 96 | end; 97 | 98 | end. 99 | 100 | -------------------------------------------------------------------------------- /use/PasLibVlc/source.fmx/FmxPasLibVlcPlayerUnit.txt: -------------------------------------------------------------------------------- 1 | 2020.07.05 Switch to MIT licence, and try prepare to support v4 2 | 3 | 2019.03.24 Modify Stop procedure 4 | 5 | inspired by Rob Renaud 6 | 7 | new procedure: 8 | 9 | procedure Stop(const stopTimeOut : Cardinal = 1000); 10 | 11 | 2019.01.08 Add support for events: 12 | 13 | libvlc_MediaPlayerESAdded 14 | libvlc_MediaPlayerESDeleted 15 | libvlc_MediaPlayerESSelected 16 | libvlc_MediaPlayerAudioDevice 17 | libvlc_MediaPlayerChapterChanged 18 | libvlc_RendererDiscovererItemAdded 19 | libvlc_RendererDiscovererItemDeleted 20 | 21 | 2018.07.01 Add support for media callbacks 22 | 23 | inspired by Mark Adamson 24 | 25 | new procedure: 26 | 27 | procedure Play(stm : TStream, ...); overload; 28 | 29 | 2018.06.29 Remove duplicated code 30 | 31 | affected procedures: 32 | 33 | procedure Play (...); overload; 34 | procedure PlayNormal (...); overload; 35 | procedure PlayYoutube(...); overload; 36 | 37 | 2018.06.05 Correct PlayYoutube 38 | 39 | reported by Ahmet Yeşilçimen 40 | 41 | 2018.04.26 Correct usage of video callbacks 42 | 43 | 2018.03.11 Update for better compatibility with libvlc 3.0.0 44 | 45 | New events: 46 | 47 | libvlc_MediaPlayerESAdded, 48 | libvlc_MediaPlayerESDeleted, 49 | libvlc_MediaPlayerESSelected, 50 | libvlc_MediaPlayerAudioDevice, 51 | libvlc_MediaPlayerChapterChanged, 52 | libvlc_RendererDiscovererItemAdded, 53 | libvlc_RendererDiscovererItemDelete 54 | 55 | 2018.01.02 Extend parameters: 56 | 57 | inspired by "Christian Koch" 58 | required to add ":cdda-track=1" as option to the media 59 | 60 | affected procedures: 61 | 62 | procedure Play (mrl: WideString; mediaOptions : array of WideString; ...); overload; 63 | procedure PlayNormal (mrl: WideString; mediaOptions : array of WideString; ...); overload; 64 | procedure PlayYoutube(mrl: WideString; mediaOptions : array of WideString; ...); overload; 65 | 66 | 2017.12.05 New functions: 67 | 68 | GetVideoSampleAspectRatio 69 | 70 | 2016.11.28 Update Equalizer function declarations 71 | 72 | reported by "Woldemar Unknown" 73 | 74 | 2016.10.18 Initial release 75 | -------------------------------------------------------------------------------- /use/PasLibVlc/Delphi2007/DemoPasLibVlcPlayerPauseAtStart/MainFormUnit.pas: -------------------------------------------------------------------------------- 1 | (* 2 | ******************************************************************************* 3 | * 4 | * Copyright (c) 2020 Robert Jędrzejczyk 5 | * 6 | * Permission is hereby granted, free of charge, to any person obtaining a copy 7 | * of this software and associated documentation files (the "Software"), to deal 8 | * in the Software without restriction, including without limitation the rights 9 | * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 10 | * copies of the Software, and to permit persons to whom the Software is 11 | * furnished to do so, subject to the following conditions: 12 | * 13 | * The above copyright notice and this permission notice shall be included in all 14 | * copies or substantial portions of the Software. 15 | * 16 | * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR 17 | * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, 18 | * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE 19 | * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER 20 | * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, 21 | * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE 22 | * SOFTWARE. 23 | * 24 | ******************************************************************************* 25 | *) 26 | 27 | {$I ..\..\source\compiler.inc} 28 | 29 | unit MainFormUnit; 30 | 31 | interface 32 | 33 | uses 34 | {$IFDEF UNIX}Unix,{$ENDIF} 35 | {$IFDEF MSWINDOWS}Windows,{$ENDIF} 36 | Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 37 | Dialogs, StdCtrls, ExtCtrls, PasLibVlcPlayerUnit; 38 | 39 | type 40 | TMainForm = class(TForm) 41 | mrlEdit: TEdit; 42 | player: TPasLibVlcPlayer; 43 | playButton: TButton; 44 | procedure FormCreate(Sender: TObject); 45 | procedure playerMediaPlayerTimeChanged(Sender: TObject; 46 | time: Int64); 47 | procedure playButtonClick(Sender: TObject); 48 | private 49 | needStop : Boolean; 50 | public 51 | { Public declarations } 52 | end; 53 | 54 | var 55 | MainForm: TMainForm; 56 | 57 | implementation 58 | 59 | {$R *.dfm} 60 | 61 | procedure TMainForm.FormCreate(Sender: TObject); 62 | begin 63 | needStop := TRUE; 64 | mrlEdit.Text := '..'+PathDelim+'..'+PathDelim+'_testFiles'+PathDelim+'test.ts'; 65 | player.Play(mrlEdit.Text); 66 | end; 67 | 68 | procedure TMainForm.playButtonClick(Sender: TObject); 69 | begin 70 | player.Resume(); 71 | end; 72 | 73 | procedure TMainForm.playerMediaPlayerTimeChanged(Sender: TObject; 74 | time: Int64); 75 | begin 76 | if (needStop) and (time > 100) then 77 | begin 78 | needStop := FALSE; 79 | player.Pause(); 80 | end; 81 | end; 82 | 83 | end. 84 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE10/FmxDemoPasLibVlcPlayer/MainFormUnit.fmx: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'FmxDemoPasLibVlcPlayer' 5 | ClientHeight = 480 6 | ClientWidth = 640 7 | Position = ScreenCenter 8 | FormFactor.Width = 320 9 | FormFactor.Height = 480 10 | FormFactor.Devices = [Desktop] 11 | OnCreate = FormCreate 12 | OnClose = FormClose 13 | DesignerMasterStyle = 0 14 | object OpenDialog: TOpenDialog 15 | InitialDir = 'C:\_LibXE\vlc\_testFiles' 16 | Left = 560 17 | Top = 72 18 | end 19 | object Panel1: TPanel 20 | Align = Right 21 | Position.X = 520.000000000000000000 22 | Size.Width = 120.000000000000000000 23 | Size.Height = 480.000000000000000000 24 | Size.PlatformDefault = False 25 | TabOrder = 3 26 | object OpenButton: TButton 27 | Position.X = 24.000000000000000000 28 | Position.Y = 24.000000000000000000 29 | TabOrder = 0 30 | Text = 'Open' 31 | OnClick = OpenButtonClick 32 | end 33 | end 34 | object FmxPasLibVlcPlayer1: TFmxPasLibVlcPlayer 35 | MultiResBitmap = < 36 | item 37 | Width = 320 38 | Height = 160 39 | PNG = { 40 | 89504E470D0A1A0A0000000D4948445200000140000000A008060000007DA3B5 41 | 9C000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000 42 | 022749444154785EEDD4410DC0300003B174FC396F7D8CC5D952140677B6BD77 43 | 0039CFFF00390208640920902580409600025902086409209025804096000259 44 | 0208640920902580409600025902086409209025804096000259020864092090 45 | 2580409600025902086409209025804096000259020864092090258040960002 46 | 5902086409209025804096000259020864092090258040960002590208640920 47 | 9025804096000259020864092090258040960002590208640920902580409600 48 | 0259020864092090258040960002590208640920902580409600025902086409 49 | 2090258040960002590208640920902580409600025902086409209025804096 50 | 0002590208640920902580409600025902086409209025804096000259020864 51 | 0920902580409600025902086409209025804096000259020864092090258040 52 | 9600025902086409209025804096000259020864092090258040960002590208 53 | 6409209025804096000259020864092090258040960002590208640920902580 54 | 4096000259020864092090258040960002590208640920902580409600025902 55 | 0864092090258040960002590208640920902580409600025902086409209025 56 | 8040960002590208640920902580409600025902086409209025804096000259 57 | 0208640920902580409600025902086409209025804096000259020864092090 58 | 2580409600025902086409209025804096000259020864092090258040960002 59 | 59020864092010B57D4C3F023F2CCA8F680000000049454E44AE426082} 60 | end> 61 | Align = Client 62 | Size.Width = 520.000000000000000000 63 | Size.Height = 480.000000000000000000 64 | Size.PlatformDefault = False 65 | WrapMode = Stretch 66 | SnapShotFmt = 'png' 67 | OnMediaPlayerVideoSizeChanged = FmxPasLibVlcPlayer1MediaPlayerVideoSizeChanged 68 | end 69 | end 70 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE7/FmxDemoPasLibVlcPlayer/MainFormUnit.fmx: -------------------------------------------------------------------------------- 1 | object MainForm: TMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'FmxDemoPasLibVlcPlayer' 5 | ClientHeight = 480 6 | ClientWidth = 640 7 | Position = ScreenCenter 8 | FormFactor.Width = 320 9 | FormFactor.Height = 480 10 | FormFactor.Devices = [Desktop] 11 | OnCreate = FormCreate 12 | OnClose = FormClose 13 | DesignerMasterStyle = 0 14 | object OpenDialog: TOpenDialog 15 | InitialDir = 'C:\_LibXE\vlc\_testFiles' 16 | Left = 560 17 | Top = 72 18 | end 19 | object Panel1: TPanel 20 | Align = Right 21 | Position.X = 520.000000000000000000 22 | Size.Width = 120.000000000000000000 23 | Size.Height = 480.000000000000000000 24 | Size.PlatformDefault = False 25 | TabOrder = 3 26 | object OpenButton: TButton 27 | Position.X = 24.000000000000000000 28 | Position.Y = 24.000000000000000000 29 | TabOrder = 0 30 | Text = 'Open' 31 | OnClick = OpenButtonClick 32 | end 33 | end 34 | object FmxPasLibVlcPlayer1: TFmxPasLibVlcPlayer 35 | MultiResBitmap = < 36 | item 37 | Width = 320 38 | Height = 160 39 | PNG = { 40 | 89504E470D0A1A0A0000000D4948445200000140000000A008060000007DA3B5 41 | 9C000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000 42 | 022749444154785EEDD4410DC0300003B174FC396F7D8CC5D952140677B6BD77 43 | 0039CFFF00390208640920902580409600025902086409209025804096000259 44 | 0208640920902580409600025902086409209025804096000259020864092090 45 | 2580409600025902086409209025804096000259020864092090258040960002 46 | 5902086409209025804096000259020864092090258040960002590208640920 47 | 9025804096000259020864092090258040960002590208640920902580409600 48 | 0259020864092090258040960002590208640920902580409600025902086409 49 | 2090258040960002590208640920902580409600025902086409209025804096 50 | 0002590208640920902580409600025902086409209025804096000259020864 51 | 0920902580409600025902086409209025804096000259020864092090258040 52 | 9600025902086409209025804096000259020864092090258040960002590208 53 | 6409209025804096000259020864092090258040960002590208640920902580 54 | 4096000259020864092090258040960002590208640920902580409600025902 55 | 0864092090258040960002590208640920902580409600025902086409209025 56 | 8040960002590208640920902580409600025902086409209025804096000259 57 | 0208640920902580409600025902086409209025804096000259020864092090 58 | 2580409600025902086409209025804096000259020864092090258040960002 59 | 59020864092010B57D4C3F023F2CCA8F680000000049454E44AE426082} 60 | end> 61 | Align = Client 62 | Size.Width = 520.000000000000000000 63 | Size.Height = 480.000000000000000000 64 | Size.PlatformDefault = False 65 | WrapMode = Stretch 66 | SnapShotFmt = 'png' 67 | OnMediaPlayerVideoSizeChanged = FmxPasLibVlcPlayer1MediaPlayerVideoSizeChanged 68 | end 69 | end 70 | -------------------------------------------------------------------------------- /use/PasLibVlc/Delphi2007/DemoPasLibVlcPlayer/SetEqualizerPresetFormUnit.pas: -------------------------------------------------------------------------------- 1 | (* 2 | ******************************************************************************* 3 | * 4 | * Copyright (c) 2020 Robert Jędrzejczyk 5 | * 6 | * Permission is hereby granted, free of charge, to any person obtaining a copy 7 | * of this software and associated documentation files (the "Software"), to deal 8 | * in the Software without restriction, including without limitation the rights 9 | * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 10 | * copies of the Software, and to permit persons to whom the Software is 11 | * furnished to do so, subject to the following conditions: 12 | * 13 | * The above copyright notice and this permission notice shall be included in all 14 | * copies or substantial portions of the Software. 15 | * 16 | * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR 17 | * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, 18 | * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE 19 | * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER 20 | * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, 21 | * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE 22 | * SOFTWARE. 23 | * 24 | ******************************************************************************* 25 | *) 26 | 27 | {$I ..\..\source\compiler.inc} 28 | 29 | unit SetEqualizerPresetFormUnit; 30 | 31 | interface 32 | 33 | uses 34 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 35 | Dialogs, StdCtrls, PasLibVlcClassUnit; 36 | 37 | type 38 | TSetEqualizerPresetForm = class(TForm) 39 | PresetListLB: TListBox; 40 | OkBtn: TButton; 41 | CancelBtn: TButton; 42 | PresetListLabel: TLabel; 43 | BandInfoLB: TListBox; 44 | BandInfoLabel: TLabel; 45 | procedure PresetListLBClick(Sender: TObject); 46 | private 47 | { Private declarations } 48 | public 49 | FVLC : TPasLibVlc; 50 | end; 51 | 52 | var 53 | SetEqualizerPresetForm: TSetEqualizerPresetForm; 54 | 55 | implementation 56 | 57 | {$R *.dfm} 58 | 59 | procedure TSetEqualizerPresetForm.PresetListLBClick(Sender: TObject); 60 | var 61 | equalizer : TPasLibVlcEqualizer; 62 | index : Integer; 63 | begin 64 | BandInfoLB.Clear; 65 | if (PresetListLB.ItemIndex > -1) then 66 | begin 67 | equalizer := TPasLibVlcEqualizer.Create( 68 | FVLC, 69 | Word(PresetListLB.Items.Objects[PresetListLB.ItemIndex]) 70 | ); 71 | BandInfoLB.AddItem( 72 | 'PreAmp: ' + IntToStr(Round(equalizer.GetPreAmp())), 73 | NIL 74 | ); 75 | for index := 0 to equalizer.GetBandCount() - 1 do 76 | begin 77 | BandInfoLB.AddItem( 78 | 'Band no: ' + IntToStr(index+1) + 79 | ', freq.: ' + IntToStr(Round(equalizer.GetBandFrequency(index))) + 80 | 'Hz, amp.:' + IntToStr(Round(equalizer.GetAmp(index))), 81 | NIL 82 | ); 83 | end; 84 | equalizer.Free; 85 | end; 86 | end; 87 | 88 | end. 89 | -------------------------------------------------------------------------------- /use/PasLibVlc/DelphiXE10/DemoPasLibVlcPlayer/SetEqualizerPresetFormUnit.pas: -------------------------------------------------------------------------------- 1 | (* 2 | ******************************************************************************* 3 | * 4 | * Copyright (c) 2020 Robert Jędrzejczyk 5 | * 6 | * Permission is hereby granted, free of charge, to any person obtaining a copy 7 | * of this software and associated documentation files (the "Software"), to deal 8 | * in the Software without restriction, including without limitation the rights 9 | * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 10 | * copies of the Software, and to permit persons to whom the Software is 11 | * furnished to do so, subject to the following conditions: 12 | * 13 | * The above copyright notice and this permission notice shall be included in all 14 | * copies or substantial portions of the Software. 15 | * 16 | * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR 17 | * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, 18 | * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE 19 | * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER 20 | * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, 21 | * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE 22 | * SOFTWARE. 23 | * 24 | ******************************************************************************* 25 | *) 26 | 27 | {$I ..\..\source\compiler.inc} 28 | 29 | unit SetEqualizerPresetFormUnit; 30 | 31 | interface 32 | 33 | uses 34 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 35 | Dialogs, StdCtrls, PasLibVlcClassUnit; 36 | 37 | type 38 | TSetEqualizerPresetForm = class(TForm) 39 | PresetListLB: TListBox; 40 | OkBtn: TButton; 41 | CancelBtn: TButton; 42 | PresetListLabel: TLabel; 43 | BandInfoLB: TListBox; 44 | BandInfoLabel: TLabel; 45 | procedure PresetListLBClick(Sender: TObject); 46 | private 47 | { Private declarations } 48 | public 49 | FVLC : TPasLibVlc; 50 | end; 51 | 52 | var 53 | SetEqualizerPresetForm: TSetEqualizerPresetForm; 54 | 55 | implementation 56 | 57 | {$R *.dfm} 58 | 59 | procedure TSetEqualizerPresetForm.PresetListLBClick(Sender: TObject); 60 | var 61 | equalizer : TPasLibVlcEqualizer; 62 | index : Integer; 63 | begin 64 | BandInfoLB.Clear; 65 | if (PresetListLB.ItemIndex > -1) then 66 | begin 67 | equalizer := TPasLibVlcEqualizer.Create( 68 | FVLC, 69 | Word(PresetListLB.Items.Objects[PresetListLB.ItemIndex]) 70 | ); 71 | BandInfoLB.AddItem( 72 | 'PreAmp: ' + IntToStr(Round(equalizer.GetPreAmp())), 73 | NIL 74 | ); 75 | for index := 0 to equalizer.GetBandCount() - 1 do 76 | begin 77 | BandInfoLB.AddItem( 78 | 'Band no: ' + IntToStr(index+1) + 79 | ', freq.: ' + IntToStr(Round(equalizer.GetBandFrequency(index))) + 80 | 'Hz, amp.:' + IntToStr(Round(equalizer.GetAmp(index))), 81 | NIL 82 | ); 83 | end; 84 | equalizer.Free; 85 | end; 86 | end; 87 | 88 | end. 89 | --------------------------------------------------------------------------------