new component - TRxDBColorBox

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1618 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2011-05-07 21:43:52 +00:00
parent 0b046f8abd
commit b3928335d7
12 changed files with 259 additions and 62 deletions

View File

@@ -255,9 +255,9 @@ end;
function TCustomRxDBSpinEdit.IsReadOnly: boolean;
begin
result := true;
if FDatalink.Active and not Self.ReadOnly then
result := (Field=nil) or Field.ReadOnly;
Result := true;
if FDatalink.Active and (not Self.ReadOnly) then
Result := (Field = nil) or Field.ReadOnly;
end;
procedure TCustomRxDBSpinEdit.Loaded;