diff --git a/components/jvcllaz/packages/JvCoreLazD.lpk b/components/jvcllaz/packages/JvCoreLazD.lpk index a9cdab8be..dcc5689b0 100644 --- a/components/jvcllaz/packages/JvCoreLazD.lpk +++ b/components/jvcllaz/packages/JvCoreLazD.lpk @@ -16,7 +16,7 @@ - + diff --git a/components/jvcllaz/packages/JvCoreLazR.lpk b/components/jvcllaz/packages/JvCoreLazR.lpk index e02eac654..037ded4b4 100644 --- a/components/jvcllaz/packages/JvCoreLazR.lpk +++ b/components/jvcllaz/packages/JvCoreLazR.lpk @@ -22,7 +22,7 @@ - + diff --git a/components/jvcllaz/packages/JvCtrlsLazD.lpk b/components/jvcllaz/packages/JvCtrlsLazD.lpk index 87ec1b315..e530ccbea 100644 --- a/components/jvcllaz/packages/JvCtrlsLazD.lpk +++ b/components/jvcllaz/packages/JvCtrlsLazD.lpk @@ -20,7 +20,7 @@ - Labels - Listboxes, Comboboxes, TreeViews"/> - + diff --git a/components/jvcllaz/packages/JvCtrlsLazR.lpk b/components/jvcllaz/packages/JvCtrlsLazR.lpk index 8dd7b7ddd..8f51ee1d8 100644 --- a/components/jvcllaz/packages/JvCtrlsLazR.lpk +++ b/components/jvcllaz/packages/JvCtrlsLazR.lpk @@ -18,7 +18,7 @@ - Labels - Listboxes, Comboboxes, TreeViews"/> - + diff --git a/components/jvcllaz/packages/JvDBLazD.lpk b/components/jvcllaz/packages/JvDBLazD.lpk index 9531ead0a..05241fd02 100644 --- a/components/jvcllaz/packages/JvDBLazD.lpk +++ b/components/jvcllaz/packages/JvDBLazD.lpk @@ -16,7 +16,7 @@ - + diff --git a/components/jvcllaz/packages/JvDBLazR.lpk b/components/jvcllaz/packages/JvDBLazR.lpk index 57b0b019a..bee7953ae 100644 --- a/components/jvcllaz/packages/JvDBLazR.lpk +++ b/components/jvcllaz/packages/JvDBLazR.lpk @@ -15,7 +15,7 @@ - + diff --git a/components/jvcllaz/packages/JvPageCompsD.lpk b/components/jvcllaz/packages/JvPageCompsD.lpk index 56a77be49..827564d75 100644 --- a/components/jvcllaz/packages/JvPageCompsD.lpk +++ b/components/jvcllaz/packages/JvPageCompsD.lpk @@ -15,7 +15,7 @@ - + diff --git a/components/jvcllaz/packages/JvPageCompsR.lpk b/components/jvcllaz/packages/JvPageCompsR.lpk index 30b317fdc..522269abf 100644 --- a/components/jvcllaz/packages/JvPageCompsR.lpk +++ b/components/jvcllaz/packages/JvPageCompsR.lpk @@ -14,7 +14,7 @@ - + diff --git a/components/jvcllaz/packages/JvStdCtrlsLazD.lpk b/components/jvcllaz/packages/JvStdCtrlsLazD.lpk index b60677da0..242770a83 100644 --- a/components/jvcllaz/packages/JvStdCtrlsLazD.lpk +++ b/components/jvcllaz/packages/JvStdCtrlsLazD.lpk @@ -15,7 +15,7 @@ - + diff --git a/components/jvcllaz/packages/JvStdCtrlsLazR.lpk b/components/jvcllaz/packages/JvStdCtrlsLazR.lpk index 01e1e5062..8cea008b4 100644 --- a/components/jvcllaz/packages/JvStdCtrlsLazR.lpk +++ b/components/jvcllaz/packages/JvStdCtrlsLazR.lpk @@ -18,7 +18,7 @@ - Labels - Listboxes, Comboboxes, TreeViews"/> - + diff --git a/components/jvcllaz/packages/JvValidatorsLazD.lpk b/components/jvcllaz/packages/JvValidatorsLazD.lpk index a64a0bd1c..a66472a26 100644 --- a/components/jvcllaz/packages/JvValidatorsLazD.lpk +++ b/components/jvcllaz/packages/JvValidatorsLazD.lpk @@ -16,7 +16,7 @@ - + diff --git a/components/jvcllaz/packages/JvValidatorsLazR.lpk b/components/jvcllaz/packages/JvValidatorsLazR.lpk index c2b2c7417..fc2f6c0c8 100644 --- a/components/jvcllaz/packages/JvValidatorsLazR.lpk +++ b/components/jvcllaz/packages/JvValidatorsLazR.lpk @@ -14,7 +14,7 @@ - + diff --git a/components/jvcllaz/packages/JvXPCtrlsLazD.lpk b/components/jvcllaz/packages/JvXPCtrlsLazD.lpk index 8ecf0491a..cc29e7688 100644 --- a/components/jvcllaz/packages/JvXPCtrlsLazD.lpk +++ b/components/jvcllaz/packages/JvXPCtrlsLazD.lpk @@ -15,7 +15,7 @@ - + diff --git a/components/jvcllaz/packages/JvXPCtrlsLazR.lpk b/components/jvcllaz/packages/JvXPCtrlsLazR.lpk index 77eedbc4d..161489b7b 100644 --- a/components/jvcllaz/packages/JvXPCtrlsLazR.lpk +++ b/components/jvcllaz/packages/JvXPCtrlsLazR.lpk @@ -14,7 +14,7 @@ - + diff --git a/components/jvcllaz/packages/jvruntimedesignlazd.lpk b/components/jvcllaz/packages/jvruntimedesignlazd.lpk index e30c453f3..32329123a 100644 --- a/components/jvcllaz/packages/jvruntimedesignlazd.lpk +++ b/components/jvcllaz/packages/jvruntimedesignlazd.lpk @@ -14,7 +14,7 @@ - + diff --git a/components/jvcllaz/packages/jvruntimedesignlazr.lpk b/components/jvcllaz/packages/jvruntimedesignlazr.lpk index 5f9fecabe..99ce0a2cb 100644 --- a/components/jvcllaz/packages/jvruntimedesignlazr.lpk +++ b/components/jvcllaz/packages/jvruntimedesignlazr.lpk @@ -14,7 +14,7 @@ - + diff --git a/components/jvcllaz/run/JvCore/JvJVCLUtils.pas b/components/jvcllaz/run/JvCore/JvJVCLUtils.pas index d1c2a9b1d..40c00db0a 100644 --- a/components/jvcllaz/run/JvCore/JvJVCLUtils.pas +++ b/components/jvcllaz/run/JvCore/JvJVCLUtils.pas @@ -2054,11 +2054,7 @@ begin begin Brush.Color := clWhite; FillRect(Rect(0, 0, Images.Width, Images.Height)); - {$IFDEF MSWINDOWS} - ImageList_Draw(Images.Handle, Index, Handle, 0, 0, ILD_MASK); - {$ELSE} - Images.GetBitmap(Index, Bmp, gdeDisabled); // to do: test this - {$ENDIF} + Images.GetBitmap(Index, Bmp, gdeDisabled); end; Bmp.Monochrome := True; if DrawHighlight then diff --git a/components/lazbarcodes/packages/lazbarcodes.lpk b/components/lazbarcodes/packages/lazbarcodes.lpk index 4bd4c966e..e9420f670 100644 --- a/components/lazbarcodes/packages/lazbarcodes.lpk +++ b/components/lazbarcodes/packages/lazbarcodes.lpk @@ -1,25 +1,20 @@ - + + - + - - - - - - - + @@ -27,7 +22,6 @@ - @@ -46,5 +40,8 @@ + + <_ExternHelp Items="Count"/> + diff --git a/components/lazbarcodes/packages/lazbarcodes_runtimeonly.lpk b/components/lazbarcodes/packages/lazbarcodes_runtimeonly.lpk index 948eb11ca..20c969568 100644 --- a/components/lazbarcodes/packages/lazbarcodes_runtimeonly.lpk +++ b/components/lazbarcodes/packages/lazbarcodes_runtimeonly.lpk @@ -14,7 +14,7 @@ - + diff --git a/components/vlc/README.txt b/components/vlc/README.txt deleted file mode 100644 index 8bc01012d..000000000 --- a/components/vlc/README.txt +++ /dev/null @@ -1,18 +0,0 @@ - -This component is a video player based on the VLC libraries. -You need the VLC library headers in FPC, so this will only compile with FPC -2.7.1 and higher. - -The component works on Windows and Linux with GTK2. -It should work with QT, but this is untested. - -The test directory contains a sample project that shows minimal use of the -component. - -There are actually 2 components: -TLCLVLCPLayer -and -TVLCMediaListPlayer -The former plays 1 video file. The second can be used to create a playlist -and uses a TLCLVLCPLayer to play the media. - diff --git a/components/vlc/lazvlc.lpk b/components/vlc/lazvlc.lpk deleted file mode 100644 index 7ec4105ac..000000000 --- a/components/vlc/lazvlc.lpk +++ /dev/null @@ -1,60 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/components/vlc/lazvlc.pas b/components/vlc/lazvlc.pas deleted file mode 100644 index 3c730ef7b..000000000 --- a/components/vlc/lazvlc.pas +++ /dev/null @@ -1,22 +0,0 @@ -{ This file was automatically created by Lazarus. Do not edit! - This source is only used to compile and install the package. - } - -unit lazvlc; - -{$warn 5023 off : no warning about unused units} -interface - -uses - reglazvlc, lclvlc, LazarusPackageIntf; - -implementation - -procedure Register; -begin - RegisterUnit('reglazvlc', @reglazvlc.Register); -end; - -initialization - RegisterPackage('lazvlc', @Register); -end. diff --git a/components/vlc/lazvlc.res b/components/vlc/lazvlc.res deleted file mode 100644 index a12114928..000000000 --- a/components/vlc/lazvlc.res +++ /dev/null @@ -1,113 +0,0 @@ -LazarusResources.Add('tlclvlcplayer','PNG',[ - #137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#24#0#0#0#24#8#2#0#0#0'o'#21#170#175 - +#0#0#0#6'bKGD'#0#255#0#255#0#255#160#189#167#147#0#0#0#9'pHYs'#0#0#0'H'#0#0#0 - +'H'#0'F'#201'k>'#0#0#4#210'IDAT8'#203']'#145']o\W'#21#134#159#181#247'>_sf'#224#3#8#30'@-'#145#197#201#201#195#133#235'G' - +#170':~q'#152#30#182#238#223#254#30'8T'#19#146#255#238'{'#221#8'@L"xA'#169 - +#151#3#1#156#27#12#6#219'7w./O'#214'n'#172'=>9'#188'?'#235#177#210'@'#26#223 - +'j'#21#0#158#160#16'op'#16'@@)'#253#178#233#193#167#229#213#188#221#218#217 - +#222#200'p'#186#217#216'='#252#215#243#193#233#245#218#221#3#180#10#175'eQ"' - +#4#148'A'#129'&'#128#10#0#18#160#6#231'N'#190'>yccG'#251#242#214#230#193#139 - +#243#171#253#141#232#233#163'''k'#7'?B'#20#250'5'#168#240#18#205#197#255#11 - +'*'#1#2'x'#143'/'#134'W'#231#247'v'#239#2'8r'#155#174#169#214#243#147#11#6'c' - +'n4'#229'['#241#255'_'#219'8y'#133#235#193#195#18#22#132'Y'#158','#136'+'#218 - +'M'#158#156#173'djV'#244#155'a'#196#244#140'n'#23'"A'#189'T'#189#242'25'#19 - +#203'2#'#169']'#145'j'#133')`t'#248#151#223#175#228'S&_1'#15#245#240#244#250 - +#236'l'#214#235#173#16#158#252#233'Wwn'#253#12#147#17#28'J'#7#143'R'#202'C' - +#185#172#205#156'R'#3#168'X'#25'X'#226'KT9'#155#158#174'o'#230#193'_'#187#209 - +#232#252#236#241#245#233#211'b'#216'O'#196'i_ sBE'#237'QZ'#137#169#150#206 - +#196#153's'#214#164'lhP'#1#169#18#244#18'<'#197#213#168'w'#253#222#219'7%'#14 - +'RNt'#164#162'Tll'#241'S'#231'{'#244#158#179#189#137'6'#4#135'H'#28#27#196 - +#183#26#153')'#10#218#25#198'C'#25'a'#20#243#222#139#227#227#173#157'=/'#153 - +'].'#6'c'#127'=gV'#197'uHb)'#180#210'G_'#252#227'`'#253#29#226#132#202#145'4' - +#177#150'('#19#133'YK'#9'K'#8'PB'#174#201#183#198#195'z'#127#239#7'q'#30#151 - +#139#233#204#135#145'/+'#19#211#200#227'h'#150#174#222#156'O'#166#168#26'/D' - +#134'P!'#26'o'#241#222#152'W'#15#204#160#134#197#200'Z'#219#236#172#178#146 - +#165#173#238'v|'#171#209'}'#203#142#7#179#254'3;{f'#210'ti]'#248#230#169't' - +#214#201'Z$'#10'm'#16'!x3'#155'|'#222'lobsb'#245#187'_'#254#226#252#252#232 - +#221#15#223#148#181#187'uY'#232#180#173';'#235#173't'#187'jN'#166#181#158#150 - +'K]W'#139#241#252#143#159#254#134#184#241#253#247#239'o'#221'{'#151#8'"'#29 - +#172'5'#205#246#26#216#170'w'#20#7#127#252#245#159#237#178#255#254#219#247'Y' - +'\'#154#188'C'#168#171#197'l:'#169#203#201'd'#185#180'q'#148#181#179't%'#244 - +'?'#127#248#215#225#194#29#236'v'#144';hM'#136'$2'#166'f7'#216'q'#188#25#253 - +#250#231'?m'''#253#221#221#180#186#248'2'#147'm'#150#155#196#171'-'#211'n' - +#166'n4'#25'(5'#181#178#136'''W'#179#139#207#238#228#189'y'#163#241#248#193 - +''''#251'?'#188#11'7Iw'#168#157'1'#1'B'#160#255#239'v4'#218#220#176'[y'#193 - +#224#171#229#248#136'F'#183#12#249#184#208#227'I1'#31#142#170#249'H'#215#179 - +#134#31'n7'#166'Y2jk5'#12#227#226#240'A'#246#209'O'#192#18'E'#6#247#13'ax' - +#245#229#31':'#245#179'n>'#236'&e'#22#10#136#194#244#162#176':'#204#189#154 - +'/'#179'e'#145'K'#145'De'#134#237#228#141'F'#220#174#227#142'['#164#143#254 - +#249#217#7#31'~'#204'tD'#158#24#220#128'0[\'#28#173''''#182#233'g~1 '#26#211 - +#204#197#234#216#235#166#152'FSL'#211'Ex'#237','#214#185#178'P'#170#5#170#217 - +#200#175#199's'#134#3#214'o '#24#6'='#226'z'#210#191#220'j'#166#221#184#171 - +#28#228'B'#28#227'm"'#136'Bim'#140'h'#17'lE'#21'U'#146'T.'#159#204#236'2'#13 - +#181#151#147#191'='#188#253#227#183#240#181#161#253#6#139#222#194#181'FUHL' - +#200#147#216'$'#6'ok'#197#194'S'#212#193'U^'#171#144'H'#29#9'x'#29#226#188'(' - +#227'qm!'#207#215'n\O'#22#183'1(c'#168#183#166#151#147'k'#217#239#15'N'#143 - +'/J'#237'|'#150'V'#243#249'_'#211'/'#2#1'n'#203'S' - +'SS'#179#26'E'#205'YF'#205#206#190#2#255'"83'#250#162'@&|r'#254'&'#231'j.(' - +#178#2#11#11's'#30#159#207''''#18',..VUVV'#254'd>'#7#233'r'#153#195#212#208 - +#196'P'#16#243'.'#193'S'#207#175#187#133#133'o'#223#194'T'#177'&'#16',//'#215 - +#148#151#151#223'3@Mw@J'#10'A"'#157#130#173#5#193'q'#229'2'#191'TY'#22#24#31 - +#31#247'ttt'#136#30#172#174#174#190']VV'#182'h'#142#162#255#139#160#243'1'#0 - +#10#138#206#242#21'3'#201'n'#183'3IiOOOQww'#247#158'@'#16#8#4#222'+--'#253 - +#222'$'#129'Y'#142#11';'#192#164#137#224'*'#145#147'I'#202#132'r8'#236#252 - +#219#202#202#202'zooo'#213#220#220'\D XZZ'#250#0'='#184'{Y'#152#154#9#216#161 - +#230#224#138#10#201'd'#2'o'#1#160'v'#187#141#239'b{{'#251'QWW'#215#29#167#211 - +#249'5'#202'D'#5#130#137#137#137'"'#12#201#15'u'#31'U'#163#234#215#166#162 - +#247#249';'#140'0'#197#229'r'#169'8'#27#165#151#149#163#195#195#216#254#254 - +#254'i('#20#218#192#249#167'ccc'#198#143#13#252#7'P'#234#197'7'#247#18#190'`' - +#0#0#0#0'IEND'#174'B`'#130 -]); diff --git a/components/vlc/lclvlc.pp b/components/vlc/lclvlc.pp deleted file mode 100644 index 6b7038fc6..000000000 --- a/components/vlc/lclvlc.pp +++ /dev/null @@ -1,106 +0,0 @@ -{ - - Copyright (C) 2012 Michael Van Canneyt (michael@freepascal.org) - - This library is free software; you can redistribute it and/or modify it - under the terms of the GNU Library General Public License as published by - the Free Software Foundation; either version 2 of the License, or (at your - option) any later version with the following modification: - - As a special exception, the copyright holders of this library give you - permission to link this library with independent modules to produce an - executable, regardless of the license terms of these independent modules,and - to copy and distribute the resulting executable under terms of your choice, - provided that you also meet, for each linked independent module, the terms - and conditions of the license of that module. An independent module is a - module which is not derived from or based on this library. If you modify - this library, you may extend this exception to your version of the library, - but you are not obligated to do so. If you do not wish to do so, delete this - exception statement from your version. - - This program is distributed in the hope that it will be useful, but WITHOUT - ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or - FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License - for more details. - - You should have received a copy of the GNU Library General Public License - along with this library; if not, write to the Free Software Foundation, - Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1335, USA. -} -unit lclvlc; - -{$mode objfpc}{$H+} - -interface - -uses - Classes, SysUtils, libvlc, vlc, controls; - -Type - - { TLCLVLCPlayer } - - TLCLVLCPlayer = Class(TVLCMediaPlayer) - private - FParentWindow: TWinControl; - procedure SetLCLParentWindow(AValue: TWinControl); - Protected - procedure Notification(AComponent: TComponent; Operation: TOperation); override; - Procedure SetParentWindow; override; - Procedure SetParentWindowSize(AWidth,AHeight : Cardinal); override; - Published - Property ParentWindow : TWinControl Read FParentWindow Write SetLCLParentWindow; - end; - -implementation - -{$ifdef Unix} -{$ifdef lclgtk2} -{$I vlcgtk2.inc} -{$endif} -{$ifdef lclqt} -{$I vlcqt.inc} -{$endif} -{$endif} - -{ TLCLVLCPlayer } - -procedure TLCLVLCPlayer.SetLCLParentWindow(AValue: TWinControl); -begin - if FParentWindow=AValue then Exit; - If Assigned(FParentWindow) then - FParentWindow.RemoveFreeNotification(Self); - FParentWindow:=AValue; - If Assigned(FParentWindow) then - FParentWindow.FreeNotification(Self); -end; - -procedure TLCLVLCPlayer.Notification(AComponent: TComponent; - Operation: TOperation); -begin - inherited Notification(AComponent, Operation); - if (Operation=opRemove) and (AComponent=FParentWindow) then - FParentWindow:=Nil; -end; - -procedure TLCLVLCPlayer.SetParentWindow; -begin - if Assigned(ParentWindow) then - begin - {$IFDEF UNIX} - libvlc_media_player_set_xwindow(Instance, GetXHandle(ParentWindow)); - {$else} - {$IFDEF MSWINDOWS} - libvlc_media_player_set_hwnd(Instance, Pointer(ParentWindow.Handle)); - {$else} - {$ERROR This platform is currently not supported by the VLC player component} - {$ENDIF} - {$endif} - end; -end; - -procedure TLCLVLCPlayer.SetParentWindowSize(AWidth, AHeight: Cardinal); -begin -end; - -end. diff --git a/components/vlc/reglazvlc.pas b/components/vlc/reglazvlc.pas deleted file mode 100644 index 5254062ee..000000000 --- a/components/vlc/reglazvlc.pas +++ /dev/null @@ -1,26 +0,0 @@ -unit reglazvlc; - -{$IF FPC_FULLVERSION<20701} -{$ERROR needs at least FPC 2.7.1} -{$ENDIF} - -{$mode objfpc}{$H+} - -interface - -uses - Classes, SysUtils, vlc, lclvlc, lresources; - -Procedure register; - -implementation - -Procedure register; -begin - RegisterComponents('Multimedia',[TLCLVLCPlayer,TVLCMediaListPlayer]); -end; - -initialization -{$i lazvlc.res} -end. - diff --git a/components/vlc/test/frmmain.lfm b/components/vlc/test/frmmain.lfm deleted file mode 100644 index 0b96d0339..000000000 --- a/components/vlc/test/frmmain.lfm +++ /dev/null @@ -1,82 +0,0 @@ -object Form1: TForm1 - Left = 479 - Height = 362 - Top = 224 - Width = 546 - Caption = 'Form1' - ClientHeight = 362 - ClientWidth = 546 - OnCreate = FormCreate - OnDestroy = FormDestroy - LCLVersion = '1.0.2.0' - object PVideo: TPanel - Left = 16 - Height = 285 - Top = 40 - Width = 518 - Anchors = [akTop, akLeft, akRight, akBottom] - TabOrder = 0 - end - object FEVideo: TFileNameEdit - Left = 56 - Height = 23 - Top = 7 - Width = 374 - DialogTitle = 'Select a video file' - FilterIndex = 0 - HideDirectories = False - ButtonWidth = 23 - NumGlyphs = 0 - Anchors = [akTop, akLeft, akRight] - MaxLength = 0 - TabOrder = 1 - end - object Label1: TLabel - Left = 16 - Height = 16 - Top = 7 - Width = 31 - Caption = 'Video' - ParentColor = False - end - object Bplay: TButton - Left = 462 - Height = 25 - Top = 8 - Width = 75 - Anchors = [akTop, akRight] - Caption = '&Play' - OnClick = BplayClick - TabOrder = 2 - end - object BStop: TButton - Left = 17 - Height = 25 - Top = 331 - Width = 75 - Anchors = [akLeft, akBottom] - Caption = '&Stop' - OnClick = BStopClick - TabOrder = 3 - end - object BPause: TButton - Left = 102 - Height = 25 - Top = 331 - Width = 75 - Anchors = [akLeft, akBottom] - Caption = '&Pause' - OnClick = BPauseClick - TabOrder = 4 - end - object BResume: TButton - Left = 190 - Height = 25 - Top = 331 - Width = 75 - Anchors = [akLeft, akBottom] - Caption = '&Resume' - OnClick = BResumeClick - TabOrder = 5 - end -end diff --git a/components/vlc/test/frmmain.pp b/components/vlc/test/frmmain.pp deleted file mode 100644 index 4ba3a7a62..000000000 --- a/components/vlc/test/frmmain.pp +++ /dev/null @@ -1,77 +0,0 @@ -unit frmmain; - -{$mode objfpc}{$H+} - -interface - -uses - Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls, - EditBtn, StdCtrls, lclvlc, vlc, libvlc; - -type - - { TForm1 } - - TForm1 = class(TForm) - Bplay: TButton; - BStop: TButton; - BPause: TButton; - BResume: TButton; - FEVideo: TFileNameEdit; - Label1: TLabel; - PVideo: TPanel; - procedure BPauseClick(Sender: TObject); - procedure BplayClick(Sender: TObject); - procedure BResumeClick(Sender: TObject); - procedure BStopClick(Sender: TObject); - procedure FormCreate(Sender: TObject); - procedure FormDestroy(Sender: TObject); - private - { private declarations } - FPlayer : TLCLVlcPlayer; - public - { public declarations } - end; - -var - Form1: TForm1; - -implementation - -{$R *.lfm} - -{ TForm1 } - -procedure TForm1.FormCreate(Sender: TObject); -begin - FPlayer:=TLCLVLCPlayer.Create(Self); - FPlayer.ParentWindow:=PVideo; -end; - -procedure TForm1.BplayClick(Sender: TObject); -begin - Fplayer.PlayFile(FEVideo.FileName); -end; - -procedure TForm1.BResumeClick(Sender: TObject); -begin - FPlayer.Resume; -end; - -procedure TForm1.BPauseClick(Sender: TObject); -begin - FPLayer.Pause; -end; - -procedure TForm1.BStopClick(Sender: TObject); -begin - FPlayer.Stop; -end; - -procedure TForm1.FormDestroy(Sender: TObject); -begin - FreeAndNil(FPlayer); -end; - -end. - diff --git a/components/vlc/test/testlcl.ico b/components/vlc/test/testlcl.ico deleted file mode 100644 index 0341321b5..000000000 Binary files a/components/vlc/test/testlcl.ico and /dev/null differ diff --git a/components/vlc/test/testlcl.lpi b/components/vlc/test/testlcl.lpi deleted file mode 100644 index b288e8c18..000000000 --- a/components/vlc/test/testlcl.lpi +++ /dev/null @@ -1,108 +0,0 @@ - - - - - - - - - - <ResourceType Value="res"/> - <UseXPManifest Value="True"/> - <Icon Value="0"/> - </General> - <i18n> - <EnableI18N LFM="False"/> - </i18n> - <VersionInfo> - <StringTable ProductVersion=""/> - </VersionInfo> - <BuildModes Count="1"> - <Item1 Name="Default" Default="True"/> - </BuildModes> - <PublishOptions> - <Version Value="2"/> - <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/> - <ExcludeFileFilter Value="*.(bak|ppu|o|so);*~;backup"/> - </PublishOptions> - <RunParams> - <local> - <FormatVersion Value="1"/> - <LaunchingApplication PathPlusParams="\usr\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/> - </local> - </RunParams> - <RequiredPackages Count="1"> - <Item1> - <PackageName Value="LCL"/> - </Item1> - </RequiredPackages> - <Units Count="5"> - <Unit0> - <Filename Value="testlcl.lpr"/> - <IsPartOfProject Value="True"/> - <UnitName Value="testlcl"/> - </Unit0> - <Unit1> - <Filename Value="frmmain.pp"/> - <IsPartOfProject Value="True"/> - <ComponentName Value="Form1"/> - <HasResources Value="True"/> - <ResourceBaseClass Value="Form"/> - <UnitName Value="frmmain"/> - </Unit1> - <Unit2> - <Filename Value="..\..\libvlc\libvlc.pp"/> - <IsPartOfProject Value="True"/> - <UnitName Value="libvlc"/> - </Unit2> - <Unit3> - <Filename Value="..\..\libvlc\vlc.pp"/> - <IsPartOfProject Value="True"/> - <UnitName Value="vlc"/> - </Unit3> - <Unit4> - <Filename Value="..\lclvlc.pp"/> - <IsPartOfProject Value="True"/> - <UnitName Value="lclvlc"/> - </Unit4> - </Units> - </ProjectOptions> - <CompilerOptions> - <Version Value="11"/> - <PathDelim Value="\"/> - <Target> - <Filename Value="testlcl"/> - </Target> - <SearchPaths> - <IncludeFiles Value="$(ProjOutDir)"/> - <OtherUnitFiles Value="..\..\libvlc;.."/> - <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/> - </SearchPaths> - <Linking> - <Options> - <Win32> - <GraphicApplication Value="True"/> - </Win32> - </Options> - </Linking> - <Other> - <CompilerMessages> - <MsgFileName Value=""/> - </CompilerMessages> - <CompilerPath Value="$(CompPath)"/> - </Other> - </CompilerOptions> - <Debugging> - <Exceptions Count="3"> - <Item1> - <Name Value="EAbort"/> - </Item1> - <Item2> - <Name Value="ECodetoolError"/> - </Item2> - <Item3> - <Name Value="EFOpenError"/> - </Item3> - </Exceptions> - </Debugging> -</CONFIG> \ No newline at end of file diff --git a/components/vlc/test/testlcl.lpr b/components/vlc/test/testlcl.lpr deleted file mode 100644 index d53cf7729..000000000 --- a/components/vlc/test/testlcl.lpr +++ /dev/null @@ -1,21 +0,0 @@ -program testlcl; - -{$mode objfpc}{$H+} - -uses - {$IFDEF UNIX} - cthreads, - {$ENDIF} - Interfaces, // this includes the LCL widgetset - Forms, frmmain, libvlc, vlc, lclvlc, math; - -{$R *.res} - -begin - setexceptionmask([exInvalidOp, exDenormalized, exZeroDivide, - exOverflow, exUnderflow, exPrecision]); - RequireDerivedFormResource := True; - Application.Initialize; - Application.CreateForm(TForm1, Form1); - Application.Run; -end. diff --git a/components/vlc/test/testlcl.res b/components/vlc/test/testlcl.res deleted file mode 100644 index 7c6cf3e4b..000000000 Binary files a/components/vlc/test/testlcl.res and /dev/null differ diff --git a/components/vlc/tlclvlcplayer.png b/components/vlc/tlclvlcplayer.png deleted file mode 100644 index 130b4d31e..000000000 Binary files a/components/vlc/tlclvlcplayer.png and /dev/null differ diff --git a/components/vlc/tvlcmedialistplayer.png b/components/vlc/tvlcmedialistplayer.png deleted file mode 100644 index 44bca4860..000000000 Binary files a/components/vlc/tvlcmedialistplayer.png and /dev/null differ diff --git a/components/vlc/vlcgtk2.inc b/components/vlc/vlcgtk2.inc deleted file mode 100644 index 5386f95bd..000000000 --- a/components/vlc/vlcgtk2.inc +++ /dev/null @@ -1,16 +0,0 @@ -{%MainUnit lclvlc.pp} - -uses gtk2proc, gtk2extra, ctypes, gtk2; - -Function GetXHandle(AWinControl : TWinControl) : culong; - -var - Widget: PGtkWidget; -begin - Result:=0; - if (AWinControl=nil) or (not AWinControl.HandleAllocated) then exit; - Widget:={%H-}PGtkWidget(AWinControl.Handle); - if Widget^.window = nil then exit; - Result := gdk_window_xwindow(Widget^.window); -end; - diff --git a/components/vlc/vlcqt.inc b/components/vlc/vlcqt.inc deleted file mode 100644 index c0dd3b250..000000000 --- a/components/vlc/vlcqt.inc +++ /dev/null @@ -1,14 +0,0 @@ -{%MainUnit lclvlc.pp} - -uses qt45; - -Function GetXHandle(AWinControl : TWinControl) : culong; - -var - Widget: PGtkWidget; -begin - Result:=0; - if (AWinControl=nil) or (not AWinControl.HandleAllocated) then exit; - Result:=QWidget_winID(TQtWidget(AWinControl.Handle).Widget); -end; -