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

new event for RxLockupCombo, russian documentation

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1215 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2010-05-03 11:05:23 +00:00
parent 058d550ef9
commit 0d17bef28e
2 changed files with 31 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
components/rx/docs/rxfpc.xml
View File

@ -159,6 +159,7 @@
<link id="TRxDBGrid">RxDBGrid</link>-а.</p>
</descr>
</element>
@ -558,6 +559,7 @@
<link id="TRxDBGrid">RxDBGrid</link>-а.</p>
</descr>
<seealso>
@ -1038,6 +1040,12 @@ TRxDBLookupCombo позволяет использовать в качестве
<p>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.</p>
</descr>
<element name="TRxLookupEdit.OnClosePopup">
<descr>Событие возникает при закрытии PopUp окна выбора данных.</descr>
</element>
<element name="TRxDBLookupCombo.OnClosePopup">
<descr>Событие возникает при закрытии PopUp окна выбора данных.</descr>
</element>
</module>
<module name="dbdateedit">
<element name="TDBDateEdit">
@ -1107,6 +1115,7 @@ TRxDBCalcEdit является наследником TDBCalcEdit и имеет
<b>Count</b>
@ -2382,6 +2391,7 @@ Description
<b>const</b> SearchDomain, FileName:
@ -2400,6 +2410,7 @@ Description
<b>String</b>;
@ -2418,6 +2429,7 @@ Description
<b>out</b> UserName, DomainName:
@ -2436,6 +2448,7 @@ Description
<b>String</b>);
</p>
<p>Процедура возвращает имя и домен пользователя операционной системы владельца указанного файла. </p>
@ -2471,6 +2484,7 @@ Description
<b>const</b> DirName:
@ -2483,6 +2497,7 @@ Description
<b>string</b>):
@ -2495,6 +2510,7 @@ Description
<b>string</b>;</p>
<p>Функция проверяет все разделители каталогов в указанном имени файла/каталога и, если нужно, меняет их на значение константы<b>DirectorySeparator</b>.</p>
</descr>
@ -2521,6 +2537,7 @@ Description
<b>string</b>;</p>
<p>Функция <b>GetUserName</b> возвращает имя оператора, залогиненго в системе</p>
</descr>

21
components/rx/rxlookup.pas
View File

@ -165,6 +165,7 @@ type
FEmptyItemColor: TColor;
FEmptyValue: string;
FOnChange: TNotifyEvent;
FOnClosePopup: TClosePopup;
FPopUpFormOptions: TPopUpFormOptions;
//
FRxPopUpForm:TPopUpForm;
@ -238,7 +239,7 @@ type
procedure CalculatePreferredSize(var PreferredWidth, PreferredHeight: integer;
WithThemeSpace: Boolean); override;
procedure ShowList; virtual;
procedure OnClosePopup(AResult:boolean);virtual;
procedure OnInternalClosePopup(AResult:boolean);virtual;
procedure SetEnabled(Value: Boolean); override;
procedure KeyDown(var Key: Word; Shift: TShiftState); override;
procedure KeyPress(var Key: char); override;
@ -291,6 +292,7 @@ type
property Value: string read FValue write SetValue stored False;
property KeyValue: Variant read GetKeyValue write SetKeyValue stored False;
property OnSelect: TNotifyEvent read FOnSelect write FOnSelect;
property OnClosePopup:TClosePopup read FOnClosePopup write FOnClosePopup;
property UnfindedValue : TRxDBValueVariant read FUnfindedValue write FUnfindedValue default rxufNone;
public
@ -302,7 +304,7 @@ type
{ TRxDBLookupCombo }
TRxDBLookupCombo = class(TRxCustomDBLookupCombo)
protected
procedure OnClosePopup(AResult:boolean);override;
procedure OnInternalClosePopup(AResult:boolean);override;
public
property Value;
property KeyValue;
@ -332,6 +334,7 @@ type
Property OnButtonClick;
property OnChange;
property OnClick;
property OnClosePopup;
property OnDblClick;
property OnDragDrop;
property OnDragOver;
@ -1054,12 +1057,12 @@ begin
if FLookupDataLink.Active then
FLookupDataLink.DataSet.First;
FRxPopUpForm:=ShowRxDBPopUpForm(Self, FLookupDataLink.DataSet, @OnClosePopup,
FRxPopUpForm:=ShowRxDBPopUpForm(Self, FLookupDataLink.DataSet, @OnInternalClosePopup,
FPopUpFormOptions, FLookupDisplay, LookupDisplayIndex, 0 {ButtonWidth}, Font);
{$IFDEF LINUX}
TempF:=FRxPopUpForm;
if FRxPopUpForm.ShowModal = mrOk then
OnClosePopup(true);
OnInternalClosePopup(true);
TempF.Free;
FRxPopUpForm:=nil
{$ENDIF}
@ -1143,16 +1146,20 @@ begin
end;
end;
procedure TRxCustomDBLookupCombo.OnClosePopup(AResult: boolean);
procedure TRxCustomDBLookupCombo.OnInternalClosePopup(AResult: boolean);
begin
if Assigned(FRxPopUpForm) and AResult and (pfgColumnResize in FPopUpFormOptions.Options) then
FillPopupWidth(FPopUpFormOptions, FRxPopUpForm);
if Assigned(FOnClosePopup) then
FOnClosePopup(Self, AResult);
if FRxPopUpForm=nil then
begin
SetFocus;
Exit;
end;
FRxPopUpForm:=nil;
if not AResult then
UpdateKeyValue
@ -1638,9 +1645,9 @@ end;
{ TRxDBLookupCombo }
procedure TRxDBLookupCombo.OnClosePopup(AResult: boolean);
procedure TRxDBLookupCombo.OnInternalClosePopup(AResult: boolean);
begin
inherited OnClosePopup(AResult);
inherited OnInternalClosePopup(AResult);
// SetFocus;
{ if (Owner is TWinControl) then
TWinControl(Owner).Repaint