Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];




Вниз

перерисовка MainForm 


koks   (2002-03-22 09:30) [0]

Уважаемые мастера - подскажите пожалуйста...
Главная форма - MDIForm. Использую "обои" для главной формы в виде bmp-картинки. Метод - из местного FAQ"а.
В программе вызываю модальный диалог, где можно менять картинку обоев.
После закрытия оного диалога по mrOk перерисовывается только та часть клиентской области главной формы, над которой висел диалог... Вся форма перерисовываться не хочет.
Пробовал:
fmMain.Update;

fmMain.Refresh;

fmMain.Repain;

begin
fmMain.Visible := false;
fmMain.Visible := true;
end;

Результат - тот же.

Подскажите, как принудительно перерисовать ВСЮ MDI - форму.

Заранее спасибо.



Alx2   (2002-03-22 09:47) [1]

Попробуй UpdateWindow(MainForm.ClientHandle);
или Invalidate



Andrey007   (2002-03-22 10:25) [2]

А Вы рисуете на fmMain.Canvas или на каком-то другом холсте? Если на fmMain.Canvas, то повесив перерисовку на fmMain.OnPaint Вы решите все проблемы. Но при этом OnPaint будет вызываться при перемещении окон и при изменении размеров окон, перекрывающих картинку. Чтобы этого избежать, надо картинку рисовать на TImage. Она будет перерисовываться только при закрытии окна, загораживающего картинку. TImage, естественно, надо развернуть на всю форму.



koks   (2002-03-22 11:32) [3]

Я рисую вот как:

procedure TfmMain.ClientWndProc(var Message: TMessage);
var
Dc: hDC;
Row: integer;
Col: integer;
begin
with Message do
if UsePictureAtBackground and (Msg = WM_ERASEBKGND) then
begin
Dc := TWMEraseBkGnd(Message).Dc;
for Row := 0 to ClientHeight div imBackground.Picture.Height do
for Col := 0 to ClientWidth div imBackground.Picture.Width do
BitBlt(Dc, Col * imBackground.Picture.Width,
Row * imBackground.Picture.Height,
imBackground.Picture.Width,
imBackground.Picture.Height,
imBackground.Picture.Bitmap.Canvas.Handle, 0, 0, SRCCOPY);
Result := 1;
end
else
Result := CallWindowProc(FPrevClientProc, ClientHandle, Msg, wParam, lParam);
end;



koks   (2002-03-22 11:46) [4]

В догонку- UpdateWindow то же не помогло....
Они все друг-друга вызывают, поэтому и результат одинаковый.
Здесь какой-то другой путь... Подскажите пожалуйста !



reonid   (2002-03-22 12:14) [5]

var R: TRect;
R := MainForm.ClientRect;
InvalidateRect(MainForm.ClientHandle, @R, True);



koks   (2002-03-22 14:47) [6]

2 reonid С П А С И Б А !!!!




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.035 c
1-9580            Serj-klg              2002-03-23 21:57  2002.04.04  
Траблы с принтерами и QReport


3-9417            bos                   2002-03-13 14:37  2002.04.04  
роли & interbase


14-9611           Юра                   2002-02-21 06:10  2002.04.04  
Help


1-9523            Beginner              2002-03-23 16:12  2002.04.04  
OpenDialog


3-9380            vopros                2002-03-12 13:48  2002.04.04  
Глупый вопрос...Как по Lookup полю в таблице сделать сортровку?