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

cleanup

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2315 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2012-02-26 21:06:20 +00:00
parent 50fbeba243
commit ab46c9f782
9 changed files with 285 additions and 238 deletions
Download Patch File Download Diff File Expand all files Collapse all files

53
components/rx/Demos/AutoSort/AutoSortDemo.lpi
View File

@ -1,19 +1,21 @@
<?xml version="1.0"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="7"/> <Version Value="9"/>
<General> <General>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<TargetFileExt Value=""/>
<Icon Value="0"/>
<UseXPManifest Value="True"/> <UseXPManifest Value="True"/>
<ActiveEditorIndexAtStart Value="0"/> <Icon Value="0"/>
<ActiveWindowIndexAtStart Value="0"/>
</General> </General>
<VersionInfo> <VersionInfo>
<ProjectVersion Value=""/>
<Language Value=""/> <Language Value=""/>
<CharSet Value=""/> <CharSet Value=""/>
<StringTable ProductVersion=""/>
</VersionInfo> </VersionInfo>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
<IgnoreBinaries Value="False"/> <IgnoreBinaries Value="False"/>
@ -44,58 +46,66 @@
<Filename Value="AutoSortDemo.lpr"/> <Filename Value="AutoSortDemo.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="AutoSortDemo"/> <UnitName Value="AutoSortDemo"/>
<CursorPos X="1" Y="20"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<CursorPos X="1" Y="20"/>
<UsageCount Value="20"/> <UsageCount Value="20"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="asdmainunit.pas"/> <Filename Value="asdmainunit.pas"/>
<ComponentName Value="Form1"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="asdMainUnit"/> <UnitName Value="asdMainUnit"/>
<CursorPos X="20" Y="39"/> <IsVisibleTab Value="True"/>
<TopLine Value="22"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<WindowIndex Value="0"/>
<TopLine Value="22"/>
<CursorPos X="20" Y="39"/>
<UsageCount Value="20"/> <UsageCount Value="20"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1> </Unit1>
<Unit2> <Unit2>
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/rxsortmemds.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxsortmemds.pas"/>
<UnitName Value="rxsortmemds"/> <UnitName Value="rxsortmemds"/>
<CursorPos X="69" Y="52"/>
<TopLine Value="24"/> <TopLine Value="24"/>
<CursorPos X="69" Y="52"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit2> </Unit2>
<Unit3> <Unit3>
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/>
<UnitName Value="rxdbgrid"/> <UnitName Value="rxdbgrid"/>
<CursorPos X="1" Y="1410"/>
<TopLine Value="1393"/> <TopLine Value="1393"/>
<CursorPos X="1" Y="1410"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit3> </Unit3>
<Unit4> <Unit4>
<Filename Value="../../../../../../../../usr/local/share/lazarus/lcl/dbgrids.pas"/> <Filename Value="/usr/local/share/lazarus/lcl/dbgrids.pas"/>
<UnitName Value="DBGrids"/> <UnitName Value="DBGrids"/>
<CursorPos X="1" Y="688"/>
<TopLine Value="671"/> <TopLine Value="671"/>
<CursorPos X="1" Y="688"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit4> </Unit4>
<Unit5> <Unit5>
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/rxmemds.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rxmemds.pas"/>
<UnitName Value="rxmemds"/> <UnitName Value="rxmemds"/>
<CursorPos X="1" Y="1346"/>
<TopLine Value="1329"/> <TopLine Value="1329"/>
<CursorPos X="1" Y="1346"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit5> </Unit5>
</Units> </Units>
<JumpHistory Count="0" HistoryIndex="-1"/> <JumpHistory Count="0" HistoryIndex="-1"/>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="8"/> <Version Value="11"/>
<SearchPaths> <SearchPaths>
<IncludeFiles Value="$(ProjOutDir)/"/> <IncludeFiles Value="$(ProjOutDir)"/>
</SearchPaths> </SearchPaths>
<Parsing>
<SyntaxOptions>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<Linking> <Linking>
<Options> <Options>
<Win32> <Win32>
@ -110,7 +120,10 @@
<Debugging> <Debugging>
<BreakPoints Count="1"> <BreakPoints Count="1">
<Item1> <Item1>
<Source Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/> <Kind Value="bpkSource"/>
<WatchScope Value="wpsGlobal"/>
<WatchKind Value="wpkWrite"/>
<Source Value="/usr/local/share/lazarus/components/rxnew/rxdbgrid.pas"/>
<Line Value="741"/> <Line Value="741"/>
</Item1> </Item1>
</BreakPoints> </BreakPoints>

20
components/rx/Demos/PhoneBookDemo/PhoneBookDemo.lpi
View File

@ -50,11 +50,11 @@
</Item1> </Item1>
<Item2> <Item2>
<PackageName Value="DBFLaz"/> <PackageName Value="DBFLaz"/>
<MinVersion Minor="1" Valid="True" Release="1"/> <MinVersion Minor="1" Release="1" Valid="True"/>
</Item2> </Item2>
<Item3> <Item3>
<PackageName Value="rxnew"/> <PackageName Value="rxnew"/>
<MinVersion Build="93" Major="1" Minor="1" Valid="True" Release="4"/> <MinVersion Major="1" Minor="1" Release="4" Build="93" Valid="True"/>
</Item3> </Item3>
<Item4> <Item4>
<PackageName Value="LCL"/> <PackageName Value="LCL"/>
@ -65,10 +65,13 @@
<Filename Value="PhoneBookDemo.lpr"/> <Filename Value="PhoneBookDemo.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="PhoneBookDemo"/> <UnitName Value="PhoneBookDemo"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<CursorPos X="3" Y="12"/> <CursorPos X="3" Y="12"/>
<UsageCount Value="27"/> <UsageCount Value="27"/>
<Loaded Value="True"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="pbmainunit.pas"/> <Filename Value="pbmainunit.pas"/>
@ -76,10 +79,9 @@
<ComponentName Value="pbMainForm"/> <ComponentName Value="pbMainForm"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="pbMainUnit"/> <UnitName Value="pbMainUnit"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="34"/> <TopLine Value="59"/>
<CursorPos X="52" Y="23"/> <CursorPos X="52" Y="23"/>
<UsageCount Value="27"/> <UsageCount Value="27"/>
<Loaded Value="True"/> <Loaded Value="True"/>
@ -108,9 +110,9 @@
<ComponentName Value="pbEditDataForm"/> <ComponentName Value="pbEditDataForm"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="pbEditDataUnit"/> <UnitName Value="pbEditDataUnit"/>
<EditorIndex Value="1"/> <EditorIndex Value="2"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="3"/> <TopLine Value="15"/>
<CursorPos X="3" Y="15"/> <CursorPos X="3" Y="15"/>
<UsageCount Value="25"/> <UsageCount Value="25"/>
<Loaded Value="True"/> <Loaded Value="True"/>
@ -276,7 +278,7 @@
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="10"/> <Version Value="11"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Target> <Target>
<Filename Value="PhoneBookDemo"/> <Filename Value="PhoneBookDemo"/>
@ -285,10 +287,6 @@
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/> <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths> </SearchPaths>
<Linking> <Linking>
<Debugging>
<GenerateDebugInfo Value="True"/>
<DebugInfoType Value="dsAuto"/>
</Debugging>
<Options> <Options>
<Win32> <Win32>
<GraphicApplication Value="True"/> <GraphicApplication Value="True"/>

