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;