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

In property TRxDBLookupCombo.PopUpFormOptions add field AutoFillColumns. Used in dropdown list.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@424 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75 2008-04-15 20:49:20 +00:00
parent 30ea3d4d03
commit aae8d060c4
4 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/rx/curredit.pas
View File

@ -480,7 +480,7 @@ var
begin begin
S := GetDisplayText; S := GetDisplayText;
if not PaintComboEdit(Self, S, FAlignment, FFocused {and not PopupVisible}, FCanvas, Message) then if not PaintComboEdit(Self, S, FAlignment, FFocused {and not PopupVisible}, FCanvas, Message) then
inherited; inherited WMPaint(Message);
end; end;
procedure TCustomNumEdit.WMPaste(var Message: TLMessage); procedure TCustomNumEdit.WMPaste(var Message: TLMessage);

1
components/rx/docs/WhatsNew.eng.txt
View File

@ -34,6 +34,7 @@
(see rx.inc). (see rx.inc).
+ In RxDBGrid property FixedHotColor now published + In RxDBGrid property FixedHotColor now published
- fix error with empty sring in TRxDateEdit. - fix error with empty sring in TRxDateEdit.
+ In property TRxDBLookupCombo.PopUpFormOptions add field AutoFillColumns. Used in dropdown list.
29.08.2007 - ¢¥àá¨ï 1.1.5.98 (svn revision 39) 29.08.2007 - ¢¥àá¨ï 1.1.5.98 (svn revision 39)
+ In RxDBgrid - after close dataset list of SelectedRows is cleared + In RxDBgrid - after close dataset list of SelectedRows is cleared
+ fix resaizing find form for RxDbGrd + fix resaizing find form for RxDbGrd

2
components/rx/docs/WhatsNew.rus.txt
View File

@ -40,6 +40,8 @@
в дизайнере. в дизайнере.
+ В RxDBGrid опубликованы недостающие поля + В RxDBGrid опубликованы недостающие поля
- Исправлена ошибка в обработке пустой даты в редакторе дат. - Исправлена ошибка в обработке пустой даты в редакторе дат.
+ В свойстве PopUpFormOptions компоненты TRxDBLookupCombo добавлено поле AutoFillColumns - аналог одноимённого поля
из TDBGrid - используется в выпадающем списке
29.08.2007 - версия 1.1.5.98 (svn revision 39) 29.08.2007 - версия 1.1.5.98 (svn revision 39)
+ В RxDBGrid После закрытия набора данных список помеченных строк (SelectedRows) + В RxDBGrid После закрытия набора данных список помеченных строк (SelectedRows)
очищается очищается

2
components/rx/rxlookup.pas
View File

@ -795,7 +795,7 @@ var
S: string; S: string;
F:TField; F:TField;
begin begin
if FValuesList.Count=0 then exit; if (FValuesList.Count=0) or (not LookupSource.DataSet.Active) then exit;
if ColorToRGB(Self.Color) <> ColorToRGB(clBtnFace) then if ColorToRGB(Self.Color) <> ColorToRGB(clBtnFace) then
ACanvas.Pen.Color := clBtnFace ACanvas.Pen.Color := clBtnFace
else else