58
components/rx/Demos/PhoneBookDemo/languages/PhoneBookDemo.po
View File

@ -1,127 +1,127 @@
msgid "" msgid ""
msgstr "Content-Type: text/plain; charset=UTF-8" msgstr "Content-Type: text/plain; charset=UTF-8"
#: TPBEDITDATAFORM.CAPTION #: tpbeditdataform.caption
msgid "Phone book data" msgid "Phone book data"
msgstr "" msgstr ""
#: TPBEDITDATAFORM.LABEL1.CAPTION #: tpbeditdataform.label1.caption
msgid "Patronymic" msgid "Patronymic"
msgstr "" msgstr ""
#: TPBEDITDATAFORM.LABEL2.CAPTION #: tpbeditdataform.label2.caption
msgid "Name" msgid "Name"
msgstr "" msgstr ""
#: TPBEDITDATAFORM.LABEL3.CAPTION #: tpbeditdataform.label3.caption
msgid "Surname" msgid "Surname"
msgstr "" msgstr ""
#: TPBEDITDATAFORM.LABEL4.CAPTION #: tpbeditdataform.label4.caption
msgid "Phone" msgid "Phone"
msgstr "" msgstr ""
#: TPBEDITDATAFORM.LABEL5.CAPTION #: tpbeditdataform.label5.caption
msgctxt "TPBEDITDATAFORM.LABEL5.CAPTION" msgctxt "TPBEDITDATAFORM.LABEL5.CAPTION"
msgid "ICQ" msgid "ICQ"
msgstr "" msgstr ""
#: TPBEDITDATAFORM.LABEL6.CAPTION #: tpbeditdataform.label6.caption
msgid "Memo" msgid "Memo"
msgstr "" msgstr ""
#: TPBMAINFORM.CAPTION #: tpbmainform.caption
msgid "Phone book" msgid "Phone book"
msgstr "" msgstr ""
#: TPBMAINFORM.EDTDELETE.CAPTION #: tpbmainform.edtdelete.caption
msgid "Delete" msgid "Delete"
msgstr "" msgstr ""
#: TPBMAINFORM.EDTEDIT.CAPTION #: tpbmainform.edtedit.caption
msgctxt "TPBMAINFORM.EDTEDIT.CAPTION" msgctxt "TPBMAINFORM.EDTEDIT.CAPTION"
msgid "Edit" msgid "Edit"
msgstr "" msgstr ""
#: TPBMAINFORM.EDTFIND.CAPTION #: tpbmainform.edtfind.caption
msgid "Find" msgid "Find"
msgstr "" msgstr ""
#: TPBMAINFORM.EDTNEW.CAPTION #: tpbmainform.edtnew.caption
msgid "New" msgid "New"
msgstr "" msgstr ""
#: TPBMAINFORM.EDTPRINT.CAPTION #: tpbmainform.edtprint.caption
msgid "Print" msgid "Print"
msgstr "" msgstr ""
#: TPBMAINFORM.HLPABOUT.CAPTION #: tpbmainform.hlpabout.caption
msgid "About" msgid "About"
msgstr "" msgstr ""
#: TPBMAINFORM.MENUITEM1.CAPTION #: tpbmainform.menuitem1.caption
msgid "System" msgid "System"
msgstr "" msgstr ""
#: TPBMAINFORM.MENUITEM10.CAPTION #: tpbmainform.menuitem10.caption
msgctxt "TPBMAINFORM.MENUITEM10.CAPTION" msgctxt "TPBMAINFORM.MENUITEM10.CAPTION"
msgid "-" msgid "-"
msgstr "" msgstr ""
#: TPBMAINFORM.MENUITEM14.CAPTION #: tpbmainform.menuitem14.caption
msgctxt "TPBMAINFORM.MENUITEM14.CAPTION" msgctxt "TPBMAINFORM.MENUITEM14.CAPTION"
msgid "-" msgid "-"
msgstr "" msgstr ""
#: TPBMAINFORM.MENUITEM16.CAPTION #: tpbmainform.menuitem16.caption
msgctxt "TPBMAINFORM.MENUITEM16.CAPTION" msgctxt "TPBMAINFORM.MENUITEM16.CAPTION"
msgid "-" msgid "-"
msgstr "" msgstr ""
#: TPBMAINFORM.MENUITEM18.CAPTION #: tpbmainform.menuitem18.caption
msgid "Help" msgid "Help"
msgstr "" msgstr ""
#: TPBMAINFORM.MENUITEM3.CAPTION #: tpbmainform.menuitem3.caption
msgctxt "TPBMAINFORM.MENUITEM3.CAPTION" msgctxt "TPBMAINFORM.MENUITEM3.CAPTION"
msgid "Edit" msgid "Edit"
msgstr "" msgstr ""
#: TPBMAINFORM.MENUITEM7.CAPTION #: tpbmainform.menuitem7.caption
msgctxt "TPBMAINFORM.MENUITEM7.CAPTION" msgctxt "TPBMAINFORM.MENUITEM7.CAPTION"
msgid "-" msgid "-"
msgstr "" msgstr ""
#: TPBMAINFORM.RXDBGRID1.COLUMNS[0].TITLE.CAPTION #: tpbmainform.rxdbgrid1.columns[0].title.caption
msgid "ID" msgid "ID"
msgstr "" msgstr ""
#: TPBMAINFORM.RXDBGRID1.COLUMNS[1].TITLE.CAPTION #: tpbmainform.rxdbgrid1.columns[1].title.caption
msgid "PATRONYMIC" msgid "PATRONYMIC"
msgstr "" msgstr ""
#: TPBMAINFORM.RXDBGRID1.COLUMNS[2].TITLE.CAPTION #: tpbmainform.rxdbgrid1.columns[2].title.caption
msgid "NAME" msgid "NAME"
msgstr "" msgstr ""
#: TPBMAINFORM.RXDBGRID1.COLUMNS[3].TITLE.CAPTION #: tpbmainform.rxdbgrid1.columns[3].title.caption
msgid "SURNAME" msgid "SURNAME"
msgstr "" msgstr ""
#: TPBMAINFORM.RXDBGRID1.COLUMNS[4].TITLE.CAPTION #: tpbmainform.rxdbgrid1.columns[4].title.caption
msgid "PHONE" msgid "PHONE"
msgstr "" msgstr ""
#: TPBMAINFORM.RXDBGRID1.COLUMNS[5].TITLE.CAPTION #: tpbmainform.rxdbgrid1.columns[5].title.caption
msgctxt "TPBMAINFORM.RXDBGRID1.COLUMNS[5].TITLE.CAPTION" msgctxt "TPBMAINFORM.RXDBGRID1.COLUMNS[5].TITLE.CAPTION"
msgid "ICQ" msgid "ICQ"
msgstr "" msgstr ""
#: TPBMAINFORM.RXDBGRID1.COLUMNS[6].TITLE.CAPTION #: tpbmainform.rxdbgrid1.columns[6].title.caption
msgid "MEMO" msgid "MEMO"
msgstr "" msgstr ""
#: TPBMAINFORM.SYSEXIT.CAPTION #: tpbmainform.sysexit.caption
msgid "Exit" msgid "Exit"
msgstr "" msgstr ""

