ошибка в WndProcGradientEx

← →
Don © (2006-12-06 15:26) [0]

function Ceil( X: Double ): Integer; begin Result := Round( X ) + 1; end;Этот код неправильно работает, лучше заменить на:

function Ceil( X: Double ): Integer; begin if X < 0 then Result := Trunc(X-0.5) else Result := Trunc(X+0.5); end;
Можно вынести как отдельную функцию (корректное округление)

← →
Don © (2006-12-06 15:34) [1]

Еще используются процедуры ExtSelectClipRgn, но нигде нет обнуления. Соответсвенно, при вызове fOnPaint2, fOnPaint рисовние будет происходить в последнем выделенном регионе... я бы добавил перед проверкой и вызовом fPaint2 SelectClipRgn(Self_.fPaintDC, 0); // дальше как и было if TMethod( Self_.fOnPaint2 ).Code = @ DummyPaintClear then Self_.fOnPaint2 := TOnPaint( MakeMethod( nil, @ DummyPaintProc ) ); if Assigned( Self_.fOnPaint ) then Self_.fOnPaint( Self_, Self_.fPaintDC ); ...

← →
Vladimir Kladov (2006-12-06 16:35) [2]

скажите, на каких исходных параметрах эта ошибка с ceil проявляется, чтобы это было заметно для глаза.

← →
GMax (2006-12-07 01:37) [3]

если я правильно понимаю что такое Ceil и Round, то Round(15.9)+1=17, а классический Ceil(15.9)=16. исправляется заменой Round на Trunc.

но исправленный Don"ом вариант тоже не верен. здесь как раз вместо Trunc должен быть Round :)

← →
Galkov © (2006-12-07 09:12) [4]

> если я правильно понимаю что такое Ceil и Round

Можно попытаться исходить из какого-нибудь определения... Нашел такое:

> 17.12.10 ceil
> Synopsis: Return the lowest integer number greater than or equal to argument
> Declaration: function ceil(x: float) : Integer
> Visibility: default
> Description: Ceil returns the lowest integer number greater than or equal to x. > The absolute value of x should be less than maxint.
> Errors: If the asolute value of x is larger than maxint, an overflow error will occur.

Но тогда правильно будет именно так:
function Ceil( X: Double ): Integer; begin Result := Trunc(X) if Frac(X) > 0 then inc(Result); end;

Ну это так, отвлечение на абстракцию :))

При рисовании градиента со стилями gsElliptic, gsRombic, gsRectangle с цветами
Color1 = RGB ($FF, $FF, $00 ) и
Color2 = RGB ($00, $FF, $FF )
рисуется градиент с абсолюно другими цветами, в частности не учитывается зелёный цвет. При вычислении с использованием Ceil зеленый цвет получается 256. А должен быть 255. Можно еще посмотреть градиент с цветами $FF0000-$FE0000.
По поводу функции, может и ошибся. Надо вообще Ceil убрать и вызывать Round вместо него, в этом случае все в порядке.

← →
Vladimir Kladov (2006-12-07 16:33) [6]

действительно, уголок видно, и при первом исправлении тоже. Просто Round чище получается.

ошибка в WndProcGradientEx Найти похожие ветки