diff --git a/components/rx/docs/makehtml.sh b/components/rx/docs/makehtml.sh index f54d91283..1ec564657 100755 --- a/components/rx/docs/makehtml.sh +++ b/components/rx/docs/makehtml.sh @@ -1,8 +1,11 @@ #!/bin/bash #надо скопировать rx.inc в текущий каталог, иначе не соберём (глюк fpdoc) cp ../rx.inc rx.inc -fpdoc --package=rxfpc --format=html -I/usr/local/share/lazarus/components/rxnew \ +fpdoc --package=rxfpc --format=html \ --input=../rxversinfo.pas --descr=rxfpc.xml \ --input=../rxdbgrid.pas --descr=rxfpc.xml \ + --input=../curredit.pas --descr=rxfpc.xml \ + --input=../rxlookup.pas --descr=rxfpc.xml \ + --input=../rxfileutils.pas --descr=rxfpc.xml \ --input=../pickdate.pas --descr=rxfpc.xml diff --git a/components/rx/docs/rxfpc.xml b/components/rx/docs/rxfpc.xml index a72d622ed..f09f73177 100644 --- a/components/rx/docs/rxfpc.xml +++ b/components/rx/docs/rxfpc.xml @@ -322,36 +322,74 @@ Description - + + TCurrencyEdit Component + +

Компонента служит для ввода и редактирования чисел и денежных сумм. TCurrencyEdit имеет те же свойства, что и ее предок TEdit, но позволяет дополнительно указать формат отображения числа и символы для обозначения вида валюты с помощью свойства DisplayFormat, а также максимальное число символов после десятичной точки (при вводе данных) с помощью свойства DecimalPlaces. Свойство Value позволяет получить или установить численную величину отображаемого в компоненте значения.

+

Если свойство BeepOnError установлено в True, то при вводе в строку недопустимых символов раздается звуковой сигнал.

+ + - - - + + +

Свойство позволяет обратиться к значению Value, сохраненному в компоненте - редакторе для ввода чисел, как к целому числу.

+ + + + Свойство служит для доступа на чтение к форматированному в соответствии со значением DisplayFormat представлению значения ValueValue (совпадает с отображаемой строкой в компоненте, когда элемент редактирования не имеет фокуса ввода). В отличие от этого свойства, свойство Text всегда возвращает неформатированную строку. + + + Свойство позволяет установить (или получить) численную величину значения, отображаемого в строке ввода. В случае пустой строки возвращается значение 0. + - - - + + Определяет факт автоматического выделения всего текста при попадании фокуса клавиатурного ввода в компонент + + + Свойство определяет, будет ли размер автоматически изменяться размер шрифта + + + Если значение этого свойства установлено в True (по умолчанию False), то при ошибках ввода с клавиатуры (недопустимых символов и т.д.) раздается звуковой сигнал. + - + + +

Свойство определяет, будет ли проверяться допустимый диапазон числа в компонентах TCurrencyEdit при потере фокуса строкой редактирования.

+

Если CheckOnExit = True, то в случае ввода недопустимого значения происходит исключение (exception).

+ + - - + + Свойство определяет максимально допустимое число десятичных знаков при вводе и изменении данных в строке редактирования компоненты TCurrencyEdit. Используется, когда строка имеет фокус ввода. При отображении значения в несфокусированной строке редактирования свойство не используется - применяется маска, заданная свойством DisplayFormat. + + + + Свойство задает формат отображения данных в компоненте TCurrencyEdit. При получении компонентой фокуса ввода форматирование данных отменяется и ввод происходит как в обычную строку ввода TEdit. При потере фокуса ввода данные форматируются согласно заданному формату. + - + + Свойство определяет, будет ли автоматически форматироваться значение в строке редактора непосредственно при редактировании. +Формат ввода определяется переменными DecimalSeparator и ThousandSeparator из модуля SysUtils.pas и свойством DecimalPlaces + + - - + + Максимально допустимое значение свойства Value. Значение MaxValue ограничивает максимальную величину числа, которое можно ввести в строку ввода. + + + Минимально допустимое значение свойства Value. Значение MinValue ограничивает минимальную величину числа, которое можно ввести в строку ввода. + @@ -363,7 +401,9 @@ Description - + + Если значение этого свойства равно True, то когда редактор имеет фокус ввода и значение ValueValue = 0, в нем с качестве текста отображается пустая строка. Если ZeroEmpty = False, то в этом случае текст '0'. + @@ -382,24 +422,38 @@ Description + CurrEdit Unit + +

The CurrEdit unit contains the declarations for the certain components on the RX Controls page of the Component palette and their associated objects, types, and constants. +When you add a component declared in this unit to a form, the unit is automatically added to the uses clause of that form's unit.

+

The following items are declared in the CurrEdit unit:

+

+ Components and objects +

+

+ TCurrencyEdit +

+

To see a listing of items declared in this unit including their declarations, use the ObjectBrower.

+ TRxLookupEdit Component - Unit -RxLookup -Description -Компонента TRxLookupEdit представляет собой редактор с возможностью как прямого ввода текста пользователем в строке редактирования, так и выбора текста из выпадающего списка, заполняемого значениями из базы данных. При открытом списке набор пользователем символов с клавиатуры приводит к позиционированию списка на ближайшую запись, совпадающую с введенным текстом. -Для заполнения выпадающего списка используются свойства LookupSource, LookupField, LookupDisplay и LookupDisplayIndex, аналогично списку компоненты TRxDBLookupCombo. -Введенное пользователем или выбранное из списка значение доступно через свойство Text. -Свойство LookupValue (read-only) позволяет получить значение ключевого поля из lookup-набора данных (заданного свойством LookupField), если пользвателем был сделан выбор из списка. + +