18
components/rx/Demos/RxDBGrid/RxDBGridDemo.lpi
View File

@ -51,7 +51,7 @@
</Item3> </Item3>
<Item4> <Item4>
<PackageName Value="rxnew"/> <PackageName Value="rxnew"/>
<MinVersion Build="56" Major="1" Valid="True" Release="18"/> <MinVersion Major="1" Release="18" Build="56" Valid="True"/>
</Item4> </Item4>
</RequiredPackages> </RequiredPackages>
<Units Count="58"> <Units Count="58">
@ -59,10 +59,12 @@
<Filename Value="RxDBGridDemo.lpr"/> <Filename Value="RxDBGridDemo.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="RxDBGridDemo"/> <UnitName Value="RxDBGridDemo"/>
<EditorIndex Value="1"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<CursorPos X="9" Y="16"/> <CursorPos X="9" Y="16"/>
<UsageCount Value="54"/> <UsageCount Value="54"/>
<Loaded Value="True"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="rxdbgridmainunit.pas"/> <Filename Value="rxdbgridmainunit.pas"/>
@ -73,7 +75,7 @@
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="93"/> <TopLine Value="105"/>
<CursorPos X="3" Y="97"/> <CursorPos X="3" Y="97"/>
<UsageCount Value="54"/> <UsageCount Value="54"/>
<Loaded Value="True"/> <Loaded Value="True"/>
@ -501,7 +503,7 @@
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit57> </Unit57>
</Units> </Units>
<JumpHistory Count="3" HistoryIndex="2"> <JumpHistory Count="4" HistoryIndex="3">
<Position1> <Position1>
<Filename Value="rxdbgridmainunit.pas"/> <Filename Value="rxdbgridmainunit.pas"/>
<Caret Line="9" Column="11" TopLine="1"/> <Caret Line="9" Column="11" TopLine="1"/>
@ -514,10 +516,14 @@
<Filename Value="rxdbgridmainunit.pas"/> <Filename Value="rxdbgridmainunit.pas"/>
<Caret Line="96" Column="3" TopLine="92"/> <Caret Line="96" Column="3" TopLine="92"/>
</Position3> </Position3>
<Position4>
<Filename Value="RxDBGridDemo.lpr"/>
<Caret Line="16" Column="9" TopLine="1"/>
</Position4>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="10"/> <Version Value="11"/>
<Target> <Target>
<Filename Value="RxDBGridDemo"/> <Filename Value="RxDBGridDemo"/>
</Target> </Target>
@ -531,10 +537,6 @@
</SyntaxOptions> </SyntaxOptions>
</Parsing> </Parsing>
<Linking> <Linking>
<Debugging>
<GenerateDebugInfo Value="True"/>
<DebugInfoType Value="dsAuto"/>
</Debugging>
<Options> <Options>
<Win32> <Win32>
<GraphicApplication Value="True"/> <GraphicApplication Value="True"/>

77
components/rx/Demos/RxDBGrid/rxdbgridmainunit.lfm
View File

