Василий 2,
ну вот текущие, XE6, правки (было, потом стало). я бы не советовал менять, частные правки:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
function TCustomComboBoxEx.GetItemHt: Integer;
begin
Result := Perform(CB_GETITEMHEIGHT, 0, 0); // returns 0 if Handle = 0
end;
function TCustomComboBoxEx.GetItemHt: Integer;
begin
Result := 16;
end;
TDateTimePickerStyleHook.WMPaint
if (seClient in Control.StyleElements) then
if (seClient in Control.StyleElements) and
(not Control.Focused or (ShowCheckBox and not GetChecked)) then
InflateRect(R, -1, -1);
if ShowCheckBox then InflateRect(R, -1, -1);
TDateTimePickerStyleHook.Paint
if seClient in Control.StyleElements then
if (seClient in Control.StyleElements) and
(not Control.Focused or (ShowCheckBox and not GetChecked))
then
TIBRestoreService.SetServiceStartOptions
VersionCheck('11.0', 'Service API write mode '); {do not localize}
//VersionCheck('11.0', 'Service API write mode '); {do not localize}
TIBXSQLVAR.GetAsString
if FXSQLVAR.SqlDef = SQL_TEXT then
SetLength(Result, str_len div GetCharSetSize);
if FXSQLVAR.SqlDef = SQL_TEXT then
begin
i := Length(Result);
NewSize := str_len div GetCharSetSize;
SetLength(Result, NewSize);
if NewSize > i then
for i := i + 1 to NewSize do
Result[i] := ' ';
end;
