paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

RxFPC: documentation

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4352 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75 2015-09-22 08:06:00 +00:00
parent 32343a87a3
commit 9850c499a2
16 changed files with 144 additions and 107 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
components/rx/trunk/boxprocs.pas
View File

@ -95,17 +95,16 @@ begin
else Result := -1;
end;
{$IFNDEF WIN32}
{function BoxGetCanvas(List: TWinControl): TCanvas;
{.$IFNDEF WIN32}
function BoxGetCanvas(List: TWinControl): TCanvas;
begin
if List is TCustomListBox then
Result := TCustomListBox(List).Canvas
else if List is TRxCustomListBox then
Result := TRxCustomListBox(List).Canvas
{ else if List is TRxCustomListBox then
Result := TRxCustomListBox(List).Canvas }
else Result := nil;
end;
}
{$ENDIF}
{.$ENDIF}
procedure BoxSetItemIndex(List: TWinControl; Index: Integer);
begin
@ -256,15 +255,18 @@ var
Focused: Integer;
begin
Result := False;
{ if (BoxSelCount(List) = 1) or (not BoxMultiSelect(List)) then begin
if (BoxSelCount(List) = 1) or (not BoxMultiSelect(List)) then
begin
Focused := BoxGetItemIndex(List);
if Focused <> LB_ERR then begin
if Focused <> LB_ERR then
begin
DragIndex := BoxItemAtPos(List, Point(X, Y), True);
if (DragIndex >= 0) and (DragIndex <> Focused) then begin
if (DragIndex >= 0) and (DragIndex <> Focused) then
begin
Result := True;
end;
end;
end;}
end;
end;
procedure BoxDragOver(List: TWinControl; Source: TObject;
@ -272,8 +274,9 @@ procedure BoxDragOver(List: TWinControl; Source: TObject;
var
DragIndex: Integer;
R: TRect;
procedure DrawItemFocusRect(Idx: Integer);
(*
procedure DrawItemFocusRect(Idx: Integer);
{$IFDEF WIN32}
var
P: TPoint;
@ -290,34 +293,44 @@ var
{$ELSE}
BoxGetCanvas(List).DrawFocusRect(R);
{$ENDIF}
end;
*)
begin
{ if Source <> List then
Accept := (Source is TWinControl) or (Source is TRxCustomListBox)
else begin
if Sorted then Accept := False
else begin
BoxGetCanvas(List).DrawFocusRect(R);
end;
begin
if Source <> List then
Accept := (Source is TWinControl) { or (Source is TRxCustomListBox) }
else
begin
if Sorted then
Accept := False
else
begin
Accept := BoxCanDropItem(List, X, Y, DragIndex);
if ((List.Tag - 1) = DragIndex) and (DragIndex >= 0) then begin
if State = dsDragLeave then begin
if ((List.Tag - 1) = DragIndex) and (DragIndex >= 0) then
begin
if State = dsDragLeave then
begin
DrawItemFocusRect(List.Tag - 1);
List.Tag := 0;
end;
end
else begin
else
begin
if List.Tag > 0 then DrawItemFocusRect(List.Tag - 1);
if DragIndex >= 0 then DrawItemFocusRect(DragIndex);
List.Tag := DragIndex + 1;
end;
end;
end;}
end;
end;
procedure BoxMoveFocusedItem(List: TWinControl; DstIndex: Integer);
begin
if (DstIndex >= 0) and (DstIndex < BoxItems(List).Count) then
if (DstIndex <> BoxGetItemIndex(List)) then begin
if (DstIndex <> BoxGetItemIndex(List)) then
begin
BoxItems(List).Move(BoxGetItemIndex(List), DstIndex);
BoxSetItem(List, DstIndex);
end;

14
components/rx/trunk/docs/autopanel.xml Normal file
View File

@ -0,0 +1,14 @@
<?xml version="1.0" encoding="UTF-8"?>
<fpdoc-descriptions><package name="rxnew"><module name="AutoPanel"><short>Модуль содержит класс TAutoPanel - компонент для масштабирование визуальных элементов</short><descr>Модуль содержит класс TAutoPanel - компонент для масштабирование визуальных элементов</descr><element name="TAutoPanel"><short>класс TAutoPanel - компонент для масштабирование визуальных элементов</short><descr><p>Класс TAutoPanel предназначен для управления размерами визуальных эелементов, расположенных на форме при изменении размеров формы
Для нормальной работы масштабирования у всех компонентов, расположенных на данной панеле необходимо отключить параметр AutoSize
</p><p>Непосредственно масштабированием управляют свойства AutoChildPosLeft, AutoChildPosTop, AutoChildWidth, AutoChildHeight</p>
</descr>
</element><element name="TAutoPanel.AutoChildPosLeft"><short>При масштабировании меняется левая позиция компонентов</short>
</element><element name="TAutoPanel.AutoChildPosTop"><short>При масштабировании меняется верхняя позиция компонентов</short>
</element><element name="TAutoPanel.AutoChildWidth"><short>При масштабировании меняется ширина компонентов</short>
</element><element name="TAutoPanel.AutoChildHeight"><short>При масштабировании меняется высота компонентов</short>
</element><element name="TAutoPanel.Resize"><short>Метод выполняет масштабирование всех элементов, расположенных на панеле</short><descr>Метод выполняет масштабирование всех элементов, расположенных на панеле</descr>
</element>
</module>
</package>
</fpdoc-descriptions>

8
components/rx/trunk/docs/boxprocs.xml Normal file
View File

@ -0,0 +1,8 @@
<?xml version="1.0" encoding="UTF-8"?>
<fpdoc-descriptions><package name="rxnew"><module name="boxprocs"><short>Модуль предназначен для управления содержимым 2 элементов управления типа TListBox</short><descr>В основном используется в компоненте TDualListBox</descr><element name="BoxMoveSelectedItems"><short>Переносит выбранные элементы из списка источника в список приёмник</short>
</element><element name="BoxMoveAllItems"><short>Переносит все элементы из списка источника в список приёмник</short>
</element><element name="BoxMoveFocusedItem"><short>Переносит выбранный эелемент из списка источника в список приёмник</short>
</element>
</module>
</package>
</fpdoc-descriptions>

23
components/rx/trunk/docs/dbutils.xml Normal file
View File

@ -0,0 +1,23 @@
<?xml version="1.0" encoding="UTF-8"?>
<fpdoc-descriptions><package name="rxnew"><module name="dbutils"><short>Модуль dbutils содержит вспомогательные процедуры для работы с БД</short><descr>Модуль dbutils содержит вспомогательные процедуры для работы с объектами баз данных</descr><element name="IntegerDataTypes"><short>Гррупирующее множество целочисленных типов</short>
</element><element name="NumericDataTypes"><short>Гррупирующее множество числовых типов</short>
</element><element name="DataTimeTypes"><short>Гррупирующее множество типов для хранения даты и времени</short>
</element><element name="StringTypes"><short>Гррупирующее множество типов для хранения строк</short>
</element><element name="TRxSearchDirection"><short>Тип для определения направлений поиска</short><descr><p>rsdAll - искать везде</p><p>rsdForward - искать далее</p><p>rsdBackward - искать назад</p>
</descr>
</element><element name="TLocateObject"><short>Класс объекта для поиска данных в экземпляре наследника от TDataSet</short>
</element><element name="IsDataSetEmpty"><short>Функция проверяет наличие данных в объекте типа TDataSet</short>
</element><element name="RefreshQuery"><short>Функция перечитывает данные в объекте типа TDataSet</short>
</element><element name="TrueExpr"><short>Формальное представлени для истинного выражения</short>
</element><element name="_DBError"><short>Функция сообщения об ошибке</short>
</element><element name="FieldValueToStrings"><short>Функция заполняет массив List типа TStrings значениями поля FieldName из набора данных DataSet</short>
</element><element name="CloneRecord"><short>Функция создаёт дубликат текущей записи, за исключением полей, перечисленных в IgnoreFields</short>
</element><element name="FillValueForField"><short>Функция заполняет поле Field всех записей набора данных значением Value</short>
</element><element name="ConfirmDelete"><short>Функция выдаёт диалоговое окно подтверждения удаления данных</short>
</element><element name="ConfirmDataSetCancel"><short>Функция завершает редактирование набора данных вопросом о сохранении</short><descr>Функция завершает редактирование набора данных вопросом о сохранении
При подтверждении сохранения вызывается метод Post
При отмене - метод Cancel</descr>
</element>
</module>
</package>
</fpdoc-descriptions>

9
components/rx/trunk/docs/folderlister.xml
View File

@ -70,9 +70,10 @@
<link id="TFolderLister.Files"/>
</seealso>
</element>
<element name="TFolderLister.DefaultExt"/>
<element name="TFolderLister.DefaultExt"><short>Маска для скнирования файлов</short>
</element>
<element name="TFolderLister.FileFolder">
<short>Свойство FileFolder</short>
<short>Папка, в которой будет производится поиск файлов</short>
<descr>
<b>property FileFolder:string</b>
<p>Свойство FileFolder определяет каталог с файлами, который будет сканироваться при вызове метода <link id="TFolderLister.Execute">Execute</link> и по содержимому которого будет произведено заполнение массива Files</p>
@ -100,6 +101,10 @@
<link id="TFolderLister.Execute"/>
</seealso>
</element>
<short>Модуль содержит компонент предназначенные для просмотра содержимого указанной папки</short><element name="TCustomFolderLister.Execute"><short>Метод сканирует содержимое указанной папки и заполняет массив Files</short>
</element><element name="TCustomFolderLister.Files"><short>Свойство содержит список просканированных файлов</short>
</element><element name="TCustomFolderLister.Count"><short>Кол-во найденных файлов</short>
</element>
</module>

10
components/rx/trunk/docs/makehtml.sh
View File

@ -1,9 +1,9 @@
#!/bin/bash
#надо скопировать rx.inc в текущий каталог, иначе не соберём (глюк fpdoc)
cp ../rx.inc rx.inc
fpdoc --package=rxfpc --format=html --index-colcount=4 --hide-protected \
--input=../curredit.pas --descr=curredit.xml \
--input=../dbdateedit.pas --descr=rxfpc.xml \
--input=../dbutils.pas --descr=dbutils.xml \
--input=../duallist.pas --descr=duallist.xml \
--input=../folderlister.pas --descr=folderlister.xml \
--input=../rxctrls.pas --descr=rxctrls.xml \
@ -37,6 +37,14 @@ fpdoc --package=rxfpc --format=html --index-colcount=4 --hide-protected \
--input=../rxviewspanel.pas --descr=RxViewsPanel.xml \
--input=../rxdbgridfootertools.pas --descr=rxdbgridfootertools.xml \
--input=../rxdbgridfootertools_setup.pas --descr=rxdbgridfootertools_setup.xml \
--input=../autopanel.pas --descr=autopanel.xml \
--input=../boxprocs.pas --descr=boxprocs.xml \
--input=../rxinipropstorage.pas --descr=rxinipropstorage.xml
fpdoc --package=rxdbgrid_print --format=html --index-colcount=4 --hide-protected \
--input=../rxdbgridprintgrid.pas --descr=rxdbgridprintgrid.xml
fpdoc --package=rxdbgrid_export_spreadsheet --format=html --index-colcount=4 --hide-protected \
--input=../rxdbgridexportspreadsheet.pas --descr=rxdbgridexportspreadsheet.xml \
--input=../rxdbgridexportspreadsheet_paramsunit.pas rxdbgridexportspreadsheet_paramsunit.xml

19
components/rx/trunk/docs/rxdbgridexportspreadsheet.xml Normal file
View File

@ -0,0 +1,19 @@
<?xml version="1.0" encoding="UTF-8"?>
<fpdoc-descriptions><package name="rxdbgrid_export_spreadsheet"><module name="RxDBGridExportSpreadSheet"><short>Набор инструментов для экспорта данных из RXDBGrid в формат электронных таблиц</short><descr>Набор инструментов для экспорта данных из RXDBGrid в формат электронных таблиц
Для экспорта используется библиотека fpspreadsheet</descr><element name="TRxDBGridExportSpreadSheetOption"><short>Параметры экспорта</short><descr>ressExportTitle - экспорт заголовков колонок
ressExportColors - экспорт цвета ячеек
ressExportFooter - экспорт строки итогов
ressOverwriteExisting - при экспорте перезаписывать существующий файл</descr>
</element><element name="TRxDBGridExportSpreadSheetOption.ressExportTitle"><short>экспорт заголовков колонок</short>
</element><element name="TRxDBGridExportSpreadSheetOption.ressExportColors"><short>экспорт цвета ячеек</short>
</element><element name="TRxDBGridExportSpreadSheetOption.ressExportFooter"><short>экспорт строки итогов</short>
</element><element name="TRxDBGridExportSpreadSheetOption.ressOverwriteExisting"><short>при экспорте перезаписывать существующий файл</short>
</element><element name="TRxDBGridExportSpreadSheet"><short>Объект экспорта данных в электронную таблицу</short>
</element><element name="TRxDBGridExportSpreadSheet.FileName"><short>Имя файла для экспорта</short>
</element><element name="TRxDBGridExportSpreadSheet.PageName"><short>Имя страницы с данными</short>
</element><element name="TRxDBGridExportSpreadSheet.Options"><short>Параметры экспорта</short>
</element><element name="TRxDBGridExportSpreadSheet.OpenAfterExport"><short>Открывать файл после экспорта</short>
</element>
</module>
</package>
</fpdoc-descriptions>

5
components/rx/trunk/docs/rxdbgridexportspreadsheet_paramsunit.xml Normal file
View File

@ -0,0 +1,5 @@
<?xml version="1.0" encoding="UTF-8"?>
<fpdoc-descriptions><package name="rxdbgrid_export_spreadsheet"><module name="RxDBGridExportSpreadSheet_ParamsUnit"><short>Модуль содержит форму для запроса параметров экспорта</short><descr>Модуль содержит форму для запроса параметров экспорта данных из RxDBGrid в элекронную таблицы</descr>
</module>
</package>
</fpdoc-descriptions>

12
components/rx/trunk/docs/rxdbgridprintgrid.xml Normal file
View File

@ -0,0 +1,12 @@
<?xml version="1.0" encoding="UTF-8"?>
<fpdoc-descriptions><package name="rxdbgrid_print"><module name="RxDBGridPrintGrid"><short>Модуль обеспечивает печать содержимого RxDBGrid</short><element name="TRxDBGridPrint"><short>TRxDBGridPrint - инструмент печати содердимого RxDBGrid</short>
</element><element name="TRxDBGridPrint.ReportTitle"><short>Заголовок отчёта</short>
</element><element name="TRxDBGridPrint.ShowColumnHeaderOnAllPage"><short>Признак отображаения заголовков колонок на всех страницах</short>
</element><element name="TRxDBGridPrint.PageMargin"><short>Отступы на странице</short>
</element><element name="TRxDBGridPrint.ShowProgress"><short>Отображать прогрес построения отчёта</short>
</element><element name="TRxDBGridPrint.Orientation"><short>Ориентация бумаги при построении отчёта</short>
</element><element name="TRxDBGridPrint.PreviewReport"><short>Отобразаить форму предавирительного просмотра отчёта</short>
</element>
</module>
</package>
</fpdoc-descriptions>

10
components/rx/trunk/fduallst.lfm
View File

@ -11,7 +11,7 @@ object DualListForm: TDualListForm
OnActivate = ListClick
OnShow = ListClick
Position = poScreenCenter
LCLVersion = '1.3'
LCLVersion = '1.5'
object SrcLabel: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
@ -42,7 +42,7 @@ object DualListForm: TDualListForm
AnchorSideRight.Control = IncAllBtn
AnchorSideBottom.Control = ButtonPanel1
Left = 6
Height = 258
Height = 257
Top = 33
Width = 247
Anchors = [akTop, akLeft, akRight, akBottom]
@ -71,7 +71,7 @@ object DualListForm: TDualListForm
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = ButtonPanel1
Left = 299
Height = 258
Height = 257
Top = 33
Width = 247
Anchors = [akTop, akLeft, akRight, akBottom]
@ -174,8 +174,8 @@ object DualListForm: TDualListForm
end
object ButtonPanel1: TButtonPanel
Left = 6
Height = 41
Top = 297
Height = 42
Top = 296
Width = 540
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True

68
components/rx/trunk/fduallst.lrs
View File

@ -1,68 +0,0 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TDualListForm','FORMDATA',[
'TPF0'#13'TDualListForm'#12'DualListForm'#4'Left'#3#148#3#6'Height'#3'X'#1#3
+'Top'#3#10#1#5'Width'#3'('#2#13'ActiveControl'#7#6'IncBtn'#11'BorderIcons'#11
+#0#7'Caption'#6#12'DualListForm'#12'ClientHeight'#3'X'#1#11'ClientWidth'#3'('
+#2#10'OnActivate'#7#9'ListClick'#6'OnShow'#7#9'ListClick'#8'Position'#7#14'p'
+'oScreenCenter'#10'LCLVersion'#6#3'1.3'#0#6'TLabel'#8'SrcLabel'#22'AnchorSid'
+'eLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#4'Left'#2#6#6
+'Height'#2#21#3'Top'#2#6#5'Width'#2'-'#18'BorderSpacing.Left'#2#6#17'BorderS'
+'pacing.Top'#2#6#7'Caption'#6#6'Source'#11'ParentColor'#8#0#0#6'TLabel'#8'Ds'
+'tLabel'#22'AnchorSideLeft.Control'#7#7'DstList'#21'AnchorSideTop.Control'#7
+#5'Owner'#4'Left'#3'+'#1#6'Height'#2#21#3'Top'#2#6#5'Width'#2#31#17'BorderSp'
+'acing.Top'#2#6#7'Caption'#6#4'Dest'#11'ParentColor'#8#0#0#8'TListBox'#7'Src'
+'List'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#8'S'
+'rcLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7
+#9'IncAllBtn'#24'AnchorSideBottom.Control'#7#12'ButtonPanel1'#4'Left'#2#6#6
+'Height'#3#2#1#3'Top'#2'!'#5'Width'#3#247#0#7'Anchors'#11#5'akTop'#6'akLeft'
+#7'akRight'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#8'DragMode'#7#11'dmAu'
+'tomatic'#10'ItemHeight'#2#0#11'MultiSelect'#9#7'OnClick'#7#9'ListClick'#10
+'OnDblClick'#7#11'IncBtnClick'#10'OnDragDrop'#7#15'SrcListDragDrop'#10'OnDra'
+'gOver'#7#15'SrcListDragOver'#9'OnKeyDown'#7#14'SrcListKeyDown'#14'ParentSho'
+'wHint'#8#11'ScrollWidth'#3#245#0#8'ShowHint'#9#6'Sorted'#9#8'TabOrder'#2#0#8
+'TopIndex'#2#255#0#0#8'TListBox'#7'DstList'#22'AnchorSideLeft.Control'#7#9'I'
+'ncAllBtn'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7
+#8'DstLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Contro'
+'l'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom.C'
+'ontrol'#7#12'ButtonPanel1'#4'Left'#3'+'#1#6'Height'#3#2#1#3'Top'#2'!'#5'Wid'
+'th'#3#247#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#20'Bo'
+'rderSpacing.Around'#2#6#8'DragMode'#7#11'dmAutomatic'#10'ItemHeight'#2#0#11
+'MultiSelect'#9#7'OnClick'#7#9'ListClick'#10'OnDblClick'#7#12'ExclBtnClick'
+#10'OnDragDrop'#7#15'DstListDragDrop'#10'OnDragOver'#7#15'DstListDragOver'#9
+'OnKeyDown'#7#14'DstListKeyDown'#14'ParentShowHint'#8#11'ScrollWidth'#3#245#0
+#8'ShowHint'#9#6'Sorted'#9#8'TabOrder'#2#5#8'TopIndex'#2#255#0#0#7'TButton'#6
+'IncBtn'#22'AnchorSideLeft.Control'#7#9'IncAllBtn'#21'AnchorSideTop.Control'
+#7#7'SrcList'#23'AnchorSideRight.Control'#7#9'IncAllBtn'#20'AnchorSideRight.'
+'Side'#7#9'asrBottom'#4'Left'#3#3#1#6'Height'#2')'#3'Top'#2''''#5'Width'#2'"'
+#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoSize'#9#17'BorderSpacin'
+'g.Top'#2#6#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#1'>'#10'Font.Colo'
+'r'#7#7'clBlack'#10'Font.Style'#11#6'fsBold'#0#7'OnClick'#7#11'IncBtnClick'
+#10'ParentFont'#8#8'TabOrder'#2#1#0#0#7'TButton'#9'IncAllBtn'#22'AnchorSideL'
+'eft.Control'#7#5'Owner'#19'AnchorSideLeft.Side'#7#9'asrCenter'#21'AnchorSid'
+'eTop.Control'#7#6'IncBtn'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#3#3
+#1#6'Height'#2')'#3'Top'#2'V'#5'Width'#2'"'#8'AutoSize'#9#17'BorderSpacing.T'
+'op'#2#6#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#2'>>'#10'Font.Color'
+#7#7'clBlack'#10'Font.Style'#11#6'fsBold'#0#7'OnClick'#7#14'IncAllBtnClick'
+#10'ParentFont'#8#8'TabOrder'#2#2#0#0#7'TButton'#7'ExclBtn'#22'AnchorSideLef'
+'t.Control'#7#9'IncAllBtn'#21'AnchorSideTop.Control'#7#9'IncAllBtn'#18'Ancho'
+'rSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#9'IncAllBtn'#20
+'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#3#1#6'Height'#2')'#3'Top'#3
+#133#0#5'Width'#2'"'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoSiz'
+'e'#9#17'BorderSpacing.Top'#2#6#25'BorderSpacing.InnerBorder'#2#4#7'Caption'
+#6#1'<'#10'Font.Color'#7#7'clBlack'#10'Font.Style'#11#6'fsBold'#0#7'OnClick'
+#7#12'ExclBtnClick'#10'ParentFont'#8#8'TabOrder'#2#3#0#0#7'TButton'#10'ExclA'
+'llBtn'#22'AnchorSideLeft.Control'#7#9'IncAllBtn'#21'AnchorSideTop.Control'#7
+#7'ExclBtn'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'
+#7#9'IncAllBtn'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#3#1#6'Heig'
+'ht'#2')'#3'Top'#3#180#0#5'Width'#2'"'#7'Anchors'#11#5'akTop'#6'akLeft'#7'ak'
+'Right'#0#8'AutoSize'#9#17'BorderSpacing.Top'#2#6#25'BorderSpacing.InnerBord'
+'er'#2#4#7'Caption'#6#2'<<'#10'Font.Color'#7#7'clBlack'#10'Font.Style'#11#6
+'fsBold'#0#7'OnClick'#7#15'ExclAllBtnClick'#10'ParentFont'#8#8'TabOrder'#2#4
+#0#0#12'TButtonPanel'#12'ButtonPanel1'#4'Left'#2#6#6'Height'#2')'#3'Top'#3')'
+#1#5'Width'#3#28#2#13'OKButton.Name'#6#8'OKButton'#23'OKButton.DefaultCaptio'
+'n'#9#15'HelpButton.Name'#6#10'HelpButton'#25'HelpButton.DefaultCaption'#9#16
+'CloseButton.Name'#6#11'CloseButton'#26'CloseButton.DefaultCaption'#9#17'Can'
+'celButton.Name'#6#12'CancelButton'#27'CancelButton.DefaultCaption'#9#8'TabO'
+'rder'#2#6#11'ShowButtons'#11#4'pbOK'#8'pbCancel'#6'pbHelp'#0#0#0#0
]);

