| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Зачем Refresh и Repaint, если одго и то же? [D7, WinXP]

Коля ©   (2005-02-23 22:36:00) 

Нашёл вот такое в Controls.pas

procedure TControl.Refresh;
begin
 Repaint;
end;

procedure TControl.Repaint;
var
 DC: HDC;
begin
 if (Visible or (csDesigning in ComponentState) and
   not (csNoDesignVisible in ControlStyle)) and (Parent <> nil) and
   Parent.HandleAllocated then
   if csOpaque in ControlStyle then
   begin
     DC := GetDC(Parent.Handle);
     try
       IntersectClipRect(DC, Left, Top, Left + Width, Top + Height);
       Parent.PaintControls(DC, Self);
     finally
       ReleaseDC(Parent.Handle, DC);
     end;
   end else
   begin
     Invalidate;
     Update;
   end;
end;
Вопрос: А зачем нужен Refresh?

---

Palladin   (2005-02-23 22:40:00) [1]

Пережиток прошлого...

---

Наверх