Форум: "KOL";
Текущий архив: 2007.07.22;
Скачать: [xml.tar.bz2];
Внизошибка в 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;
Ну это так, отвлечение на абстракцию :))
← →
Don © (2006-12-07 10:23) [5]При рисовании градиента со стилями 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 чище получается.
Страницы: 1 вся ветка
Форум: "KOL";
Текущий архив: 2007.07.22;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.079 c