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

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

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);

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

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)
��������� ���������

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