Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 02.11.2014, 21:04
V77 V77 вне форума
Прохожий
 
Регистрация: 02.11.2014
Сообщения: 4
Версия Delphi: Delphi 7
Репутация: 10
Восклицание Как добавить тень к TImage, когда BorderStyle:=clNone

Привет, дело вот в чём:
Нужно приложить к TImage тень, когда BorderStyle:=clNone;.

Есть вариант:
Код:
protected
    procedure CreateParams(var Params: TCreateParams); override;
 
procedure TMainForm.CreateParams(var Params: TCreateParams);
const CS_DROPSHADOW = $00020000;
begin
  inherited;                                           
  Params.WindowClass.Style := Params.WindowClass.Style or CS_DROPSHADOW;
end;

Но он даёт тень форме, а формы та нет, есть только TImage ...

Спасибо за помощь : ) !
Ответить с цитированием
  #2  
Старый 03.11.2014, 02:21
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,100
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

C TImage так, если правильно помню, не получится, бо как не окно он.
Вариант - положить TImage на TPanel (который есть окно) и сделать тень панельке. Можно сделать маленький фейковый класс прямо в модуле, где тебе это надо, перекрыв CreateParams. Только тогда все панельки на этой форме получат тень.
Ответить с цитированием
Этот пользователь сказал Спасибо lmikle за это полезное сообщение:
V77 (04.11.2014)
  #3  
Старый 03.11.2014, 08:28
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

А в чем проблена пририсовать эту тень прямо на канву?
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
Ответить с цитированием
Этот пользователь сказал Спасибо M.A.D.M.A.N. за это полезное сообщение:
V77 (04.11.2014)
  #4  
Старый 04.11.2014, 10:19
V77 V77 вне форума
Прохожий
 
Регистрация: 02.11.2014
Сообщения: 4
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Каким оброзом, поясните плиз ? !!! Спасибо, что откликнулись !

Прбовал, пишет нет такого класса у TImage, а если через форму, то просто нет тени ни формы ни у TImage ...

А можно как-то дать понять Винде (Windows 7), что TImage это форма, чтоб Винда дала ему тень, как простому окну ?

Каким оброзом, поясните плиз ? !!! Спасибо, что откликнулись !

Цитата:
Сообщение от lmikle
C TImage так, если правильно помню, не получится, бо как не окно он.
Вариант - положить TImage на TPanel (который есть окно) и сделать тень панельке. Можно сделать маленький фейковый класс прямо в модуле, где тебе это надо, перекрыв CreateParams. Только тогда все панельки на этой форме получат тень.
Щяс попробую с Панелью ...

Просто тень с окна сразу исчезает, как я ставлю форме BorderStyle:=clNone;

Последний раз редактировалось M.A.D.M.A.N., 04.11.2014 в 14:50. Причина: учимя пользоваться кнопкой "Правка"
Ответить с цитированием
  #5  
Старый 06.11.2014, 21:41
V77 V77 вне форума
Прохожий
 
Регистрация: 02.11.2014
Сообщения: 4
Версия Delphi: Delphi 7
Репутация: 10
Восклицание

Ну ? .. плиз - очень нужно ! ...
Ответить с цитированием
  #6  
Старый 07.11.2014, 00:09
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

А если совсем без имиджей обойтись, лишь AlphaSplash на форму добавить
Вложения
Тип файла: rar Alpha.rar (9.9 Кбайт, 11 просмотров)
Ответить с цитированием
  #7  
Старый 08.11.2014, 18:52
V77 V77 вне форума
Прохожий
 
Регистрация: 02.11.2014
Сообщения: 4
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

[OFF]Спасибо ! ... ОГРОМНОЕ !!! ... Ну хоть кто-то чёто дельное дал !!!
ЁМАё ... только тут, на этом форуме ... Даже на КиберФоруме просто на мня начали слать и всё, просто слать и указывать на мои ошибки, которые, ну вообще почти не имеют смысла ... [/OFF]

Тут ещё трабла в том, что на форме должны быть элементы ! Типа кнопки и тому подобное, с AlphaSplash прокатит ?
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 20:55.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025