187 |
|
ibxeTPBConstantUnknownEx, |
188 |
|
ibxeSV5APIError, |
189 |
|
ibxeThreadFailed, |
190 |
< |
ibxeFieldSizeError |
190 |
> |
ibxeFieldSizeError, |
191 |
> |
ibxTransactionNotEnding |
192 |
|
); |
193 |
|
|
194 |
|
TStatusVector = array[0..19] of ISC_STATUS; |
198 |
|
const |
199 |
|
IBPalette1 = 'Firebird'; {do not localize} |
200 |
|
IBPalette2 = 'Firebird Admin'; {do not localize} |
201 |
+ |
IBPalette3 = 'Firebird Data Controls'; {do not localize} |
202 |
|
|
203 |
|
IBLocalBufferLength = 512; |
204 |
|
IBBigLocalBufferLength = IBLocalBufferLength * 2; |
323 |
|
STPBConstantUnknownEx, |
324 |
|
SSV5APIError, |
325 |
|
SThreadFailed, |
326 |
< |
SFieldSizeError |
326 |
> |
SFieldSizeError, |
327 |
> |
STransactionNotEnding |
328 |
|
); |
329 |
|
|
330 |
|
var |
514 |
|
end; |
515 |
|
|
516 |
|
initialization |
517 |
< |
// IsMultiThread := True; |
517 |
> |
// IsMultiThread := True; |
518 |
|
InitCriticalSection(IBCS); |
519 |
|
IBDataBaseErrorMessages := [ShowSQLMessage, ShowIBMessage]; |
520 |
|
|
521 |
|
finalization |
522 |
|
DoneCriticalSection(IBCS); |
523 |
|
|
524 |
< |
end. |
524 |
> |
end. |