102 |
|
procedure getFBVersion(version: TStrings); |
103 |
|
function HasDecFloatSupport: boolean; override; |
104 |
|
function HasBatchMode: boolean; override; |
105 |
+ |
function HasScollableCursors: boolean; |
106 |
|
|
107 |
|
{Time Zone Support} |
108 |
|
function GetTimeZoneServices: ITimeZoneServices; override; |
442 |
|
(GetODSMajorVersion >= 13); |
443 |
|
end; |
444 |
|
|
445 |
+ |
function TFB30Attachment.HasScollableCursors: boolean; |
446 |
+ |
begin |
447 |
+ |
Result := GetODSMajorVersion >= 12; |
448 |
+ |
end; |
449 |
+ |
|
450 |
|
function TFB30Attachment.GetTimeZoneServices: ITimeZoneServices; |
451 |
|
begin |
452 |
|
if not HasTimeZoneSupport then |