diff --git a/components/rx/Demos/AutoSort/AutoSortDemo.lpi b/components/rx/Demos/AutoSort/AutoSortDemo.lpi index 37d0f263d..19e068f15 100644 --- a/components/rx/Demos/AutoSort/AutoSortDemo.lpi +++ b/components/rx/Demos/AutoSort/AutoSortDemo.lpi @@ -1,19 +1,21 @@ - + - - - + + - + + + + @@ -44,58 +46,66 @@ - + - + - - + + + + + - + - + - + - + - + - + - + - + - + - + + + + + + @@ -110,7 +120,10 @@ - + + + + diff --git a/components/rx/Demos/PhoneBookDemo/PhoneBookDemo.lpi b/components/rx/Demos/PhoneBookDemo/PhoneBookDemo.lpi index 01f19948b..9dfb58b14 100644 --- a/components/rx/Demos/PhoneBookDemo/PhoneBookDemo.lpi +++ b/components/rx/Demos/PhoneBookDemo/PhoneBookDemo.lpi @@ -50,11 +50,11 @@ - + - + @@ -65,10 +65,13 @@ + + + @@ -76,10 +79,9 @@ - - + @@ -108,9 +110,9 @@ - + - + @@ -276,7 +278,7 @@ - + @@ -285,10 +287,6 @@ - - - - diff --git a/components/rx/Demos/PhoneBookDemo/languages/PhoneBookDemo.po b/components/rx/Demos/PhoneBookDemo/languages/PhoneBookDemo.po index 052262e0e..3cc416a33 100644 --- a/components/rx/Demos/PhoneBookDemo/languages/PhoneBookDemo.po +++ b/components/rx/Demos/PhoneBookDemo/languages/PhoneBookDemo.po @@ -1,127 +1,127 @@ msgid "" msgstr "Content-Type: text/plain; charset=UTF-8" -#: TPBEDITDATAFORM.CAPTION +#: tpbeditdataform.caption msgid "Phone book data" msgstr "" -#: TPBEDITDATAFORM.LABEL1.CAPTION +#: tpbeditdataform.label1.caption msgid "Patronymic" msgstr "" -#: TPBEDITDATAFORM.LABEL2.CAPTION +#: tpbeditdataform.label2.caption msgid "Name" msgstr "" -#: TPBEDITDATAFORM.LABEL3.CAPTION +#: tpbeditdataform.label3.caption msgid "Surname" msgstr "" -#: TPBEDITDATAFORM.LABEL4.CAPTION +#: tpbeditdataform.label4.caption msgid "Phone" msgstr "" -#: TPBEDITDATAFORM.LABEL5.CAPTION +#: tpbeditdataform.label5.caption msgctxt "TPBEDITDATAFORM.LABEL5.CAPTION" msgid "ICQ" msgstr "" -#: TPBEDITDATAFORM.LABEL6.CAPTION +#: tpbeditdataform.label6.caption msgid "Memo" msgstr "" -#: TPBMAINFORM.CAPTION +#: tpbmainform.caption msgid "Phone book" msgstr "" -#: TPBMAINFORM.EDTDELETE.CAPTION +#: tpbmainform.edtdelete.caption msgid "Delete" msgstr "" -#: TPBMAINFORM.EDTEDIT.CAPTION +#: tpbmainform.edtedit.caption msgctxt "TPBMAINFORM.EDTEDIT.CAPTION" msgid "Edit" msgstr "" -#: TPBMAINFORM.EDTFIND.CAPTION +#: tpbmainform.edtfind.caption msgid "Find" msgstr "" -#: TPBMAINFORM.EDTNEW.CAPTION +#: tpbmainform.edtnew.caption msgid "New" msgstr "" -#: TPBMAINFORM.EDTPRINT.CAPTION +#: tpbmainform.edtprint.caption msgid "Print" msgstr "" -#: TPBMAINFORM.HLPABOUT.CAPTION +#: tpbmainform.hlpabout.caption msgid "About" msgstr "" -#: TPBMAINFORM.MENUITEM1.CAPTION +#: tpbmainform.menuitem1.caption msgid "System" msgstr "" -#: TPBMAINFORM.MENUITEM10.CAPTION +#: tpbmainform.menuitem10.caption msgctxt "TPBMAINFORM.MENUITEM10.CAPTION" msgid "-" msgstr "" -#: TPBMAINFORM.MENUITEM14.CAPTION +#: tpbmainform.menuitem14.caption msgctxt "TPBMAINFORM.MENUITEM14.CAPTION" msgid "-" msgstr "" -#: TPBMAINFORM.MENUITEM16.CAPTION +#: tpbmainform.menuitem16.caption msgctxt "TPBMAINFORM.MENUITEM16.CAPTION" msgid "-" msgstr "" -#: TPBMAINFORM.MENUITEM18.CAPTION +#: tpbmainform.menuitem18.caption msgid "Help" msgstr "" -#: TPBMAINFORM.MENUITEM3.CAPTION +#: tpbmainform.menuitem3.caption msgctxt "TPBMAINFORM.MENUITEM3.CAPTION" msgid "Edit" msgstr "" -#: TPBMAINFORM.MENUITEM7.CAPTION +#: tpbmainform.menuitem7.caption msgctxt "TPBMAINFORM.MENUITEM7.CAPTION" msgid "-" msgstr "" -#: TPBMAINFORM.RXDBGRID1.COLUMNS[0].TITLE.CAPTION +#: tpbmainform.rxdbgrid1.columns[0].title.caption msgid "ID" msgstr "" -#: TPBMAINFORM.RXDBGRID1.COLUMNS[1].TITLE.CAPTION +#: tpbmainform.rxdbgrid1.columns[1].title.caption msgid "PATRONYMIC" msgstr "" -#: TPBMAINFORM.RXDBGRID1.COLUMNS[2].TITLE.CAPTION +#: tpbmainform.rxdbgrid1.columns[2].title.caption msgid "NAME" msgstr "" -#: TPBMAINFORM.RXDBGRID1.COLUMNS[3].TITLE.CAPTION +#: tpbmainform.rxdbgrid1.columns[3].title.caption msgid "SURNAME" msgstr "" -#: TPBMAINFORM.RXDBGRID1.COLUMNS[4].TITLE.CAPTION +#: tpbmainform.rxdbgrid1.columns[4].title.caption msgid "PHONE" msgstr "" -#: TPBMAINFORM.RXDBGRID1.COLUMNS[5].TITLE.CAPTION +#: tpbmainform.rxdbgrid1.columns[5].title.caption msgctxt "TPBMAINFORM.RXDBGRID1.COLUMNS[5].TITLE.CAPTION" msgid "ICQ" msgstr "" -#: TPBMAINFORM.RXDBGRID1.COLUMNS[6].TITLE.CAPTION +#: tpbmainform.rxdbgrid1.columns[6].title.caption msgid "MEMO" msgstr "" -#: TPBMAINFORM.SYSEXIT.CAPTION +#: tpbmainform.sysexit.caption msgid "Exit" msgstr "" diff --git a/components/rx/Demos/RxDBGrid/RxDBGridDemo.lpi b/components/rx/Demos/RxDBGrid/RxDBGridDemo.lpi index 45798e3c3..acb7cb195 100644 --- a/components/rx/Demos/RxDBGrid/RxDBGridDemo.lpi +++ b/components/rx/Demos/RxDBGrid/RxDBGridDemo.lpi @@ -51,7 +51,7 @@ - + @@ -59,10 +59,12 @@ + + @@ -73,7 +75,7 @@ - + @@ -501,7 +503,7 @@ - + @@ -514,10 +516,14 @@ + + + + - + @@ -531,10 +537,6 @@ - - - - diff --git a/components/rx/Demos/RxDBGrid/rxdbgridmainunit.lfm b/components/rx/Demos/RxDBGrid/rxdbgridmainunit.lfm index 79db7f3f8..5d38dad5b 100644 --- a/components/rx/Demos/RxDBGrid/rxdbgridmainunit.lfm +++ b/components/rx/Demos/RxDBGrid/rxdbgridmainunit.lfm @@ -1,11 +1,11 @@ object RxDBGridMainForm: TRxDBGridMainForm - Left = 232 + Left = 151 Height = 786 - Top = 47 + Top = 48 Width = 1187 ActiveControl = Panel1 Caption = 'RxDBGrid Demo' - ClientHeight = 764 + ClientHeight = 763 ClientWidth = 1187 Menu = MainMenu1 OnCreate = FormCreate @@ -13,8 +13,8 @@ object RxDBGridMainForm: TRxDBGridMainForm LCLVersion = '0.9.31' object RxDBGrid1: TRxDBGrid Left = 0 - Height = 698 - Top = 66 + Height = 699 + Top = 64 Width = 1187 TitleButtons = True AutoSort = True @@ -22,7 +22,6 @@ object RxDBGridMainForm: TRxDBGridMainForm item Title.Alignment = taCenter Title.Caption = '...' - Title.PrefixOption = poNone Title.Orientation = toHorizontal Title.Hint = 'DEVELOPER' Title.ShowHint = True @@ -43,7 +42,6 @@ object RxDBGridMainForm: TRxDBGridMainForm item Title.Alignment = taCenter Title.Caption = 'Code' - Title.PrefixOption = poNone Title.Orientation = toHorizontal Title.Hint = 'Code - ID' Title.ShowHint = True @@ -62,7 +60,6 @@ object RxDBGridMainForm: TRxDBGridMainForm item Title.Alignment = taCenter Title.Caption = 'Developer' - Title.PrefixOption = poNone Title.Orientation = toHorizontal Title.Hint = 'Developer full name' Title.ShowHint = True @@ -78,7 +75,6 @@ object RxDBGridMainForm: TRxDBGridMainForm item Title.Alignment = taCenter Title.Caption = 'Computer software (all info) - Программное обеспечение|Name' - Title.PrefixOption = poNone Title.Orientation = toHorizontal Title.Hint = 'Product name' Title.ShowHint = True @@ -94,7 +90,6 @@ object RxDBGridMainForm: TRxDBGridMainForm item Title.Alignment = taCenter Title.Caption = 'Computer software (all info) - Программное обеспечение|Cost' - Title.PrefixOption = poNone Title.Orientation = toHorizontal Title.Hint = 'Product price' Title.ShowHint = True @@ -115,7 +110,6 @@ object RxDBGridMainForm: TRxDBGridMainForm item Title.Alignment = taCenter Title.Caption = 'Computer software (all info) - Программное обеспечение|Date Present' - Title.PrefixOption = poNone Title.Orientation = toHorizontal Title.Hint = 'Soft date present...' Title.ShowHint = True @@ -130,7 +124,6 @@ object RxDBGridMainForm: TRxDBGridMainForm item Title.Alignment = taCenter Title.Caption = 'DEVELOPER_ID' - Title.PrefixOption = poNone Title.Orientation = toHorizontal Title.Hint = 'DEVELOPER' Title.ShowHint = True @@ -151,7 +144,6 @@ object RxDBGridMainForm: TRxDBGridMainForm ) Title.Alignment = taCenter Title.Caption = 'Rait' - Title.PrefixOption = poNone Title.Orientation = toHorizontal FieldName = 'RAIT' Filter.Font.Style = [fsItalic] @@ -192,6 +184,9 @@ object RxDBGridMainForm: TRxDBGridMainForm ShortCut = 16456 Enabled = True end> + FooterOptions.Active = True + FooterOptions.Color = clYellow + FooterOptions.RowCount = 1 PropertyStorage = XMLPropStorage1 Version = 1 OptionsRx = [rdgAllowColumnsForm, rdgAllowDialogFind, rdgHighlightFocusCol, rdgHighlightFocusRow, rdgDblClickOptimizeColWidth, rdgFooterRows, rdgXORColSizing, rdgMultiTitleLines, rdgAllowQuickSearch, rdgAllowQuickFilter, rdgAllowFilterForm, rdgAllowSortForm, rdgAllowToolMenu] @@ -215,22 +210,22 @@ object RxDBGridMainForm: TRxDBGridMainForm end object Panel1: TPanel Left = 0 - Height = 66 + Height = 64 Top = 0 Width = 1187 Align = alTop AutoSize = True - ClientHeight = 66 + ClientHeight = 64 ClientWidth = 1187 TabOrder = 1 object Label1: TLabel AnchorSideLeft.Control = Button2 AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = Panel1 - Left = 279 - Height = 14 + Left = 270 + Height = 16 Top = 7 - Width = 29 + Width = 36 BorderSpacing.Around = 6 Caption = 'Mode' ParentColor = False @@ -239,9 +234,9 @@ object RxDBGridMainForm: TRxDBGridMainForm AnchorSideLeft.Control = Panel1 AnchorSideTop.Control = Panel1 Left = 7 - Height = 29 + Height = 27 Top = 7 - Width = 93 + Width = 86 Action = actCalcTotal AutoSize = True BorderSpacing.Around = 6 @@ -251,10 +246,10 @@ object RxDBGridMainForm: TRxDBGridMainForm AnchorSideLeft.Control = Button1 AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = Panel1 - Left = 106 - Height = 29 + Left = 99 + Height = 27 Top = 7 - Width = 167 + Width = 165 Action = actOptimizeColumnsWidthAll AutoSize = True BorderSpacing.Around = 6 @@ -265,11 +260,11 @@ object RxDBGridMainForm: TRxDBGridMainForm AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = CheckBox2 AnchorSideTop.Side = asrBottom - Left = 508 - Height = 23 + Left = 499 + Height = 22 Hint = 'Use filter line' - Top = 36 - Width = 79 + Top = 35 + Width = 83 BorderSpacing.Left = 6 Caption = 'Use filter' OnChange = CheckBox1Change @@ -279,12 +274,12 @@ object RxDBGridMainForm: TRxDBGridMainForm AnchorSideLeft.Control = Label1 AnchorSideTop.Control = Label1 AnchorSideTop.Side = asrBottom - Left = 285 - Height = 27 - Top = 27 + Left = 276 + Height = 25 + Top = 29 Width = 217 BorderSpacing.Around = 6 - ItemHeight = 19 + ItemHeight = 0 ItemIndex = 0 Items.Strings = ( 'Edit mode' @@ -299,11 +294,11 @@ object RxDBGridMainForm: TRxDBGridMainForm AnchorSideLeft.Control = ComboBox1 AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = Panel1 - Left = 508 - Height = 23 + Left = 499 + Height = 22 Hint = 'Auto fill column width' Top = 7 - Width = 128 + Width = 133 BorderSpacing.Around = 6 Caption = 'Auto fill columns' OnChange = CheckBox2Change @@ -313,10 +308,10 @@ object RxDBGridMainForm: TRxDBGridMainForm AnchorSideLeft.Control = CheckBox2 AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = Panel1 - Left = 642 - Height = 23 + Left = 638 + Height = 22 Top = 7 - Width = 116 + Width = 120 BorderSpacing.Around = 6 Caption = 'Show indicator' Checked = True @@ -329,10 +324,10 @@ object RxDBGridMainForm: TRxDBGridMainForm AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = CheckBox3 AnchorSideTop.Side = asrBottom - Left = 642 - Height = 23 - Top = 36 - Width = 110 + Left = 638 + Height = 22 + Top = 35 + Width = 115 BorderSpacing.Around = 6 Caption = 'Show headers' Checked = True diff --git a/components/rx/Demos/RxDateEdit/project1.lpi b/components/rx/Demos/RxDateEdit/project1.lpi index 00737c78d..80ebe5aa9 100644 --- a/components/rx/Demos/RxDateEdit/project1.lpi +++ b/components/rx/Demos/RxDateEdit/project1.lpi @@ -1,19 +1,21 @@ - + - - - + + - + + + + @@ -44,11 +46,13 @@ - - + + + + @@ -56,200 +60,206 @@ - - + + + + + - + - - + + + - + - + - - + + - + - + - + - + - + - + - - + + - + - + - - + + - + - + - - + + - - + + - + - + - - + + - - + + - - + + - + - - + + + - + - + - + - + - - + + - - + + - + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - + - - - - - + - + - + + + + + + diff --git a/components/rx/Demos/Text90/project1.lpi b/components/rx/Demos/Text90/project1.lpi index 0396e71ba..1afc647c0 100644 --- a/components/rx/Demos/Text90/project1.lpi +++ b/components/rx/Demos/Text90/project1.lpi @@ -1,16 +1,18 @@ + - - - + + + + @@ -36,7 +38,7 @@ - + @@ -45,103 +47,105 @@ - + - - + + + + - + - + - + - + - + - + - + - + - + - + - + - + - + - + @@ -149,68 +153,89 @@ - + - + - + - + - + - + - + - - + + + - + + + + + + + + + + + + + + + + + + + + + - + @@ -221,16 +246,37 @@ - + + + + + + + + + + + + + + + + + - + - + + + + + + diff --git a/components/rx/rx.inc b/components/rx/rx.inc index ee9bae42d..f91b7308f 100644 --- a/components/rx/rx.inc +++ b/components/rx/rx.inc @@ -49,4 +49,4 @@ // {.$DEFINE DBDateEdit_OLD} -{.$DEFINE OLD_STYLE_TEXT_ROTATE} + diff --git a/components/rx/vclutils.pas b/components/rx/vclutils.pas index fd7ce802b..ffd83ed1a 100644 --- a/components/rx/vclutils.pas +++ b/components/rx/vclutils.pas @@ -219,25 +219,8 @@ end; procedure RotateLabel(Canvas: TCanvas; x, y: Integer; const St: String; RotDegree: Integer); var -{ OldFont, NewFont: HFONT; - LogRec: TLOGFONT; - DC: HDC;} L:integer; 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; Canvas.Font.Orientation:=RotDegree * 10; Canvas.TextOut(X, Y, St);