@ -1,11 +1,11 @@
object RxDBGridMainForm: TRxDBGridMainForm object RxDBGridMainForm: TRxDBGridMainForm
Left = 232 Left = 151
Height = 786 Height = 786
Top = 47 Top = 48
Width = 1187 Width = 1187
ActiveControl = Panel1 ActiveControl = Panel1
Caption = 'RxDBGrid Demo' Caption = 'RxDBGrid Demo'
ClientHeight = 764 ClientHeight = 763
ClientWidth = 1187 ClientWidth = 1187
Menu = MainMenu1 Menu = MainMenu1
OnCreate = FormCreate OnCreate = FormCreate
@ -13,8 +13,8 @@ object RxDBGridMainForm: TRxDBGridMainForm
LCLVersion = '0.9.31' LCLVersion = '0.9.31'
object RxDBGrid1: TRxDBGrid object RxDBGrid1: TRxDBGrid
Left = 0 Left = 0
Height = 698 Height = 699
Top = 66 Top = 64
Width = 1187 Width = 1187
TitleButtons = True TitleButtons = True
AutoSort = True AutoSort = True
@ -22,7 +22,6 @@ object RxDBGridMainForm: TRxDBGridMainForm
item item
Title.Alignment = taCenter Title.Alignment = taCenter
Title.Caption = '...' Title.Caption = '...'
Title.PrefixOption = poNone
Title.Orientation = toHorizontal Title.Orientation = toHorizontal
Title.Hint = 'DEVELOPER' Title.Hint = 'DEVELOPER'
Title.ShowHint = True Title.ShowHint = True
@ -43,7 +42,6 @@ object RxDBGridMainForm: TRxDBGridMainForm
item item
Title.Alignment = taCenter Title.Alignment = taCenter
Title.Caption = 'Code' Title.Caption = 'Code'
Title.PrefixOption = poNone
Title.Orientation = toHorizontal Title.Orientation = toHorizontal
Title.Hint = 'Code - ID' Title.Hint = 'Code - ID'
Title.ShowHint = True Title.ShowHint = True
@ -62,7 +60,6 @@ object RxDBGridMainForm: TRxDBGridMainForm
item item
Title.Alignment = taCenter Title.Alignment = taCenter
Title.Caption = 'Developer' Title.Caption = 'Developer'
Title.PrefixOption = poNone
Title.Orientation = toHorizontal Title.Orientation = toHorizontal
Title.Hint = 'Developer full name' Title.Hint = 'Developer full name'
Title.ShowHint = True Title.ShowHint = True
@ -78,7 +75,6 @@ object RxDBGridMainForm: TRxDBGridMainForm
item item
Title.Alignment = taCenter Title.Alignment = taCenter
Title.Caption = 'Computer software (all info) - Программное обеспечение|Name' Title.Caption = 'Computer software (all info) - Программное обеспечение|Name'
Title.PrefixOption = poNone
Title.Orientation = toHorizontal Title.Orientation = toHorizontal
Title.Hint = 'Product name' Title.Hint = 'Product name'
Title.ShowHint = True Title.ShowHint = True
@ -94,7 +90,6 @@ object RxDBGridMainForm: TRxDBGridMainForm
item item
Title.Alignment = taCenter Title.Alignment = taCenter
Title.Caption = 'Computer software (all info) - Программное обеспечение|Cost' Title.Caption = 'Computer software (all info) - Программное обеспечение|Cost'
Title.PrefixOption = poNone
Title.Orientation = toHorizontal Title.Orientation = toHorizontal
Title.Hint = 'Product price' Title.Hint = 'Product price'
Title.ShowHint = True Title.ShowHint = True
@ -115,7 +110,6 @@ object RxDBGridMainForm: TRxDBGridMainForm
item item
Title.Alignment = taCenter Title.Alignment = taCenter
Title.Caption = 'Computer software (all info) - Программное обеспечение|Date Present' Title.Caption = 'Computer software (all info) - Программное обеспечение|Date Present'
Title.PrefixOption = poNone
Title.Orientation = toHorizontal Title.Orientation = toHorizontal
Title.Hint = 'Soft date present...' Title.Hint = 'Soft date present...'
Title.ShowHint = True Title.ShowHint = True
@ -130,7 +124,6 @@ object RxDBGridMainForm: TRxDBGridMainForm
item item
Title.Alignment = taCenter Title.Alignment = taCenter
Title.Caption = 'DEVELOPER_ID' Title.Caption = 'DEVELOPER_ID'
Title.PrefixOption = poNone
Title.Orientation = toHorizontal Title.Orientation = toHorizontal
Title.Hint = 'DEVELOPER' Title.Hint = 'DEVELOPER'
Title.ShowHint = True Title.ShowHint = True
@ -151,7 +144,6 @@ object RxDBGridMainForm: TRxDBGridMainForm
) )
Title.Alignment = taCenter Title.Alignment = taCenter
Title.Caption = 'Rait' Title.Caption = 'Rait'
Title.PrefixOption = poNone
Title.Orientation = toHorizontal Title.Orientation = toHorizontal
FieldName = 'RAIT' FieldName = 'RAIT'
Filter.Font.Style = [fsItalic] Filter.Font.Style = [fsItalic]
@ -192,6 +184,9 @@ object RxDBGridMainForm: TRxDBGridMainForm
ShortCut = 16456 ShortCut = 16456
Enabled = True Enabled = True
end> end>
FooterOptions.Active = True
FooterOptions.Color = clYellow
FooterOptions.RowCount = 1
PropertyStorage = XMLPropStorage1 PropertyStorage = XMLPropStorage1
Version = 1 Version = 1
OptionsRx = [rdgAllowColumnsForm, rdgAllowDialogFind, rdgHighlightFocusCol, rdgHighlightFocusRow, rdgDblClickOptimizeColWidth, rdgFooterRows, rdgXORColSizing, rdgMultiTitleLines, rdgAllowQuickSearch, rdgAllowQuickFilter, rdgAllowFilterForm, rdgAllowSortForm, rdgAllowToolMenu] OptionsRx = [rdgAllowColumnsForm, rdgAllowDialogFind, rdgHighlightFocusCol, rdgHighlightFocusRow, rdgDblClickOptimizeColWidth, rdgFooterRows, rdgXORColSizing, rdgMultiTitleLines, rdgAllowQuickSearch, rdgAllowQuickFilter, rdgAllowFilterForm, rdgAllowSortForm, rdgAllowToolMenu]
@ -215,22 +210,22 @@ object RxDBGridMainForm: TRxDBGridMainForm
end end
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Height = 66 Height = 64
Top = 0 Top = 0
Width = 1187 Width = 1187
Align = alTop Align = alTop
AutoSize = True AutoSize = True
ClientHeight = 66 ClientHeight = 64
ClientWidth = 1187 ClientWidth = 1187
TabOrder = 1 TabOrder = 1
object Label1: TLabel object Label1: TLabel
AnchorSideLeft.Control = Button2 AnchorSideLeft.Control = Button2
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1 AnchorSideTop.Control = Panel1
Left = 279 Left = 270
Height = 14 Height = 16
Top = 7 Top = 7
Width = 29 Width = 36
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Mode' Caption = 'Mode'
ParentColor = False ParentColor = False
@ -239,9 +234,9 @@ object RxDBGridMainForm: TRxDBGridMainForm
AnchorSideLeft.Control = Panel1 AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = Panel1 AnchorSideTop.Control = Panel1
Left = 7 Left = 7
Height = 29 Height = 27
Top = 7 Top = 7
Width = 93 Width = 86
Action = actCalcTotal Action = actCalcTotal
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -251,10 +246,10 @@ object RxDBGridMainForm: TRxDBGridMainForm
AnchorSideLeft.Control = Button1 AnchorSideLeft.Control = Button1
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1 AnchorSideTop.Control = Panel1
Left = 106 Left = 99
Height = 29 Height = 27
Top = 7 Top = 7
Width = 167 Width = 165
Action = actOptimizeColumnsWidthAll Action = actOptimizeColumnsWidthAll
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -265,11 +260,11 @@ object RxDBGridMainForm: TRxDBGridMainForm
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CheckBox2 AnchorSideTop.Control = CheckBox2
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 508 Left = 499
Height = 23 Height = 22
Hint = 'Use filter line' Hint = 'Use filter line'
Top = 36 Top = 35
Width = 79 Width = 83
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'Use filter' Caption = 'Use filter'
OnChange = CheckBox1Change OnChange = CheckBox1Change
@ -279,12 +274,12 @@ object RxDBGridMainForm: TRxDBGridMainForm
AnchorSideLeft.Control = Label1 AnchorSideLeft.Control = Label1
AnchorSideTop.Control = Label1 AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 285 Left = 276
Height = 27 Height = 25
Top = 27 Top = 29
Width = 217 Width = 217
BorderSpacing.Around = 6 BorderSpacing.Around = 6
ItemHeight = 19 ItemHeight = 0
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
'Edit mode' 'Edit mode'
@ -299,11 +294,11 @@ object RxDBGridMainForm: TRxDBGridMainForm
AnchorSideLeft.Control = ComboBox1 AnchorSideLeft.Control = ComboBox1
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1 AnchorSideTop.Control = Panel1
Left = 508 Left = 499
Height = 23 Height = 22
Hint = 'Auto fill column width' Hint = 'Auto fill column width'
Top = 7 Top = 7
Width = 128 Width = 133
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Auto fill columns' Caption = 'Auto fill columns'
OnChange = CheckBox2Change OnChange = CheckBox2Change
@ -313,10 +308,10 @@ object RxDBGridMainForm: TRxDBGridMainForm
AnchorSideLeft.Control = CheckBox2 AnchorSideLeft.Control = CheckBox2
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1 AnchorSideTop.Control = Panel1
Left = 642 Left = 638
Height = 23 Height = 22
Top = 7 Top = 7
Width = 116 Width = 120
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Show indicator' Caption = 'Show indicator'
Checked = True Checked = True
@ -329,10 +324,10 @@ object RxDBGridMainForm: TRxDBGridMainForm
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CheckBox3 AnchorSideTop.Control = CheckBox3
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 642 Left = 638
Height = 23 Height = 22
Top = 36 Top = 35
Width = 110 Width = 115
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Show headers' Caption = 'Show headers'
Checked = True Checked = True

