Przeglądaj źródła

demo: added edit lcl demo

mattias 5 miesięcy temu
rodzic
commit
7ba8920244

+ 1 - 0
demo/Edit/.gitignore

@@ -1 +1,2 @@
 editdemo
+editdemolcl

BIN
demo/Edit/editdemolcl.ico


+ 79 - 0
demo/Edit/editdemolcl.lpi

@@ -0,0 +1,79 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<CONFIG>
+  <ProjectOptions>
+    <Version Value="12"/>
+    <General>
+      <Flags>
+        <MainUnitHasCreateFormStatements Value="False"/>
+        <MainUnitHasTitleStatement Value="False"/>
+        <MainUnitHasScaledStatement Value="False"/>
+      </Flags>
+      <SessionStorage Value="InProjectDir"/>
+      <Title Value="EditDemoLCL"/>
+      <UseAppBundle Value="False"/>
+      <ResourceType Value="res"/>
+      <Icon Value="0"/>
+    </General>
+    <CustomData Count="3">
+      <Item0 Name="OpenAPIBase"/>
+      <Item1 Name="OpenAPIConfig"/>
+      <Item2 Name="OpenAPIFile"/>
+    </CustomData>
+    <BuildModes>
+      <Item Name="Default" Default="True"/>
+    </BuildModes>
+    <PublishOptions>
+      <Version Value="2"/>
+      <UseFileFilters Value="True"/>
+    </PublishOptions>
+    <RunParams>
+      <FormatVersion Value="2"/>
+    </RunParams>
+    <RequiredPackages>
+      <Item>
+        <PackageName Value="FresnelLCL"/>
+        <DefaultFilename Value="../../src/lcl/fresnellcl.lpk" Prefer="True"/>
+      </Item>
+    </RequiredPackages>
+    <Units>
+      <Unit>
+        <Filename Value="editdemolcl.lpr"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="EditDemoLCL"/>
+      </Unit>
+      <Unit>
+        <Filename Value="mainunit.pp"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="MainUnit"/>
+      </Unit>
+    </Units>
+  </ProjectOptions>
+  <CompilerOptions>
+    <Version Value="11"/>
+    <Target>
+      <Filename Value="editdemolcl"/>
+    </Target>
+    <SearchPaths>
+      <IncludeFiles Value="$(ProjOutDir);/home/michael/source/fpgui/src/corelib/"/>
+      <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
+    </SearchPaths>
+    <Linking>
+      <Debugging>
+        <DebugInfoType Value="dsDwarf3"/>
+      </Debugging>
+    </Linking>
+  </CompilerOptions>
+  <Debugging>
+    <Exceptions>
+      <Item>
+        <Name Value="EAbort"/>
+      </Item>
+      <Item>
+        <Name Value="ECodetoolError"/>
+      </Item>
+      <Item>
+        <Name Value="EFOpenError"/>
+      </Item>
+    </Exceptions>
+  </Debugging>
+</CONFIG>

+ 20 - 0
demo/Edit/editdemolcl.lpr

@@ -0,0 +1,20 @@
+program EditDemoLCL;
+
+uses
+  {$IFDEF Unix}
+  cthreads,
+  {$ENDIF}
+  Interfaces, // this includes the LCL widgetset
+  Fresnel, // this includes the Fresnel-LCL widgetset
+  Forms, MainUnit;
+
+{$R *.res}
+
+begin
+  RequireDerivedFormResource:=True;
+  Application.Scaled:=True;
+  Application.Initialize;
+  Application.CreateForm(TMainForm,MainForm);
+  Application.Run;
+end.
+

BIN
demo/Edit/editdemolcl.res


+ 2 - 0
demo/Edit/mainunit.pp

@@ -94,6 +94,8 @@ begin
   Edit1.Style:='font-size:15px; family:Arial; background-color: yellow;'#10
      +'border-color: black;'#10; // 'height:30px;width: 100px;';
   Edit1.Focus;
+
+  Visible:=true;
 end;
 
 end.

+ 3 - 0
demo/ScrollBox/ScrollBoxDemo1.lpi

@@ -24,6 +24,9 @@
       <FormatVersion Value="2"/>
     </RunParams>
     <RequiredPackages>
+      <Item>
+        <PackageName Value="FresnelDemoComps"/>
+      </Item>
       <Item>
         <PackageName Value="Fresnel"/>
         <DefaultFilename Value="../../src/fresnel.lpk" Prefer="True"/>

+ 2 - 0
src/base/fresnel.forms.pas

@@ -508,6 +508,8 @@ begin
   //FLLog(etDebug,['TFresnelCustomForm.OnQueuedLayout ',Name,':',ClassName,' LayoutQueued=',BoolToStr(LayoutQueued,true)]);
   if not LayoutQueued then exit;
   try
+    if WSForm=nil then
+      exit; // creating WSForm failed
     ApplyCSS;
     //Layouter.WriteLayoutTree;
     //FLLog(etDebug,['TFresnelCustomForm.OnQueuedLayout ',Name,':',ClassName,' After Layouter.Apply, Invalidate...']);