浏览代码

demo: removed duplicate

mattias 1 年之前
父节点
当前提交
dea278cf76

+ 0 - 3
demo/lcl/DesignerForm/.gitignore

@@ -1,3 +0,0 @@
-demodesignerform1
-lib
-demodesignerform1.app

+ 0 - 30
demo/lcl/DesignerForm/FloatLayoutUnit1.lfm

@@ -1,30 +0,0 @@
-object FresnelForm2: TFresnelForm2
-  Caption = 'FresnelForm2'
-  FormHeight = 255
-  FormLeft = 450
-  FormTop = 300
-  FormWidth = 350
-  Stylesheet.Strings = (
-    'div {'
-    '  padding: 2px; '
-    '  border: 3px; '
-    '  margin: 6px;'
-    '}'
-  )
-  object Body1: TBody
-    Style = 'border: 2px;'#10'border-color: blue;'
-    object Div1: TDiv
-      Style = 'background-color: blue;'#10'border-color: black;'#10'height:50px;'
-    end
-    object Span1: TSpan
-      Style = 'width: 50px;'#10'height:70px;'#10'background-color: red;'#10'border: 3px;'#10'border-color: black;'#10'margin: 3px;'
-    end
-    object Label1: TLabel
-      Style = 'background-color: green;'#10'color: black;'
-      Caption = 'Label1'
-    end
-    object Div2: TDiv
-      Style = 'border-color: black;'#10'position: absolute;'#10'left: 30px;'#10'top: 100px;'#10'width: 50px;'#10'height: 60px;'
-    end
-  end
-end

+ 0 - 34
demo/lcl/DesignerForm/FloatLayoutUnit1.pas

@@ -1,34 +0,0 @@
-unit FloatLayoutUnit1;
-
-{$mode ObjFPC}{$H+}
-
-interface
-
-uses
-  Classes, SysUtils, Fresnel.Forms, Fresnel.DOM, Fresnel.Controls;
-
-type
-
-  { TFresnelForm2 }
-
-  TFresnelForm2 = class(TFresnelForm)
-    Body1: TBody;
-    Div1: TDiv;
-    Div2: TDiv;
-    Label1: TLabel;
-    Span1: TSpan;
-  private
-
-  public
-
-  end;
-
-var
-  FresnelForm2: TFresnelForm2;
-
-implementation
-
-{$R *.lfm}
-
-end.
-

+ 0 - 20
demo/lcl/DesignerForm/MainUnit.lfm

@@ -1,20 +0,0 @@
-object Form1: TForm1
-  Left = 248
-  Height = 297
-  Top = 250
-  Width = 390
-  Caption = 'Form1'
-  ClientHeight = 297
-  ClientWidth = 390
-  LCLVersion = '2.3.0.0'
-  object ShowFloatLayoutButton: TButton
-    Left = 69
-    Height = 31
-    Top = 45
-    Width = 115
-    AutoSize = True
-    Caption = 'Show Float Layout'
-    OnClick = ShowFloatLayoutButtonClick
-    TabOrder = 0
-  end
-end

+ 0 - 42
demo/lcl/DesignerForm/MainUnit.pas

@@ -1,42 +0,0 @@
-unit MainUnit;
-
-{$mode objfpc}{$H+}
-
-interface
-
-uses
-  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  FloatLayoutUnit1;
-
-type
-
-  { TForm1 }
-
-  TForm1 = class(TForm)
-    ShowFloatLayoutButton: TButton;
-    procedure ShowFloatLayoutButtonClick(Sender: TObject);
-  private
-
-  public
-
-  end;
-
-var
-  Form1: TForm1;
-
-implementation
-
-{$R *.lfm}
-
-{ TForm1 }
-
-procedure TForm1.ShowFloatLayoutButtonClick(Sender: TObject);
-var
-  Frm: TFresnelForm2;
-begin
-  Frm:=TFresnelForm2.Create(nil);
-  Frm.Show;
-end;
-
-end.
-

二进制
demo/lcl/DesignerForm/demodesignerform1.ico


+ 0 - 81
demo/lcl/DesignerForm/demodesignerform1.lpi

@@ -1,81 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<CONFIG>
-  <ProjectOptions>
-    <Version Value="12"/>
-    <General>
-      <SessionStorage Value="InProjectDir"/>
-      <Title Value="demodesignerform1"/>
-      <Scaled Value="True"/>
-      <ResourceType Value="res"/>
-      <UseXPManifest Value="True"/>
-      <XPManifest>
-        <DpiAware Value="True"/>
-      </XPManifest>
-      <Icon Value="0"/>
-    </General>
-    <BuildModes>
-      <Item Name="Default" Default="True"/>
-      <SharedMatrixOptions Count="1">
-        <Item1 ID="277499596175" Value="-gw2"/>
-      </SharedMatrixOptions>
-    </BuildModes>
-    <PublishOptions>
-      <Version Value="2"/>
-      <UseFileFilters Value="True"/>
-    </PublishOptions>
-    <RunParams>
-      <FormatVersion Value="2"/>
-    </RunParams>
-    <RequiredPackages>
-      <Item>
-        <PackageName Value="FresnelLCL"/>
-      </Item>
-    </RequiredPackages>
-    <Units>
-      <Unit>
-        <Filename Value="demodesignerform1.lpr"/>
-        <IsPartOfProject Value="True"/>
-        <UnitName Value="DemoDesignerForm1"/>
-      </Unit>
-      <Unit>
-        <Filename Value="MainUnit.pas"/>
-        <IsPartOfProject Value="True"/>
-        <ComponentName Value="Form1"/>
-        <ResourceBaseClass Value="Form"/>
-      </Unit>
-    </Units>
-  </ProjectOptions>
-  <CompilerOptions>
-    <Version Value="11"/>
-    <Target>
-      <Filename Value="demodesignerform1"/>
-    </Target>
-    <SearchPaths>
-      <IncludeFiles Value="$(ProjOutDir)"/>
-      <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
-    </SearchPaths>
-    <Linking>
-      <Debugging>
-        <DebugInfoType Value="dsDwarf3"/>
-      </Debugging>
-      <Options>
-        <Win32>
-          <GraphicApplication Value="True"/>
-        </Win32>
-      </Options>
-    </Linking>
-  </CompilerOptions>
-  <Debugging>
-    <Exceptions>
-      <Item>
-        <Name Value="EAbort"/>
-      </Item>
-      <Item>
-        <Name Value="ECodetoolError"/>
-      </Item>
-      <Item>
-        <Name Value="EFOpenError"/>
-      </Item>
-    </Exceptions>
-  </Debugging>
-</CONFIG>

+ 0 - 25
demo/lcl/DesignerForm/demodesignerform1.lpr

@@ -1,25 +0,0 @@
-program DemoDesignerForm1;
-
-{$mode objfpc}{$H+}
-
-uses
-  {$IFDEF UNIX}
-  cthreads,
-  {$ENDIF}
-  {$IFDEF HASAMIGA}
-  athreads,
-  {$ENDIF}
-  Interfaces, // this includes the LCL widgetset
-  Fresnel, // this includes the Fresnel LCL backend
-  Forms, MainUnit;
-
-{$R *.res}
-
-begin
-  RequireDerivedFormResource:=True;
-  Application.Scaled:=True;
-  Application.Initialize;
-  Application.CreateForm(TForm1, Form1);
-  Application.Run;
-end.
-

二进制
demo/lcl/DesignerForm/demodesignerform1.res