162
components/rx/Demos/RxDateEdit/project1.lpi
View File

@ -1,19 +1,21 @@
<?xml version="1.0"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="7"/> <Version Value="9"/>
<General> <General>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<TargetFileExt Value=""/>
<Icon Value="0"/>
<UseXPManifest Value="True"/> <UseXPManifest Value="True"/>
<ActiveEditorIndexAtStart Value="1"/> <Icon Value="0"/>
<ActiveWindowIndexAtStart Value="0"/>
</General> </General>
<VersionInfo> <VersionInfo>
<ProjectVersion Value=""/>
<Language Value=""/> <Language Value=""/>
<CharSet Value=""/> <CharSet Value=""/>
<StringTable ProductVersion=""/>
</VersionInfo> </VersionInfo>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
<IgnoreBinaries Value="False"/> <IgnoreBinaries Value="False"/>
@ -44,11 +46,13 @@
<Filename Value="project1.lpr"/> <Filename Value="project1.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="project1"/> <UnitName Value="project1"/>
<CursorPos X="22" Y="21"/>
<TopLine Value="1"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="22" Y="21"/>
<UsageCount Value="20"/> <UsageCount Value="20"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="unit1.pas"/> <Filename Value="unit1.pas"/>
@ -56,200 +60,206 @@
<ComponentName Value="Form1"/> <ComponentName Value="Form1"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/> <UnitName Value="Unit1"/>
<CursorPos X="22" Y="9"/> <IsVisibleTab Value="True"/>
<TopLine Value="1"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<WindowIndex Value="0"/>
<TopLine Value="22"/>
<CursorPos X="22" Y="9"/>
<UsageCount Value="20"/> <UsageCount Value="20"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1> </Unit1>
<Unit2> <Unit2>
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/curredit.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/curredit.pas"/>
<UnitName Value="curredit"/> <UnitName Value="curredit"/>
<CursorPos X="1" Y="485"/>
<TopLine Value="469"/>
<EditorIndex Value="3"/> <EditorIndex Value="3"/>
<WindowIndex Value="0"/>
<TopLine Value="469"/>
<CursorPos X="1" Y="485"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit2> </Unit2>
<Unit3> <Unit3>
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/tooledit.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/tooledit.pas"/>
<UnitName Value="tooledit"/> <UnitName Value="tooledit"/>
<CursorPos X="1" Y="303"/>
<TopLine Value="287"/> <TopLine Value="287"/>
<CursorPos X="1" Y="303"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit3> </Unit3>
<Unit4> <Unit4>
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/rx.inc"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/rx.inc"/>
<CursorPos X="20" Y="11"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<CursorPos X="20" Y="11"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit4> </Unit4>
<Unit5> <Unit5>
<Filename Value="../../../../../../../../usr/local/share/lazarus/lcl/maskedit.pp"/> <Filename Value="/usr/local/share/lazarus/lcl/maskedit.pp"/>
<UnitName Value="MaskEdit"/> <UnitName Value="MaskEdit"/>
<CursorPos X="30" Y="145"/>
<TopLine Value="149"/> <TopLine Value="149"/>
<CursorPos X="30" Y="145"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit5> </Unit5>
<Unit6> <Unit6>
<Filename Value="../../../../../../../../usr/local/share/lazarus/lcl/stdctrls.pp"/> <Filename Value="/usr/local/share/lazarus/lcl/stdctrls.pp"/>
<UnitName Value="StdCtrls"/> <UnitName Value="StdCtrls"/>
<CursorPos X="3" Y="693"/>
<TopLine Value="677"/> <TopLine Value="677"/>
<CursorPos X="3" Y="693"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit6> </Unit6>
<Unit7> <Unit7>
<Filename Value="../../../../../../../../usr/local/share/lazarus/lcl/controls.pp"/> <Filename Value="/usr/local/share/lazarus/lcl/controls.pp"/>
<UnitName Value="Controls"/> <UnitName Value="Controls"/>
<CursorPos X="15" Y="1736"/>
<TopLine Value="1720"/> <TopLine Value="1720"/>
<CursorPos X="15" Y="1736"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit7> </Unit7>
<Unit8> <Unit8>
<Filename Value="../../../../../../../../usr/local/share/lazarus/lcl/include/wincontrol.inc"/> <Filename Value="/usr/local/share/lazarus/lcl/include/wincontrol.inc"/>
<CursorPos X="1" Y="5013"/>
<TopLine Value="4997"/> <TopLine Value="4997"/>
<CursorPos X="1" Y="5013"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit8> </Unit8>
<Unit9> <Unit9>
<Filename Value="../../../../../../../../usr/local/share/lazarus/lcl/dbctrls.pp"/> <Filename Value="/usr/local/share/lazarus/lcl/dbctrls.pp"/>
<UnitName Value="DbCtrls"/> <UnitName Value="DbCtrls"/>
<CursorPos X="15" Y="212"/>
<TopLine Value="196"/> <TopLine Value="196"/>
<CursorPos X="15" Y="212"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit9> </Unit9>
<Unit10> <Unit10>
<Filename Value="../../../../../../../../usr/local/share/lazarus/lcl/include/dbedit.inc"/> <Filename Value="/usr/local/share/lazarus/lcl/include/dbedit.inc"/>
<CursorPos X="3" Y="265"/>
<TopLine Value="263"/> <TopLine Value="263"/>
<CursorPos X="3" Y="265"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit10> </Unit10>
<Unit11> <Unit11>
<Filename Value="../../../../../../../../usr/local/share/lazarus/lcl/graphics.pp"/> <Filename Value="/usr/local/share/lazarus/lcl/graphics.pp"/>
<UnitName Value="Graphics"/> <UnitName Value="Graphics"/>
<CursorPos X="15" Y="1115"/>
<TopLine Value="1099"/> <TopLine Value="1099"/>
<CursorPos X="15" Y="1115"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit11> </Unit11>
<Unit12> <Unit12>
<Filename Value="../../../../../../../../usr/local/share/lazarus/lcl/include/canvas.inc"/> <Filename Value="/usr/local/share/lazarus/lcl/include/canvas.inc"/>
<CursorPos X="1" Y="1073"/>
<TopLine Value="1057"/> <TopLine Value="1057"/>
<CursorPos X="1" Y="1073"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit12> </Unit12>
<Unit13> <Unit13>
<Filename Value="../../../../../../../../usr/local/share/lazarus/lcl/include/control.inc"/> <Filename Value="/usr/local/share/lazarus/lcl/include/control.inc"/>
<CursorPos X="1" Y="1631"/>
<TopLine Value="1615"/> <TopLine Value="1615"/>
<CursorPos X="1" Y="1631"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit13> </Unit13>
<Unit14> <Unit14>
<Filename Value="../../../../../../../../usr/local/share/lazarus/lcl/lclmessageglue.pas"/> <Filename Value="/usr/local/share/lazarus/lcl/lclmessageglue.pas"/>
<UnitName Value="LCLMessageGlue"/> <UnitName Value="LCLMessageGlue"/>
<CursorPos X="1" Y="121"/>
<TopLine Value="105"/> <TopLine Value="105"/>
<CursorPos X="1" Y="121"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit14> </Unit14>
<Unit15> <Unit15>
<Filename Value="../../../../../../../../usr/local/share/lazarus/lcl/interfaces/gtk/gtkproc.inc"/> <Filename Value="/usr/local/share/lazarus/lcl/interfaces/gtk/gtkproc.inc"/>
<CursorPos X="1" Y="3712"/>
<TopLine Value="3696"/> <TopLine Value="3696"/>
<CursorPos X="1" Y="3712"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit15> </Unit15>
<Unit16> <Unit16>
<Filename Value="../../../../../../../../usr/local/share/lazarus/lcl/interfaces/gtk/gtkcallback.inc"/> <Filename Value="/usr/local/share/lazarus/lcl/interfaces/gtk/gtkcallback.inc"/>
<CursorPos X="1" Y="676"/>
<TopLine Value="660"/> <TopLine Value="660"/>
<CursorPos X="1" Y="676"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit16> </Unit16>
<Unit17> <Unit17>
<Filename Value="../../../../../../../../usr/local/share/lazarus/lcl/interfaces/gtk/gtkwidgetset.inc"/> <Filename Value="/usr/local/share/lazarus/lcl/interfaces/gtk/gtkwidgetset.inc"/>
<CursorPos X="1" Y="1226"/>
<TopLine Value="1200"/> <TopLine Value="1200"/>
<CursorPos X="1" Y="1226"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit17> </Unit17>
<Unit18> <Unit18>
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/dbdateedit.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/dbdateedit.pas"/>
<UnitName Value="dbdateedit"/> <UnitName Value="dbdateedit"/>
<CursorPos X="1" Y="227"/>
<TopLine Value="211"/>
<EditorIndex Value="2"/> <EditorIndex Value="2"/>
<WindowIndex Value="0"/>
<TopLine Value="211"/>
<CursorPos X="1" Y="227"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit18> </Unit18>
</Units> </Units>
<JumpHistory Count="16" HistoryIndex="15"> <JumpHistory Count="15" HistoryIndex="14">
<Position1> <Position1>
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/curredit.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/curredit.pas"/>
<Caret Line="485" Column="1" TopLine="469"/> <Caret Line="485" Column="1" TopLine="469"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="unit1.pas"/> <Filename Value="unit1.pas"/>
<Caret Line="19" Column="19" TopLine="28"/> <Caret Line="46" Column="1" TopLine="28"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="unit1.pas"/> <Filename Value="unit1.pas"/>
<Caret Line="46" Column="1" TopLine="28"/> <Caret Line="18" Column="22" TopLine="8"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="unit1.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/dbdateedit.pas"/>
<Caret Line="18" Column="22" TopLine="8"/> <Caret Line="224" Column="3" TopLine="222"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/dbdateedit.pas"/> <Filename Value="unit1.pas"/>
<Caret Line="224" Column="3" TopLine="222"/> <Caret Line="46" Column="1" TopLine="28"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="unit1.pas"/> <Filename Value="unit1.pas"/>
<Caret Line="46" Column="1" TopLine="28"/> <Caret Line="47" Column="1" TopLine="28"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="unit1.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/dbdateedit.pas"/>
<Caret Line="47" Column="1" TopLine="28"/> <Caret Line="227" Column="1" TopLine="211"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/dbdateedit.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/dbdateedit.pas"/>
<Caret Line="227" Column="1" TopLine="211"/> <Caret Line="228" Column="1" TopLine="212"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/dbdateedit.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/dbdateedit.pas"/>
<Caret Line="228" Column="1" TopLine="212"/> <Caret Line="233" Column="1" TopLine="217"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/dbdateedit.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/dbdateedit.pas"/>
<Caret Line="233" Column="1" TopLine="217"/> <Caret Line="227" Column="1" TopLine="211"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/dbdateedit.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/dbdateedit.pas"/>
<Caret Line="227" Column="1" TopLine="211"/> <Caret Line="228" Column="1" TopLine="212"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/dbdateedit.pas"/> <Filename Value="/usr/local/share/lazarus/components/rxnew/dbdateedit.pas"/>
<Caret Line="228" Column="1" TopLine="212"/> <Caret Line="233" Column="1" TopLine="217"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/dbdateedit.pas"/> <Filename Value="unit1.pas"/>
<Caret Line="233" Column="1" TopLine="217"/> <Caret Line="46" Column="26" TopLine="28"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="unit1.pas"/> <Filename Value="unit1.pas"/>
<Caret Line="46" Column="26" TopLine="28"/> <Caret Line="20" Column="25" TopLine="20"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="unit1.pas"/>
<Caret Line="20" Column="25" TopLine="20"/>
</Position15>
<Position16>
<Filename Value="unit1.pas"/> <Filename Value="unit1.pas"/>
<Caret Line="22" Column="20" TopLine="20"/> <Caret Line="22" Column="20" TopLine="20"/>
</Position16> </Position15>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="8"/> <Version Value="11"/>
<SearchPaths> <SearchPaths>
<IncludeFiles Value="$(ProjOutDir)/"/> <IncludeFiles Value="$(ProjOutDir)"/>
</SearchPaths> </SearchPaths>
<Parsing>
<SyntaxOptions>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<Linking> <Linking>
<Options> <Options>
<Win32> <Win32>

