| 1131 |
|
3, {Assume UNICODE_FSS is really UTF8} |
| 1132 |
|
4: {Include GB18030 - assuming UTF8 routines work for this codeset} |
| 1133 |
|
if DisplayWidth = 0 then |
| 1134 |
< |
Result := Utf8EscapeControlChars(TextToSingleLine(Result)) |
| 1134 |
> |
Result := ValidUTF8String(TextToSingleLine(Result)) |
| 1135 |
|
else |
| 1136 |
|
if UTF8Length(Result) > DisplayWidth then {Show truncation with elipses} |
| 1137 |
< |
Result := Utf8EscapeControlChars(TextToSingleLine(UTF8Copy(Result,1,DisplayWidth-3))) + '...'; |
| 1137 |
> |
Result := ValidUTF8String(TextToSingleLine(UTF8Copy(Result,1,DisplayWidth-3))) + '...'; |
| 1138 |
|
end; |
| 1139 |
|
end |
| 1140 |
|
end; |
| 2939 |
|
procedure TIBCustomDataSet.RegisterIBLink(Sender: TIBControlLink); |
| 2940 |
|
begin |
| 2941 |
|
if FIBLinks.IndexOf(Sender) = -1 then |
| 2942 |
+ |
begin |
| 2943 |
|
FIBLinks.Add(Sender); |
| 2944 |
+ |
if Active then |
| 2945 |
+ |
begin |
| 2946 |
+ |
Active := false; |
| 2947 |
+ |
Active := true; |
| 2948 |
+ |
end; |
| 2949 |
+ |
end; |
| 2950 |
|
end; |
| 2951 |
|
|
| 2952 |
|
|
