pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

RxFPC:fix RxSwitch

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6304 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2018-04-13 12:02:48 +00:00
parent 93c52801d7
commit e2a004c0e1
23 changed files with 1404 additions and 1462 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
components/rx/trunk/demos/RxContols/RxSwitch/project1.ico Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 134 KiB

79
components/rx/trunk/demos/RxContols/RxSwitch/project1.lpi Normal file
View File

@@ -0,0 +1,79 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="11"/>
<General>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="project1"/>
<Scaled Value="True"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<XPManifest>
<DpiAware Value="True"/>
</XPManifest>
<Icon Value="0"/>
</General>
<BuildModes Count="1">
<Item1 Name="Default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
</PublishOptions>
<RunParams>
<FormatVersion Value="2"/>
<Modes Count="0"/>
</RunParams>
<RequiredPackages Count="2">
<Item1>
<PackageName Value="rxnew"/>
</Item1>
<Item2>
<PackageName Value="LCL"/>
</Item2>
</RequiredPackages>
<Units Count="2">
<Unit0>
<Filename Value="project1.lpr"/>
<IsPartOfProject Value="True"/>
</Unit0>
<Unit1>
<Filename Value="unit1.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/>
</Unit1>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<Target>
<Filename Value="project1"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
</CompilerOptions>
<Debugging>
<Exceptions Count="3">
<Item1>
<Name Value="EAbort"/>
</Item1>
<Item2>
<Name Value="ECodetoolError"/>
</Item2>
<Item3>
<Name Value="EFOpenError"/>
</Item3>
</Exceptions>
</Debugging>
</CONFIG>

22
components/rx/trunk/demos/RxContols/RxSwitch/project1.lpr Normal file
View File

@@ -0,0 +1,22 @@
program project1;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms, Unit1, rxnew
{ you can add units after this };
{$R *.res}
begin
RequireDerivedFormResource:=True;
Application.Scaled:=True;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

193
components/rx/trunk/demos/RxContols/RxSwitch/project1.lps Normal file
View File