7
components/rx/trunk/fduallst.pas
View File

@ -32,7 +32,6 @@
unit fduallst;
{$I RX.INC}
{$L-,S-}
interface
@ -82,8 +81,9 @@ end;
implementation
uses VCLUtils, BOXPROCS;
uses vclutils, boxprocs;
{$R *.lfm}
{ TDualListForm }
@ -214,7 +214,4 @@ begin
SetButtons;
end;
initialization
{$i fduallst.lrs}
end.

1
components/rx/trunk/rxdbgrid.pas
View File

@ -263,7 +263,6 @@ type
end;
{ TRxColumnFooterItem }
TRxColumnFooterItem = class(TCollectionItem)
private
FIsDefaultFont: boolean;

3
components/rx/trunk/rxdbgrid_export_spreadsheet.lpk
View File

@ -2,6 +2,7 @@
<CONFIG>
<Package Version="4">
<Name Value="rxdbgrid_export_spreadsheet"/>
<Type Value="RunAndDesignTime"/>
<Author Value="Lagunov Aleksey"/>
<CompilerOptions>
<Version Value="11"/>
@ -26,7 +27,7 @@
<UnitName Value="RxDBGridExportSpreadSheet_ParamsUnit"/>
</Item3>
</Files>
<Type Value="RunAndDesignTime"/>
<LazDoc Paths="docs"/>
<RequiredPkgs Count="3">
<Item1>
<PackageName Value="laz_fpspreadsheet"/>

3
components/rx/trunk/rxdbgrid_print.lpk
View File

@ -2,6 +2,7 @@
<CONFIG>
<Package Version="4">
<Name Value="rxdbgrid_print"/>
<Type Value="RunAndDesignTime"/>
<CompilerOptions>
<Version Value="11"/>
<SearchPaths>
@ -19,7 +20,7 @@
<UnitName Value="rxdbgridprintgrid_setupunit"/>
</Item2>
</Files>
<Type Value="RunAndDesignTime"/>
<LazDoc Paths="docs"/>
<RequiredPkgs Count="3">
<Item1>
<PackageName Value="lazreport"/>

2
components/rx/trunk/rxdbgridexportspreadsheet.pas
View File

@ -1,6 +1,6 @@
{ RxDBGridExportSpreadSheet unit
Copyright (C) 2005-2013 Lagunov Aleksey alexs@yandex.ru
Copyright (C) 2005-2015 Lagunov Aleksey alexs@yandex.ru
original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it