Форум: "Основная";
Поиск по всему сайту: 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.73 MB
Время: 0.018 c
3-9418            igmel                 2002-03-13 06:48  2002.04.04  
Индексы в таблицах Paradox


3-9381            pusrg                 2002-03-11 20:48  2002.04.04  
Сортировка кешированной таблицы


1-9446            AFROLOV               2002-03-25 12:45  2002.04.04  
Проблема с параметрами GetMessage


1-9575            BlackJack             2002-03-23 19:36  2002.04.04  
Как сделать так чтобы при нажатии на 0 ряд(столбец) в DrawGrid ячейки западали вниз?


1-9506            lipskiy               2002-03-21 01:33  2002.04.04  
Как получить текстовое сообщение ошибки, имея ее код?