Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> глюк с AlphaBlend 
:(
    Опции темы
CompWorm
Дата 24.11.2008, 09:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Допеределыватель
***


Профиль
Группа: Участник Клуба
Сообщений: 1689
Регистрация: 6.12.2004
Где: /

Репутация: 2
Всего: 31



интересный глюк получается при использовании AlphaBlend в Delphi7...

вот код...

Код

...
var
  TheTime: TDateTime;

procedure TForm1.FormCreate(Sender: TObject);

begin
  //AlphaBlend:=true;
  //AlphaBlendValue:=200;
  form1.TransparentColorValue:= 0;
  form1.TransparentColor:=true;
  form1.BorderStyle := bsNone;
  memo1.Clear;
  TheTime:=Now();
end;

procedure TForm1.Image3Click(Sender: TObject);
var
  TheTimeNow: TDateTime;
begin
memo1.Lines.Add('-----------------');
memo1.Lines.Add (FormatDateTime('hh.mm.ss',Now()));
TheTimeNow:=Now-TheTime;
memo1.Lines.Add (FormatDateTime('hh.mm.ss',TheTimeNow));
memo1.Lines.Add('-----------------');
end;

это типа таймер-секундомер нестандартной формы, но суть, полагаю, не в том...

если раскоментировать AlphaBlend (прозрачность) и несколько раз кликнуть Image3, то все в порядке, пока текст в memo1 не уйдет в скролл. как только активируется скролл, приложение сжирает весь проц, не возможно нажать alt+F4 или ctrl+F2, не вызывается таскменеджер.
если закомментить AlphaBlend, то такой проблемы не наблюдается...

с чем это связано?  smile 


--------------------
PM MAIL   Вверх
Rrader
  Дата 24.11.2008, 11:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Inspired =)
***


Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 18
Всего: 191



Убери эти строчки:
Код

form1.TransparentColorValue:= 0;
form1.TransparentColor:=true;



--------------------
Let's do this quickly!
Rest in peace, Vit!
PM MAIL Skype   Вверх
CompWorm
Дата 24.11.2008, 17:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Допеределыватель
***


Профиль
Группа: Участник Клуба
Сообщений: 1689
Регистрация: 6.12.2004
Где: /

Репутация: 2
Всего: 31



помогло... 
ну а как же быть чтоб и прозрасная и нестандартная форма была?
забавно, что в принципе все работает, но глюки только когда в мемо скролбар активируется...


--------------------
PM MAIL   Вверх
AntonN
Дата 25.11.2008, 12:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 491
Регистрация: 8.8.2006

Репутация: 3
Всего: 18



если на форме не предполагается контролов ввода (а мемо был исключительно для вывода), то можно попробывать рисовать все руками и выводить через updatelayeredwindow() - будет и нестандартная форма, и прозрачная где надо. Примерно так: http://forum.vingrad.ru/forum/topic-194182...tml#st_0_view_0


--------------------
user posted image
PM MAIL WWW   Вверх
CompWorm
Дата 25.11.2008, 22:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Допеределыватель
***


Профиль
Группа: Участник Клуба
Сообщений: 1689
Регистрация: 6.12.2004
Где: /

Репутация: 2
Всего: 31



AntonN
спасибо, правда, эту тему я уже читал smile благо, к поиску приноровился и DRKB юзаю))) 
хотелось бы, конечно, некий универсальный способ найти (с полями ввода), но чет даже не знаю таких существующих программ. 

помню, когда еще увлекался VB, делал слегка тормозящие нестандартные полупрозрачные окошки как-то... там не было никаких альфаблендов и транспарентов - все через апи и стандартный инструментарий, но было это давно и исходников конечно не сохранилось. 

проблема, мне кажется, в том, что прозрачными становятся не только окно, но и все контролы... может как-то отключить альфабленд на мемо и будет счастье? smile 


--------------------
PM MAIL   Вверх
AntonN
Дата 25.11.2008, 23:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 491
Регистрация: 8.8.2006

Репутация: 3
Всего: 18



CompWorm, прозрачным становится главное окно, а оно и "отображает" все компоненты. В общем мемо нарисовалось и дальше оно понятия не имеет, будет оно прозрачным или нет smile


--------------------
user posted image
PM MAIL WWW   Вверх
CompWorm
Дата 25.11.2008, 23:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Допеределыватель
***


Профиль
Группа: Участник Клуба
Сообщений: 1689
Регистрация: 6.12.2004
Где: /

Репутация: 2
Всего: 31



хорошо, а можно ли собрать приложение как отдельно форму и отдельно контролы? (в QT4, на сколько я знаю и текстовое поле может являться отдельным окном) то есть так, чтобы контролы не использовали в качестве контейнера окно формы? 


--------------------
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »


 




[ Время генерации скрипта: 0.0963 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.