Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2012.01.01;
Скачать: [xml.tar.bz2];

Вниз

Мерцает окно при изменении размеров.   Найти похожие ветки 

 
Псарь   (2011-09-21 17:15) [0]

Окно работает в двух размерах, при переключении видны мерцания.
Как от них избавиться?
Функция LockWindowUpdate не помогает.


procedure TForm1.SetState(IsShow: boolean);
begin
 If IsShow then
 begin
   BorderStyle := bsToolWindow;
   Left        := Centered(Screen.Width,  FNormalWidth);
   Top         := Centered(Screen.Height, FNormalHeight);
   ClientWidth := FNormalWidth;
   ClientHeight:= FNormalHeight;
 end else
 begin
   LockWindowUpdate(Handle);
   BorderStyle := bsNone;
   Left        := 100;
   Top         := 100;
   ClientWidth := 100;
   ClientHeight:= 100;
   LockWindowUpdate(0);
 end;
end;


 
Псарь   (2011-09-21 17:17) [1]

Лучше так:


procedure TForm1.SetState(IsShow: boolean);
begin
If IsShow then
begin
  BorderStyle := bsToolWindow;
  Left        := 80;
  Top         := 88;
  ClientWidth := 200;
  ClientHeight:= 200;
end else
begin
  LockWindowUpdate(Handle);
  BorderStyle := bsNone;
  Left        := 100;
  Top         := 100;
  ClientWidth := 100;
  ClientHeight:= 100;
  LockWindowUpdate(0);
end;
end;


 
RWolf ©   (2011-09-21 17:51) [2]

SetBounds?


 
Sapersky   (2011-09-21 17:55) [3]

Дело не столько в размерах, сколько в BorderStyle:

procedure TCustomForm.SetBorderStyle(Value: TFormBorderStyle);
begin
 if FBorderStyle <> Value then
 begin
   FBorderStyle := Value;
   AutoScroll := FBorderStyle in [bsSizeable, bsSizeToolWin];
   if not (csDesigning in ComponentState) then RecreateWnd;
 end;
end;


 
Псарь   (2011-09-21 18:35) [4]


> RWolf ©   (21.09.11 17:51) [2]


О, гораздо меньше мерцает. Спс. :)


> Sapersky   (21.09.11 17:55) [3]


> RecreateWnd;


Делал окно на время не видимым, толку ноль.
Скрыть пересоздание не удается.


 
Омлет ©   (2011-09-21 18:54) [5]

Зачем менять BorderStyle?


 
Псарь   (2011-09-21 19:03) [6]


> Омлет ©   (21.09.11 18:54) [5]
>
> Зачем менять BorderStyle?


Секрет фирмы. :)



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2012.01.01;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.004 c
8-1221793304
Cout
2008-09-19 07:01
2012.01.01
горизонтальный курсор


15-1316151747
stdin
2011-09-16 09:42
2012.01.01
Firebird data comparer


15-1316032184
Юрий
2011-09-15 00:29
2012.01.01
С днем рождения ! 15 сентября 2011 четверг


15-1314702451
Sergey Masloff
2011-08-30 15:07
2012.01.01
Ну че ворлд тур приближается. Кто идет, я буду


15-1315945785
Юрий
2011-09-14 00:29
2012.01.01
С днем рождения ! 14 сентября 2011 среда





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский