fix error in RxDBLockupCombo

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@900 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2009-07-08 15:44:33 +00:00
parent f895ddb46d
commit e50a7fa3dc
2 changed files with 12 additions and 8 deletions

View File

@ -357,7 +357,7 @@ type
property AutoAdvance default aaRightDown; property AutoAdvance default aaRightDown;
property AutoFillColumns; property AutoFillColumns;
property AutoEdit; property AutoEdit;
//property BiDiMode; property BiDiMode;
property BorderSpacing; property BorderSpacing;
property BorderStyle; property BorderStyle;
property Color; property Color;
@ -373,11 +373,12 @@ type
property DataSource; property DataSource;
property DefaultDrawing; property DefaultDrawing;
property DefaultRowHeight stored IsDefaultRowHeightStored default 18 ; property DefaultRowHeight stored IsDefaultRowHeightStored default 18 ;
//property DragCursor; property DragCursor;
//property DragKind; property DragKind;
//property DragMode; property DragMode;
property Enabled; property Enabled;
property FixedColor; property FixedColor;
property FixedCols;
property Flat; property Flat;
property Font; property Font;
property HeaderHotZones; property HeaderHotZones;
@ -386,11 +387,11 @@ type
//property ImeName; //property ImeName;
property Options; property Options;
property OptionsExtra; property OptionsExtra;
//property ParentBiDiMode; property ParentBiDiMode;
property ParentColor; property ParentColor;
//property ParentCtl3D; //property ParentCtl3D;
property ParentFont; property ParentFont;
//property ParentShowHint; property ParentShowHint;
property PopupMenu; property PopupMenu;
property ReadOnly; property ReadOnly;
property Scrollbars default ssBoth; property Scrollbars default ssBoth;
@ -410,7 +411,7 @@ type
property OnDrawColumnCell; property OnDrawColumnCell;
property OnDblClick; property OnDblClick;
property OnEditButtonClick; property OnEditButtonClick;
//property OnEndDock; property OnEndDock;
property OnEndDrag; property OnEndDrag;
property OnEnter; property OnEnter;
property OnExit; property OnExit;
@ -423,7 +424,7 @@ type
property OnMouseUp; property OnMouseUp;
property OnPrepareCanvas; property OnPrepareCanvas;
property OnSelectEditor; property OnSelectEditor;
//property OnStartDock; property OnStartDock;
property OnStartDrag; property OnStartDrag;
property OnTitleClick; property OnTitleClick;
property OnUserCheckboxBitmap; property OnUserCheckboxBitmap;

View File

@ -469,7 +469,10 @@ begin
end; end;
//Set options //Set options
if not (pfgIndicator in FPopUpFormOptions.FOptions) then if not (pfgIndicator in FPopUpFormOptions.FOptions) then
begin
FGrid.Options:=FGrid.Options - [dgIndicator]; FGrid.Options:=FGrid.Options - [dgIndicator];
FGrid.FixedCols:=0;
end;
if not (pfgColLines in FPopUpFormOptions.FOptions) then if not (pfgColLines in FPopUpFormOptions.FOptions) then
FGrid.Options:=FGrid.Options - [dgColLines]; FGrid.Options:=FGrid.Options - [dgColLines];