Компонента TRxLookupEdit представляет собой редактор с возможностью как прямого ввода текста пользователем в строке редактирования, так и выбора текста из выпадающего списка, заполняемого значениями из базы данных. При открытом списке набор пользователем символов с клавиатуры приводит к позиционированию списка на ближайшую запись, совпадающую с введенным текстом.

+

Для заполнения выпадающего списка используются свойства LookupSource, LookupField, LookupDisplay и LookupDisplayIndex, аналогично списку компоненты TRxDBLookupCombo.

+

Введенное пользователем или выбранное из списка значение доступно через свойство Text. +Свойство LookupValue (read-only) позволяет получить значение ключевого поля из lookup-набора данных (заданного свойством LookupField), если пользвателем был сделан выбор из списка.

+ - + + В случае, если свойство LookupDisplay задает более одного поля для отображения в списке, значение свойства LookupDisplayIndex определяет номер поля, значение которого возвращается свойством DisplayValue. + @@ -488,6 +542,10 @@ TRxDBLookupCombo позволяет использовать в качестве + +

The RxLookup unit contains the declarations for the certain components on the RX DBAware page of the Component palette and their associated objects, types, and constants. +When you add a component declared in this unit to a form, the unit is automatically added to the uses clause of that form's unit.

+ @@ -534,6 +592,9 @@ TRxDBCalcEdit является наследником TDBCalcEdit и имеет + + + Count @@ -563,6 +624,9 @@ TRxDBCalcEdit является наследником TDBCalcEdit и имеет + + + Execute и по содержимому которого будет произведено заполнение массива Files @@ -1606,17 +1670,17 @@ Description - Возвращает имя владельца файла

function GetFileOwnerUser(const SearchDomain, FileName:String):String;

Функция возвращает имя пользователя операционной системы владельца указанного файла.

-

Входные параметры: -SearchDomain - Домен, в котором будет производится поиск оператора (пустой для текущего домена оператора). -FileName - Полное имя файла. -

+

+ Входные параметры: +

+

SearchDomain - Домен, в котором будет производится поиск оператора (пустой для текущего домена оператора).

+

FileName - Полное имя файла.

В данный момент функция реализована только для windows. @@ -1626,16 +1690,32 @@ FileName - Полное имя файла. Возвращает данные владельца файла -

procedure GetFileOwnerData(const SearchDomain, FileName:String;out UserName, DomainName:String); +

+ procedure GetFileOwnerData( + + + const SearchDomain, FileName: + + + String; + + + out UserName, DomainName: + + + String);

Процедура возвращает имя и домен пользователя операционной системы владельца указанного файла.

-

Входные параметры: - SearchDomain - Домен, в котором будет производится поиск оператора (пустой для текущего домена оператора). - FileName - Полное имя файла. -Выходные параметры: - UserName - Имя пльзователя. - DomainName - Домен, в котором найден данный пользователь. -

+

+ Входные параметры: +

+

- SearchDomain - Домен, в котором будет производится поиск оператора (пустой для текущего домена оператора).

+

- FileName - Полное имя файла.

+

+ Выходные параметры: +

+

- UserName - Имя пльзователя.

+

- DomainName - Домен, в котором найден данный пользователь.

В данный момент функция реализована только для windows. @@ -1647,35 +1727,22 @@ FileName - Полное имя файла.

function NormalizeDirectoryName( - - - - - - const DirName: - - - - - - string): - - - - - + string;

+

Функция проверяет все разделители каталогов в указанном имени файла/каталога и, если нужно, меняет их на значение константыDirectorySeparator.

+ + + Содержит дополнительные утилиты работы с файлами и ОС + + Функция GetUserName возвращает имя оператора, залогиненго в системе + +

+ function GetUserName: string;

-Функция проверяет все разделители каталогов в указанном имени файла/каталога и, если нужно, меняет их на значение константы - - - - - - - DirectorySeparator. +

Функция GetUserName возвращает имя оператора, залогиненго в системе

+ diff --git a/components/rx/rxfileutils.pas b/components/rx/rxfileutils.pas index a0d162d95..cfc958ea8 100644 --- a/components/rx/rxfileutils.pas +++ b/components/rx/rxfileutils.pas @@ -40,6 +40,7 @@ uses function GetFileOwnerUser(const SearchDomain, FileName:String):String; procedure GetFileOwnerData(const SearchDomain, FileName:String;out UserName, DomainName:string); function NormalizeDirectoryName(const DirName:string):string; +function GetUserName:string; implementation uses {$IFDEF WINDOWS} @@ -169,5 +170,26 @@ begin Result[i]:=DirectorySeparator; end; +function GetUserName: string; +{$IFDEF WINDOWS} +var + A:array [0..256] of Char; + L:DWORD; +{$ENDIF} +begin + {$IFDEF WINDOWS} + FillChar(A, SizeOf(A), 0); + L:=SizeOf(A)-1; + if Windows.GetUserNameA(@A, L) then + begin + Result:=SysToUTF8(StrPas(@A)); + end + else + Result:=GetEnvironmentVariableUTF8('USERNAME'); + {$ELSE} + Result:=GetEnvironmentVariable('USER'); + {$ENDIF} +end; + end.