@@ -0,0 +1,193 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectSession>
<Version Value="11"/>
<BuildModes Active="Default"/>
<Units Count="9">
<Unit0>
<Filename Value="project1.lpr"/>
<IsPartOfProject Value="True"/>
<EditorIndex Value="-1"/>
<WindowIndex Value="-1"/>
<TopLine Value="-1"/>
<CursorPos X="-1" Y="-1"/>
<UsageCount Value="20"/>
</Unit0>
<Unit1>
<Filename Value="unit1.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/>
<CursorPos X="23" Y="16"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
<Unit2>
<Filename Value="../../../rxcontrols/rxswitch.pas"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="82"/>
<CursorPos X="16" Y="118"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit2>
<Unit3>
<Filename Value="../../../rxcontrols/rxswitch.inc"/>
<EditorIndex Value="-1"/>
<UsageCount Value="10"/>
</Unit3>
<Unit4>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<EditorIndex Value="2"/>
<TopLine Value="7723"/>
<CursorPos X="23" Y="7755"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit4>
<Unit5>
<Filename Value="../../../rxcontrols/rxlclutils.pas"/>
<EditorIndex Value="3"/>
<TopLine Value="675"/>
<CursorPos X="29" Y="683"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit5>
<Unit6>
<Filename Value="/home/install/source/fpcsrc/rtl/objpas/classes/streams.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="957"/>
<CursorPos Y="976"/>
<UsageCount Value="10"/>
</Unit6>
<Unit7>
<Filename Value="/home/install/source/fpcsrc/rtl/objpas/classes/classesh.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="1025"/>
<CursorPos X="14" Y="1044"/>
<UsageCount Value="10"/>
</Unit7>
<Unit8>
<Filename Value="/home/install/source/fpcsrc/rtl/inc/resh.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="45"/>
<CursorPos X="10" Y="64"/>
<UsageCount Value="10"/>
</Unit8>
</Units>
<JumpHistory Count="27" HistoryIndex="26">
<Position1>
<Filename Value="unit1.pas"/>
</Position1>
<Position2>
<Filename Value="unit1.pas"/>
<Caret Line="16" Column="23"/>
</Position2>
<Position3>
<Filename Value="../../../rxcontrols/rxswitch.pas"/>
<Caret Line="155" Column="12" TopLine="140"/>
</Position3>
<Position4>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="308" TopLine="290"/>
</Position4>
<Position5>
<Filename Value="../../../rxcontrols/rxswitch.pas"/>
<Caret Line="177" Column="21" TopLine="164"/>
</Position5>
<Position6>
<Filename Value="../../../rxcontrols/rxswitch.pas"/>
<Caret Line="94" Column="17" TopLine="76"/>
</Position6>
<Position7>
<Filename Value="../../../rxcontrols/rxswitch.pas"/>
<Caret Line="168" Column="3" TopLine="163"/>
</Position7>
<Position8>
<Filename Value="../../../rxcontrols/rxswitch.pas"/>
<Caret Line="71" Column="15" TopLine="54"/>
</Position8>
<Position9>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="7737" Column="47" TopLine="7725"/>
</Position9>
<Position10>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="1217" Column="12" TopLine="1198"/>
</Position10>
<Position11>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="3651" Column="35" TopLine="3619"/>
</Position11>
<Position12>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="7739" Column="12" TopLine="7706"/>
</Position12>
<Position13>
<Filename Value="../../../rxcontrols/rxswitch.pas"/>
<Caret Line="311" Column="20" TopLine="294"/>
</Position13>
<Position14>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="7755" Column="23" TopLine="7723"/>
</Position14>
<Position15>
<Filename Value="../../../rxcontrols/rxlclutils.pas"/>
<Caret Line="85" Column="10" TopLine="66"/>
</Position15>
<Position16>
<Filename Value="../../../rxcontrols/rxswitch.pas"/>
<Caret Line="320" Column="11" TopLine="294"/>
</Position16>
<Position17>
<Filename Value="../../../rxdb/rxdbgrid.pas"/>
<Caret Line="7755" Column="23" TopLine="7723"/>
</Position17>
<Position18>
<Filename Value="../../../rxcontrols/rxlclutils.pas"/>
<Caret Line="85" Column="10" TopLine="66"/>
</Position18>
<Position19>
<Filename Value="../../../rxcontrols/rxswitch.pas"/>
<Caret Line="318" TopLine="294"/>
</Position19>
<Position20>
<Filename Value="../../../rxcontrols/rxswitch.pas"/>
<Caret Line="319" TopLine="294"/>
</Position20>
<Position21>
<Filename Value="../../../rxcontrols/rxswitch.pas"/>
<Caret Line="318" TopLine="294"/>
</Position21>
<Position22>
<Filename Value="../../../rxcontrols/rxswitch.pas"/>
<Caret Line="317" Column="41" TopLine="294"/>
</Position22>
<Position23>
<Filename Value="../../../rxcontrols/rxlclutils.pas"/>
<Caret Line="683" Column="29" TopLine="675"/>
</Position23>
<Position24>
<Filename Value="../../../rxcontrols/rxswitch.pas"/>
<Caret Line="317" Column="41" TopLine="294"/>
</Position24>
<Position25>
<Filename Value="../../../rxcontrols/rxswitch.pas"/>
<Caret Line="319" Column="7" TopLine="294"/>
</Position25>
<Position26>
<Filename Value="../../../rxcontrols/rxswitch.pas"/>
<Caret Line="320" Column="12" TopLine="301"/>
</Position26>
<Position27>
<Filename Value="../../../rxcontrols/rxswitch.pas"/>
<Caret Line="194" TopLine="175"/>
</Position27>
</JumpHistory>
<RunParams>
<FormatVersion Value="2"/>
<Modes Count="0" ActiveMode=""/>
</RunParams>
</ProjectSession>
</CONFIG>

BIN
components/rx/trunk/demos/RxContols/RxSwitch/project1.res Normal file
View File

Binary file not shown.

19
components/rx/trunk/demos/RxContols/RxSwitch/unit1.lfm Normal file
View File

@@ -0,0 +1,19 @@
object Form1: TForm1
Left = 385
Height = 322
Top = 265
Width = 486
Caption = 'Form1'
ClientHeight = 322
ClientWidth = 486
Position = poScreenCenter
LCLVersion = '1.9.0.0'
object RxSwitch1: TRxSwitch
Left = 192
Height = 92
Top = 72
Width = 58
Caption = 'RxSwitch1'
TabOrder = 0
end
end

30
components/rx/trunk/demos/RxContols/RxSwitch/unit1.pas Normal file
View File

@@ -0,0 +1,30 @@
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, rxswitch;
type
{ TForm1 }
TForm1 = class(TForm)
RxSwitch1: TRxSwitch;
private
public
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
end.