update package

Author: GuvaCode

package/lang/ray4laz_misc.pot

@@ -65,3 +65,7 @@ msgstr ""
 msgid "ray4laz tools .."
 msgstr ""
 
+#: ray4laz_misc.rsssl
+msgid "Copy OpenSSL to Lazarus directory"
+msgstr ""
+

package/ray4laz_misc.pas

@@ -43,6 +43,7 @@ procedure Register;
    rsCopyTrue       = 'Copy successful';
    rsCopyFalse      = 'Copy error';
    rsDownloadFFmpeg = 'Download the necessary ffmpeg libraries';
+   rsSSL            = 'Copy OpenSSL to Lazarus directory';
 
 implementation
 uses HttpDownloader;
@@ -67,11 +68,14 @@ function RayUsed: boolean;
 
 procedure RayFunction(Sender: TObject);
 var  Editor: TSourceEditorInterface;
-
+     Pos: TPoint;
   procedure insertXY(Text:String);
    begin
     Editor.CutToClipboard;
     Editor.ReplaceText(editor.CursorTextXY,editor.CursorTextXY,Text);
+    Pos := editor.CursorTextXY;
+    Pos.X := Pos.x-1;
+    Editor.CursorTextXY := Pos;
    end;
 
  begin
@@ -146,6 +150,14 @@ function GetRay4lazDir: string;
   if Pkg <> nil then result := ExtractFilePath(ExcludeTrailingPathDelimiter(Pkg.DirectoryExpanded));
 end;
 
+
+function GetLazdir: string;
+begin
+Result:='$(LazarusDir)';
+if not IDEMacros.SubstituteMacros(Result) then
+  raise Exception.Create('unable to retrieve target file of project');
+end;
+
 procedure CopyByName(dllFile: String);
 var Src, Dst: string;
 begin
@@ -184,6 +196,24 @@ procedure CopyMediaToProject(Sender: Tobject);
  CopyByName(dllFile);
 end;
 
+procedure CopySSl(dllFile: string);
+var Src, Dst : string;
+begin
+ Src := GetRay4lazDir  + 'package' + PathDelim + 'openssl' + PathDelim + GetOslibFolder + PathDelim + dllFile;
+ Dst := GetLazdir + dllFile;
+
+ if CopyFile(Src, Dst) then
+   IDEMessagesWindow.AddCustomMessage(mluHint, rsCopyTrue, dllFile, 0,0) else
+   IDEMessagesWindow.AddCustomMessage(mluError, rsCopyFalse);
+end;
+
+
+procedure CopySSlAll(Sender: TObject);
+begin
+  CopySSl('ssleay32.dll');
+  CopySSl('libeay32.dll');
+end;
+
 procedure CompileRay4laz(Sender: TObject);
 var Pkg: TIDEPackage;
 begin
@@ -283,6 +313,7 @@ procedure Register;
  RegisterIDEMenuCommand(SectionTool, 'Sep2','-',nil,nil);
  RegisterIDEMenuCommand(SectionTool, 'CopyDll4', rsCopyDll4, nil, @CopyMediaToProject,nil, 'pkg_lrs');
  RegisterIDEMenuCommand(SectionTool, 'DownloadLibs', rsDownloadFFmpeg , nil, @DownloadFFmpeg,nil, 'menu_exporthtml');
+ RegisterIDEMenuCommand(SectionTool, 'DownloadLibs1', rsSSL , nil, @CopySSlAll,nil, 'pkg_lrs');
 
  RegisterIDEMenuCommand(SectionToolMenu, 'Sep3','-',nil,nil);
  RegisterIDEMenuCommand(SectionToolMenu, 'ShowCheatsheet', rsHelpCheat , nil, @RayFunction, nil, 'ce_interface');
@@ -321,7 +352,6 @@ procedure TEventClass.DoSomething(Sender: TObject);
   end else SectionTool.Visible := false;
 end;
 
-
 initialization
  EventCode := TEventClass.Create;
 finalization