116
components/rx/Demos/Text90/project1.lpi
View File

@ -1,16 +1,18 @@
<?xml version="1.0"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Version Value="7"/>
<General> <General>
<Flags> <Flags>
<LRSInOutputDirectory Value="False"/> <LRSInOutputDirectory Value="False"/>
</Flags> </Flags>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<TargetFileExt Value=".exe"/> <ActiveWindowIndexAtStart Value="0"/>
<ActiveEditorIndexAtStart Value="0"/>
</General> </General>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
<IgnoreBinaries Value="False"/> <IgnoreBinaries Value="False"/>
@ -36,7 +38,7 @@
<MinVersion Major="1" Valid="True"/> <MinVersion Major="1" Valid="True"/>
</Item3> </Item3>
</RequiredPackages> </RequiredPackages>
<Units Count="25"> <Units Count="27">
<Unit0> <Unit0>
<Filename Value="project1.lpr"/> <Filename Value="project1.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
@ -45,103 +47,105 @@
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="unit1.pas"/> <Filename Value="unit1.pas"/>
<ComponentName Value="Form1"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/> <UnitName Value="Unit1"/>
<CursorPos X="52" Y="71"/>
<TopLine Value="39"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<WindowIndex Value="0"/>
<TopLine Value="51"/>
<CursorPos X="52" Y="71"/>
<UsageCount Value="26"/> <UsageCount Value="26"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1> </Unit1>
<Unit2> <Unit2>
<Filename Value="C:\lazarus\lcl\extctrls.pp"/> <Filename Value="C:\lazarus\lcl\extctrls.pp"/>
<UnitName Value="ExtCtrls"/> <UnitName Value="ExtCtrls"/>
<CursorPos X="83" Y="456"/>
<TopLine Value="451"/> <TopLine Value="451"/>
<CursorPos X="83" Y="456"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit2> </Unit2>
<Unit3> <Unit3>
<Filename Value="C:\lazarus\lcl\controls.pp"/> <Filename Value="C:\lazarus\lcl\controls.pp"/>
<UnitName Value="Controls"/> <UnitName Value="Controls"/>
<CursorPos X="26" Y="228"/>
<TopLine Value="224"/> <TopLine Value="224"/>
<CursorPos X="26" Y="228"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit3> </Unit3>
<Unit4> <Unit4>
<Filename Value="C:\lazarus\lcl\graphics.pp"/> <Filename Value="C:\lazarus\lcl\graphics.pp"/>
<UnitName Value="Graphics"/> <UnitName Value="Graphics"/>
<CursorPos X="102" Y="589"/>
<TopLine Value="586"/> <TopLine Value="586"/>
<CursorPos X="102" Y="589"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit4> </Unit4>
<Unit5> <Unit5>
<Filename Value="C:\lazarus\lcl\lclproc.pas"/> <Filename Value="C:\lazarus\lcl\lclproc.pas"/>
<UnitName Value="LCLProc"/> <UnitName Value="LCLProc"/>
<CursorPos X="70" Y="578"/>
<TopLine Value="577"/> <TopLine Value="577"/>
<CursorPos X="70" Y="578"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit5> </Unit5>
<Unit6> <Unit6>
<Filename Value="C:\lazarus\lcl\include\canvas.inc"/> <Filename Value="C:\lazarus\lcl\include\canvas.inc"/>
<CursorPos X="58" Y="776"/>
<TopLine Value="771"/> <TopLine Value="771"/>
<CursorPos X="58" Y="776"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit6> </Unit6>
<Unit7> <Unit7>
<Filename Value="C:\lazarus\lcl\include\paintbox.inc"/> <Filename Value="C:\lazarus\lcl\include\paintbox.inc"/>
<CursorPos X="81" Y="18"/>
<TopLine Value="16"/> <TopLine Value="16"/>
<CursorPos X="81" Y="18"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit7> </Unit7>
<Unit8> <Unit8>
<Filename Value="C:\lazarus\lcl\include\graphiccontrol.inc"/> <Filename Value="C:\lazarus\lcl\include\graphiccontrol.inc"/>
<CursorPos X="101" Y="26"/>
<TopLine Value="21"/> <TopLine Value="21"/>
<CursorPos X="101" Y="26"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit8> </Unit8>
<Unit9> <Unit9>
<Filename Value="C:\lazarus\lcl\include\controlcanvas.inc"/> <Filename Value="C:\lazarus\lcl\include\controlcanvas.inc"/>
<CursorPos X="59" Y="43"/>
<TopLine Value="36"/> <TopLine Value="36"/>
<CursorPos X="59" Y="43"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit9> </Unit9>
<Unit10> <Unit10>
<Filename Value="C:\lazarus\lcl\include\bitmap.inc"/> <Filename Value="C:\lazarus\lcl\include\bitmap.inc"/>
<CursorPos X="29" Y="141"/>
<TopLine Value="138"/> <TopLine Value="138"/>
<CursorPos X="29" Y="141"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit10> </Unit10>
<Unit11> <Unit11>
<Filename Value="C:\lazarus\fpcsrc\rtl\objpas\classes\classes.inc"/> <Filename Value="C:\lazarus\fpcsrc\rtl\objpas\classes\classes.inc"/>
<CursorPos X="69" Y="241"/>
<TopLine Value="238"/> <TopLine Value="238"/>
<CursorPos X="69" Y="241"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit11> </Unit11>
<Unit12> <Unit12>
<Filename Value="C:\lazarus\lcl\include\brush.inc"/> <Filename Value="C:\lazarus\lcl\include\brush.inc"/>
<CursorPos X="56" Y="181"/>
<TopLine Value="178"/> <TopLine Value="178"/>
<CursorPos X="56" Y="181"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit12> </Unit12>
<Unit13> <Unit13>
<Filename Value="C:\lazarus\lcl\include\winapi.inc"/> <Filename Value="C:\lazarus\lcl\include\winapi.inc"/>
<CursorPos X="52" Y="228"/>
<TopLine Value="226"/> <TopLine Value="226"/>
<CursorPos X="52" Y="228"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit13> </Unit13>
<Unit14> <Unit14>
<Filename Value="C:\lazarus\lcl\interfaces\win32\win32winapi.inc"/> <Filename Value="C:\lazarus\lcl\interfaces\win32\win32winapi.inc"/>
<CursorPos X="67" Y="1319"/>
<TopLine Value="1316"/> <TopLine Value="1316"/>
<CursorPos X="67" Y="1319"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit14> </Unit14>
<Unit15> <Unit15>
<Filename Value="C:\lazarus\fpcsrc\fcl\image\fpcanvas.pp"/> <Filename Value="C:\lazarus\fpcsrc\fcl\image\fpcanvas.pp"/>
<UnitName Value="FPCanvas"/> <UnitName Value="FPCanvas"/>
<CursorPos X="101" Y="117"/>
<TopLine Value="117"/> <TopLine Value="117"/>
<CursorPos X="101" Y="117"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit15> </Unit15>
<Unit16> <Unit16>
@ -149,68 +153,89 @@
<ComponentName Value="frBarCodeForm"/> <ComponentName Value="frBarCodeForm"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<UnitName Value="LR_BarC"/> <UnitName Value="LR_BarC"/>
<CursorPos X="57" Y="405"/>
<TopLine Value="400"/> <TopLine Value="400"/>
<CursorPos X="57" Y="405"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit16> </Unit16>
<Unit17> <Unit17>
<Filename Value="C:\lazarus\components\lazreport\source\Barcode.pas"/> <Filename Value="C:\lazarus\components\lazreport\source\Barcode.pas"/>
<UnitName Value="Barcode"/> <UnitName Value="Barcode"/>
<CursorPos X="38" Y="150"/>
<TopLine Value="149"/> <TopLine Value="149"/>
<CursorPos X="38" Y="150"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit17> </Unit17>
<Unit18> <Unit18>
<Filename Value="C:\lazarus\components\lazreport\source\LR_Class.pas"/> <Filename Value="C:\lazarus\components\lazreport\source\LR_Class.pas"/>
<UnitName Value="LR_Class"/> <UnitName Value="LR_Class"/>
<CursorPos X="1" Y="228"/>
<TopLine Value="210"/> <TopLine Value="210"/>
<CursorPos X="1" Y="228"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit18> </Unit18>
<Unit19> <Unit19>
<Filename Value="C:\lazarus\components\rxnew\rxdbgrid.pas"/> <Filename Value="C:\lazarus\components\rxnew\rxdbgrid.pas"/>
<UnitName Value="rxdbgrid"/> <UnitName Value="rxdbgrid"/>
<CursorPos X="46" Y="954"/>
<TopLine Value="931"/> <TopLine Value="931"/>
<CursorPos X="46" Y="954"/>
<UsageCount Value="11"/> <UsageCount Value="11"/>
</Unit19> </Unit19>
<Unit20> <Unit20>
<Filename Value="C:\lazarus\components\rxnew\vclutils.pas"/> <Filename Value="C:\lazarus\components\rxnew\vclutils.pas"/>
<UnitName Value="vclutils"/> <UnitName Value="vclutils"/>
<CursorPos X="22" Y="27"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<CursorPos X="22" Y="27"/>
<UsageCount Value="11"/> <UsageCount Value="11"/>
</Unit20> </Unit20>
<Unit21> <Unit21>
<Filename Value="C:\lazarus\lcl\dbgrids.pas"/> <Filename Value="C:\lazarus\lcl\dbgrids.pas"/>
<UnitName Value="DBGrids"/> <UnitName Value="DBGrids"/>
<CursorPos X="23" Y="152"/>
<TopLine Value="151"/> <TopLine Value="151"/>
<CursorPos X="23" Y="152"/>
<UsageCount Value="11"/> <UsageCount Value="11"/>
</Unit21> </Unit21>
<Unit22> <Unit22>
<Filename Value="C:\lazarus\lcl\grids.pas"/> <Filename Value="C:\lazarus\lcl\grids.pas"/>
<UnitName Value="Grids"/> <UnitName Value="Grids"/>
<CursorPos X="3" Y="3719"/>
<TopLine Value="3715"/> <TopLine Value="3715"/>
<CursorPos X="3" Y="3719"/>
<UsageCount Value="11"/> <UsageCount Value="11"/>
</Unit22> </Unit22>
<Unit23> <Unit23>
<Filename Value="..\..\vclutils.pas"/> <Filename Value="..\..\vclutils.pas"/>
<UnitName Value="vclutils"/> <UnitName Value="vclutils"/>
<CursorPos X="11" Y="286"/> <WindowIndex Value="0"/>
<TopLine Value="257"/> <TopLine Value="228"/>
<CursorPos X="1" Y="258"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit23> </Unit23>
<Unit24> <Unit24>
<Filename Value="..\..\rxdbgrid.pas"/> <Filename Value="..\..\rxdbgrid.pas"/>
<UnitName Value="rxdbgrid"/> <UnitName Value="rxdbgrid"/>
<CursorPos X="75" Y="1122"/>
<TopLine Value="1105"/> <TopLine Value="1105"/>
<CursorPos X="75" Y="1122"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit24> </Unit24>
<Unit25>
<Filename Value="..\..\..\..\..\..\..\..\usr\local\share\lazarus\components\rxnew\vclutils.pas"/>
<UnitName Value="vclutils"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<WindowIndex Value="0"/>
<TopLine Value="633"/>
<CursorPos X="5" Y="34"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit25>
<Unit26>
<Filename Value="..\..\..\..\..\..\..\..\usr\local\share\lazarus\components\rxnew\rx.inc"/>
<EditorIndex Value="2"/>
<WindowIndex Value="0"/>
<TopLine Value="25"/>
<CursorPos X="1" Y="52"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit26>
</Units> </Units>
<JumpHistory Count="3" HistoryIndex="2"> <JumpHistory Count="7" HistoryIndex="6">
<Position1> <Position1>
<Filename Value="unit1.pas"/> <Filename Value="unit1.pas"/>
<Caret Line="46" Column="47" TopLine="27"/> <Caret Line="46" Column="47" TopLine="27"/>
@ -221,16 +246,37 @@
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="unit1.pas"/> <Filename Value="unit1.pas"/>
<Caret Line="71" Column="52" TopLine="39"/> <Caret Line="71" Column="52" TopLine="51"/>
</Position3> </Position3>
<Position4>
<Filename Value="..\..\..\..\..\..\..\..\usr\local\share\lazarus\components\rxnew\vclutils.pas"/>
<Caret Line="332" Column="3" TopLine="302"/>
</Position4>
<Position5>
<Filename Value="..\..\..\..\..\..\..\..\usr\local\share\lazarus\components\rxnew\vclutils.pas"/>
<Caret Line="232" Column="9" TopLine="222"/>
</Position5>
<Position6>
<Filename Value="..\..\..\..\..\..\..\..\usr\local\share\lazarus\components\rxnew\rx.inc"/>
<Caret Line="17" Column="1" TopLine="17"/>
</Position6>
<Position7>
<Filename Value="..\..\..\..\..\..\..\..\usr\local\share\lazarus\components\rxnew\rx.inc"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position7>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="8"/> <Version Value="11"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<SearchPaths> <SearchPaths>
<SrcPath Value="$(LazarusDir)\lcl\;$(LazarusDir)\lcl\interfaces\$(LCLWidgetType)\"/> <SrcPath Value="$(LazarusDir)\lcl;$(LazarusDir)\lcl\interfaces\$(LCLWidgetType)"/>
</SearchPaths> </SearchPaths>
<Parsing>
<SyntaxOptions>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<Linking> <Linking>
<Options> <Options>
<Win32> <Win32>

