glViewport и его параметры

[Seran4ek]

Добрый вечер. не могу понять, в чом проблема.
у меня есть таймер и по событию OnTimer вызывается процедура FormResize, где указан glViewport.

glViewport( 0, 0, ClientWidth-200, ClientHeight);

Вся отрисовка выполняется по FormPaint.
но почему обновляется ПОЛНОСТЬЮ вся форма, а не та часть, которую я указал в ВьюПорт?

зЫ:
текст процедуры Ресайз

procedure TForm1.FormResize(Sender: TObject);
begin
 glViewport( 0, 0, ClientWidth-200, ClientHeight);
 glMatrixMode( GL_PROJECTION );
 glLoadIdentity();
 glOrtho(-14,14, -14,14, 0,30);
 gluLookAt( 6,5,9, 0,0,0, 0,1,0);
 glMatrixMode( GL_MODELVIEW );
 InvalidateRect(Handle, nil, False);
end;

[Пепел Феникса]

GL тут не причем.

скажите честно, вы читали справку по функции InvalidateRect?

[Seran4ek]

ну знаю что за прорисовку экрана помоему отвечает..а так не усугублялся.
не могу найти ничего путного по его параметрам..Т_Т

[Пепел Феникса]

lpRect

Points to a RECT structure that contains the client coordinates of the rectangle to be added to the update region. If this parameter is NULL, the entire client area is added to the update region.

там ставите структуру Rect(точнее переменную этого типа)
а в ней заполняете область что надо обновить.

[Seran4ek]

принцип понял, а как реализовать не очень
не могли бы вы мне для примера эту функцию написать, пожалуйста?)

[Пепел Феникса]

var R:Rect;
begin
//-----
R.Left:=0;
R.Top:=0;
R.Bottom:=ClientHeight;
R.Right:=ClientWidth-200;
InvalidateRect(Handle,R,False);

вроде так

[Seran4ek]

а Rect мне в виде чего описать? такого типа ж вроде нету

[Пепел Феникса]

а вы пробывали?

такого типа ж вроде нету

видно что нет...

он или Rect или TRect

[Seran4ek]

пробывал!
написал TRect, он принял, но пишет что несовместимые типы TRect и PRect.
тогда я написал PRect. но теперь он при запуске выкидывает ошибку "адресс виолейшн и тд и тп"
а внизу "[Warning] Unit1.pas(146): Variable 'R' might not have been initialized"

procedure TForm1.FormResize(Sender: TObject);
var R:PRect;
begin
 glViewport( 0, 0, ClientWidth-200, ClientHeight);
 glMatrixMode( GL_PROJECTION );
 glLoadIdentity();
 glOrtho(-14,14, -14,14, 0,30);
 gluLookAt( 6,5,9, 0,0,0, 0,1,0);
 glMatrixMode( GL_MODELVIEW );
 R.Left:=10;
 R.Top:=20;
 R.Bottom:=ClientHeight;
 R.Right:=ClientWidth-200;
 InvalidateRect(Handle, R, False);
end;

[Пепел Феникса]

var R:TRect;
begin
//-----
R.Left:=0;
R.Top:=0;
R.Bottom:=ClientHeight;
R.Right:=ClientWidth-200;
InvalidateRect(Handle,@R,False);