You've already forked lazarus-ccr
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:
@ -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);
|
||||||
|
@ -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
|
||||||
|
@ -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)
|
||||||
���������
|
���������
|
||||||
|
@ -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
|
||||||
|
Reference in New Issue
Block a user