2
components/rx/rx.inc
View File

@ -49,4 +49,4 @@
// //
{.$DEFINE DBDateEdit_OLD} {.$DEFINE DBDateEdit_OLD}
{.$DEFINE OLD_STYLE_TEXT_ROTATE}

17
components/rx/vclutils.pas
View File

@ -219,25 +219,8 @@ end;
procedure RotateLabel(Canvas: TCanvas; x, y: Integer; const St: String; RotDegree: Integer); procedure RotateLabel(Canvas: TCanvas; x, y: Integer; const St: String; RotDegree: Integer);
var var
{ OldFont, NewFont: HFONT;
LogRec: TLOGFONT;
DC: HDC;}
L:integer; L:integer;
begin begin
{ with Canvas do
begin
Brush.Style := bsClear;
GetObject(Font.Handle, SizeOf(LogRec), @LogRec);
LogRec.lfEscapement := RotDegree * 10;
LogRec.lfOrientation := 0;
LogRec.lfOutPrecision := OUT_TT_ONLY_PRECIS;
NewFont := CreateFontIndirect(LogRec);
DC := Handle;
end;
OldFont := SelectObject(DC, NewFont);
TextOut(DC, X, Y, @St[1], Length(St));
DeleteObject(SelectObject(DC, OldFont));}
L:=Canvas.Font.Orientation; L:=Canvas.Font.Orientation;
Canvas.Font.Orientation:=RotDegree * 10; Canvas.Font.Orientation:=RotDegree * 10;
Canvas.TextOut(X, Y, St); Canvas.TextOut(X, Y, St);