![]()  | 
	
 
  | 
		
			
  | 	
	
	
		
		|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны | 
![]()  | 
	
	
| 
		 | 
	Опции темы | Поиск в этой теме | Опции просмотра | 
| 
		 
			 
			#1  
			
			
			
			
		 
		
		
	 | 
|||
		
		
  | 
|||
| 
	
	
		
			
			 Доброе время суток! 
		
	
		
		
		
		
		
	
		
		
	
	
	Делаю панель запуска типа rocketdock. Всё на speedbutton`ах. Кнопки создаю в ран-тайме. Вот имею я кнопочки в ряд. Мне захотелось одну передвинуть, начинаю двигать, в это время форма мерцает, мигает, называйте как хотите... Двигаю кнопку так: Код: 
	procedure TForm1.SPBMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if SPB_L_R = True then begin SPB[SensorTag].Left := Mouse.CursorPos.X -form1.Left ; end; ![]() Форма прилимает к верхнему краю экрана. На Загаловке описан путь и имя файла, появляются эти пути только при наведении на кнопку. При перетаскивании видать что-то происходит....  | 
| 
		 
			 
			#2  
			
			
			
			
		 
		
		
	 | 
||||
		
		
  | 
||||
| 
	
	
		
			
			 Firemonkey в помощь. 
		
	
		
		
		
		
			
		
		
		
		
	
		
		
	
	
	 | 
| Этот пользователь сказал Спасибо M.A.D.M.A.N. за это полезное сообщение: | ||
 
Gareth (10.10.2017)
  | ||
| 
		 
			 
			#3  
			
			
			
			
		 
		
		
	 | 
|||
		
		
  | 
|||
| 
	
	
		
			
			 Все-таки мне кажется, что тут имеет место косяк в коде при реализации либо отрисовки, либо самого перетаскивания. Не должно быть там мецаняи, ведь в дизайнере самой Дельфи когда ты таскаешь компоненты по форме ничего ведь не мерцает... 
		
	
		
		
		
		
		
	
		
		
	
	
	Ну а для начала я бы посмотрел бы что будет есть у формы выставить DoubleBuffered := True.  | 
| 
		 
			 
			#4  
			
			
			
			
		 
		
		
	 | 
||||
		
		
  | 
||||
| 
	
	
		
			
			 Открой окно файлового проводника Windows, и, зацепив мышью за левый край окна, попробуй изменять его размеры. За правый - всё красиво будет, а вот за левый... Не в самой ли ОС спрятан косяк с отрисовкой? 
		
	
		
		
		
		
		
		
			З.Ы. Win7 x64 максимальная, в/карта GeForce GTX 760, дрова разные пробовал - как "коробочные" (с диска), так и самые свежие с Инета. "Мерцание" (в виде заметного дёрганья правого края окна) проявляется независимо от установленной схемы (стиля окон). Последний раз редактировалось Guaho, 11.10.2017 в 07:20.  | 
| 
		 
			 
			#5  
			
			
			
			
		 
		
		
	 | 
||||
		
		
  | 
||||
| 
	
	
		
			
			 Цитата: 
	
  | 
| 
		 
			 
			#6  
			
			
			
			
		 
		
		
	 | 
|||
		
		
  | 
|||
| 
	
	
		
			
			 Цитата: 
	
 только что проверил - ничего а проводнике не мерцает, за исключением правого края тулбара немного, но это, как я понимаю, проблема переразмеривания самого тулбара. Двигал и менял за все стороны... Win 7 x64 Pro  | 
| 
		 
			 
			#7  
			
			
			
			
		 
		
		
	 | 
||||
		
		
  | 
||||
| 
	
	
		
			
			 Ну да, "немного", миллиметр-полтора на экране (27" монитор). Можно сказать, что "ничего не мерцает", да. 
		
	
		
		
		
		
		
	
		
		
	
	
	 | 
| 
		 
			 
			#8  
			
			
			
			
		 
		
		
	 | 
|||
		
		
  | 
|||
| 
	
	
		
			
			 Я же уточнил - заголовок окна не мерцает. И тулбар не мерцает на самом деле, там явно видна двойная отрисовка, т.е. сначала отрисовывается в новорм размере окна старый тулбар, а потом он переразмеривается и отрисовывается снова. Т.е. визуально это проявляется как небольшая черная полоска справа от тулбара. Именно мерцания - нет. 
		
	
		
		
		
		
		
	
		
		
	
	
	 |