添加“TForm”的“CreateParams”虚函数实现。

ying32 · Dec 29, 2020 · d0de3b6 · d0de3b6
1 parent 9c1956d
commit d0de3b6
Show file tree

Hide file tree

Showing 5 changed files with 607 additions and 466 deletions.
diff --git a/src/LazarusDef.inc b/src/LazarusDef.inc
@@ -17,7 +17,7 @@ end;
 function DLibVersion: Cardinal; extdecl;
 begin
   // 共8位，2位2位的
-  Result := $02000800;
+  Result := $02000900;
 end;
 
 // 一些初始
@@ -154,6 +154,14 @@ begin
   handleExceptionEnd
 end;
 
+//CLASSMETHOD:
+procedure Form_SetGoPtr(AObj: TGoForm; APtr: Pointer); extdecl;
+begin
+  handleExceptionBegin
+  AObj.GoPtr := APtr;
+  handleExceptionEnd
+end;
+
 // mouse
 function Mouse_Instance: TMouse; extdecl;
 begin
@@ -636,6 +644,11 @@ begin
   GExceptionHandlerCallbackPtr := APtr;
 end;
 
+procedure SetRequestCallCreateParamsCallback(APtr: Pointer); extdecl;
+begin
+  GRequestCallCreateParamsPtr := APtr;
+end;
+
 // 从string数组中获取成员
 function DGetStringArrOf(P: Pointer; AIndex: NativeInt): PChar; extdecl;
 begin
@@ -1195,6 +1208,7 @@ exports
   // TForm
   Form_Create2,
   Form_SetOnWndProc,
+  Form_SetGoPtr,
 
   // TMouse
   Mouse_Instance,
@@ -1238,6 +1252,7 @@ exports
   SetMessageCallback,
   SetThreadSyncCallback,
   SetExceptionHandlerCallback,
+  SetRequestCallCreateParamsCallback,
 
   //DSetDefaultLang,
   //DGetDefaultLang,

diff --git a/src/liblcl.lpi b/src/liblcl.lpi
@@ -24,9 +24,12 @@
     <VersionInfo>
       <UseVersionInfo Value="True"/>
       <MajorVersionNr Value="2"/>
-      <RevisionNr Value="8"/>
-      <StringTable Comments="LCL for Windows" CompanyName="ying32" FileDescription="LCL for Windows" InternalName="liblcl" LegalCopyright="Copyright ying32" OriginalFilename="liblcl.dll" ProductName="liblcl" ProductVersion="2.0.8.0"/>
+      <RevisionNr Value="9"/>
+      <StringTable Comments="LCL for Windows" CompanyName="ying32" FileDescription="LCL for Windows" InternalName="liblcl" LegalCopyright="Copyright ying32" OriginalFilename="liblcl.dll" ProductName="liblcl" ProductVersion="2.0.9.0"/>
     </VersionInfo>
+    <Res2go>
+      <GoRoot Value="F:\Program Files (x86)\Golang\go"/>
+    </Res2go>
     <MacroValues Count="1">
       <Macro3 Name="LCLWidgetType" Value="win32"/>
     </MacroValues>