Rambler's Top100
"Knowledge itself is power"
F.Bacon
Поиск | Карта сайта | Помощь | О проекте | ТТХ  
 Круглый стол
  
Правила КС
>> Настройки

Фильтр вопросов
>> Новые вопросы
отслеживать по
>> Новые ответы

Избранное

Страница вопросов
Поиск по КС


Специальные проекты:
>> К л ю к в а
>> Г о л о в о л о м к и

Вопрос №

Задать вопрос
Off-topic вопросы

Помощь

 
 К н и г и
 
Книжная полка
 
 
Библиотека
 
  
  
 


Поиск
 
Поиск по КС
Поиск в статьях
Яndex© + Google©
Поиск книг

 
  
Тематический каталог
Все манускрипты

 
  
Карта VCL
ОШИБКИ
Сообщения системы

 
Форумы
 
Круглый стол
Новые вопросы

 
  
Базарная площадь
Городская площадь

 
   
С Л С

 
Летопись
 
Королевские Хроники
Рыцарский Зал
Глас народа!

 
  
ТТХ
Конкурсы
Королевская клюква

 
Разделы
 
Hello, World!
Лицей

Квинтана

 
  
Сокровищница
Подземелье Магов
Подводные камни
Свитки

 
  
Школа ОБЕРОНА

 
  
Арсенальная башня
Фолианты
Полигон

 
  
Книга Песка
Дальние земли

 
  
АРХИВЫ

 
 

Сейчас на сайте присутствуют:
 
  
 
Во Флориде и в Королевстве сейчас  04:07[Войти] | [Зарегистрироваться]
Ответ на вопрос № 47917

23-12-2006 19:17
Как сделать тень у формы только не то что бы с одного угла ... а что б со всех сторон и плавнее как это сделано в сплэшах от многих программ и так же в миранде

[+] Добавить в избранные вопросы

Отслеживать ответы на этот вопрос по RSS

Ответы:


Уважаемые авторы вопросов! Большая просьба сообщить о результатах решения проблемы на этой странице.
Иначе, следящие за обсуждением, возможно имеющие аналогичные проблемы, не получают ясного представления об их решении. А авторы ответов не получают обратной связи. Что можно расценивать, как проявление неуважения к отвечающим от автора вопроса.

14-08-2007 03:51 | Комментарий к предыдущим ответам
Пример с тенью очень понравился! Это то, что нужно.
Подскажите, как-нибудь вообще можно поместить поверх полученного изображения контролы?
Например, TButton.
PS: Если есть ссылки на похожие статьи или примеры, прошу помочь.
С уважением WIM

28-01-2007 08:28 | Сообщение от автора вопроса
НИЧЕГО не понятно ... надо понять как оно создаёт форму ну в том примере на асме ...

21-01-2007 11:23 | Вопрос к автору: запрос дополнительной информации
>>> помогите перевести
Пишите, что конкретно не получается - тогда поможем.

18-01-2007 12:42 | Сообщение от автора вопроса
перед

var
  Form1: TForm1;

implementation

{$R *.dfm}


(обьявлением глобальных переменных) добавь


//вот начало того что нужно  добавить
type
  TGradientColors = array[0..255] of TRGBQuad;
  TRGBQuadArray = array[0..1024] of TRGBQuad;
  PRGBQuadArray = ^TRGBQuadArray;
//вот конец того что нужно  добавить


17-01-2007 13:52
Line:PRGBQuadArray; - сорри за ламерский вопрос, а эт чего??? какой это тип? у меня Делфи 6 ругается на ету переменную...

11-01-2007 10:51 | Сообщение от автора вопроса
помогите перевести http://chime.student.utwente.nl/qweerdy/pngskin5.zip

11-01-2007 09:30 | Сообщение от автора вопроса
как вы думаете ... перевести на дельфи реально? http://chime.student.utwente.nl/qweerdy/pngskin5.zip

06-01-2007 13:12 | Сообщение от автора вопроса
Тень косячная выходит методом тот что ниже описан

02-01-2007 08:24
Котролы не отображаются
Ну так и не должны, UpdateLayeredWindow полностью заменяет содержимое окна и никаких дочерних окон рисоваться не будет, так что всё ручками надо делать.
Если требуется только какую нибудь тень особенную добавить, то можно вот тут http://www.thedelphimagazine.com/disks/dmag57.zip посмотреть пример ShadowForm.

02-01-2007 05:31 | Сообщение от автора вопроса
Котролы не отображаются ... нету ни label'оФ ни button'оф помогите сделать что бы отображались


unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TFormSplash = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
  protected
  procedure WMWINDOWPOSCHANGING(var Msg: TWMWINDOWPOSCHANGING); message WM_WINDOWPOSCHANGING;
  public
    BT:Tbitmap;
    procedure RenderForm;
    procedure BuildCopy24to32(_B_in,_B_mask:TBitmap; var _B_out: TBitmap);
  end;

var
  FormSplash: TFormSplash;

implementation

{$R *.dfm}

procedure TFormSplash.FormCreate(Sender: TObject);
var
  ImageMain:TBitmap;
  ImageMask:TBitmap;
begin
ImageMain:=Tbitmap.Create;
ImageMain.PixelFormat:=pf24bit;
ImageMain.LoadFromFile('main.bmp');
ImageMask:=Tbitmap.Create;
ImageMask.PixelFormat:=pf24bit;
ImageMask.LoadFromFile('Mask.bmp');
BT:=Tbitmap.Create;
BT.PixelFormat:=pf32bit;
BuildCopy24to32( ImageMain,ImageMask, bt );
RenderForm;
end;

procedure TFormSplash.BuildCopy24to32(_B_in,_B_mask:TBitmap; var _B_out: TBitmap);
const
  MaxPixelCountA = MaxInt div SizeOf(TRGBQuad);
  MaxPixelCount = MaxInt div SizeOf(TRGBTriple);
type
  PRGBArray = ^TRGBArray;
  TRGBArray = array[0..MaxPixelCount-1] of TRGBTriple;
  PRGBAArray = ^TRGBAArray;
  TRGBAArray = array[0..MaxPixelCountA-1] of TRGBQuad;
var x, y: Integer; RowOut: PRGBAArray; RowIn,RowInMask:PRGBArray;
begin
  _B_out.Width:=_B_in.Width;
  _B_out.Height:=_B_in.Height;
  for y:=0 to _B_in.Height-1 do begin
    RowOut:= _B_out.ScanLine[y];
    RowIn:= _B_in.ScanLine[y];
    RowInMask:= _B_mask.ScanLine[y];
    for x:=0 to _B_in.Width-1 do begin
          RowOut[x].rgbReserved:=trunc((RowInMask[x].rgbtBlue+RowInMask[x].rgbtGreen+RowInMask[x].rgbtRed)/3);
          RowOut[x].rgbBlue:=byte(trunc(RowIn[x].rgbtBlue*RowOut[x].rgbReserved/255));
          RowOut[x].rgbGreen:=byte(trunc(RowIn[x].rgbtGreen*RowOut[x].rgbReserved/255));
          RowOut[x].rgbRed:=byte(trunc(RowIn[x].rgbtRed*RowOut[x].rgbReserved/255));
    end;
  end
end;

procedure TFormSplash.RenderForm;
var zsize:TSize; zpoint:TPoint; zbf:TBlendFunction;
    TopLeft: TPoint; DC:HDC;
begin
  SetWindowLong(FormSplash.Handle,GWL_EXSTYLE, GetWindowLong(FormSplash.Handle,GWL_EXSTYLE) or WS_EX_LAYERED);

  width:=BT.Width;
  height:=BT.Height;

  zsize.cx := BT.Width;
  zsize.cy := BT.Height;
  zpoint := Point(0,0);

  with zbf do begin
    BlendOp := AC_SRC_OVER;
    BlendFlags := 0;
    AlphaFormat := AC_SRC_ALPHA;
    SourceConstantAlpha := 200;
  end;
  DC:= GetDC(0);
  TopLeft:=BoundsRect.TopLeft;
  UpdateLayeredWindow(FormSplash.Handle,DC,@TopLeft,@zsize,BT.Canvas.Handle,@zpoint,0,@zbf, ULW_ALPHA);
end;

procedure TFormSplash.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const SC_DRAGMOVE : Longint = $F012;
begin
if Button <> mbRight then begin
  ReleaseCapture;
  SendMessage(Handle, WM_SYSCOMMAND, SC_DRAGMOVE, 0);
  end;
end;

procedure TFormSplash.WMWINDOWPOSCHANGING(var Msg: TWMWINDOWPOSCHANGING);
begin
SetWindowPos(Handle,HWND_TOPmost,Left,Top,Width,Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE );
end;

end.


30-12-2006 03:29 | Сообщение от автора вопроса
Пишите в личку e-mail я отошлю то что сделал ... естественно без скомпилированного .exe файла

30-12-2006 03:26 | Сообщение от автора вопроса
Я СДЕЛАЛ ...но вариант сырой у него много косяков и проблем ... все кто может помогите доделать и оптимизировать ... DRONвся надежда в основном на тебя ...

28-12-2006 14:19
Мне кажется, все несколько проще. Поскольку тень - вещь небольшая, стоит при перерисовке получить стандартными способами содержимое окружающей части окна, затем с использованием AlphaBlend - думаю, будет неплохо.

27-12-2006 16:47
Вам вообще-то уже предложили несколько работающих вариантов. Если проблема в конвертации из PNG в BMP с альфа-каналом, то вот функция:

procedure PNGToAlphaBitmap(Png:TPngObject;Bmp:TBitmap);
var
  X,Y:Integer;
  Line:PRGBQuadArray;
  AlphaLine:PByteArray;
  TransColor:TColor;
begin
  Bmp.Assign(Png);
  Bmp.PixelFormat:=pf32bit;
  case Png.TransparencyMode of
    ptmNone:
      for Y:=0 to PNG.Height-1 do begin
        Line:=Bmp.ScanLine[Y];
        for X:=0 to PNG.Width-1 do
          Line[X].rgbReserved:=255;
      end;
    ptmPartial:
      for Y:=0 to PNG.Height-1 do begin
        Line:=Bmp.ScanLine[Y];
        AlphaLine:=Pointer(PNG.AlphaScanLine[Y]);
        for X:=0 to PNG.Width-1 do
          with Line[X] do begin
            rgbReserved:=AlphaLine[X];
            rgbBlue:=rgbBlue*rgbReserved div 255;
            rgbGreen:=rgbGreen*rgbReserved div 255;
            rgbRed:=rgbRed*rgbReserved div 255;
          end;
      end;
    ptmBit:begin
        TransColor:=PNG.TransparentColor;
        for Y:=0 to PNG.Height-1 do begin
          Line:=Bmp.ScanLine[Y];
          for X:=0 to PNG.Width-1 do
            if Png.Pixels[X,Y]=TransColor then
              DWORD(Line[X]):=0
            else
              Line[X].rgbReserved:=255;
        end;
      end;
  end;
  Bmp.Modified:=True;
end;


27-12-2006 15:21 | Сообщение от автора вопроса
да ... нету там всё делается через PNG маски ... но вопрос КАК МНЕ СИЕ ЧУДО СОТВОРИТЬ???

27-12-2006 09:54
Кстати сказать, в Миранде нет никаких сплешей и теней (кроме стандартной CS_DROPSHADOW), по крайней мере в новых версиях.

27-12-2006 08:23 | Сообщение от автора вопроса
Там С переволить затруднительно

25-12-2006 14:22
А Вы не пробовали скачать исходники той же Миранды и посмотреть, как это реализовано в ней?

24-12-2006 14:20 | Сообщение от автора вопроса
я несколько удивлён почему все така не придумали простого решения

24-12-2006 04:33
Ещё можно layered окна использовать, вот тут было нечто с полупрозрачностью:
http://www.delphikingdom.com/asp/answer.asp?IDAnswer=36393

23-12-2006 21:17
Эта, батенька, задача сложная!
Для достижения задачи, Вам необходимо выполнить следуюшие процедуры:
1). Ваша форма должна иметь BorderStyle - bsNone
2). Cоответственно нужно увеличить размеры формы на отсупы тени со всех сторон.
3). Содать битмап, с размерами формы.
4). Ловить сообщение для вашего окна WM_MOVE и по этому сообщению выполнить нижеследующие пункты.
5). Скопировать в битмап области экрана, где должна быть нарисована тень.
6). Сгенерировать тень - тут способов несколько (например: http://delphirus.com.ru/modules.php?name=News&file=article&sid=112 ), но
самый простой - использовать нарисованную заранее тень и сохранённую в формате PNG, при этом тень должна идти как альфа канал. Для этой цели советую использовать библиотеку PngImage https://sourceforge.net/project/showfiles.php?group_id=16012
Сохранённую тень необходимо добавить в ресурс приложения, а точнее в RCDATA. Созданный в программе PngObject должен загрузить эту тень из ресурсов и наложить её на битмап со снимком экрана.
7). Вывести битмап на канву формы.

Вот примерно так, практическая реализация данной методы черевата отладкой, так как тут ньюансов очень много(движение окна, наложение поверх других окон итд).
Удачи.

Добавьте свое cообщение

Вашe имя:  [Войти]
Ваш адрес (e-mail):На Королевстве все адреса защищаются от спам-роботов
контрольный вопрос:
Жил-был у бабушки серенький КТО?
в качестве ответа на вопрос или загадку следует давать только одно слово в именительном падеже и именно в такой форме, как оно используется в оригинале.
Надоело отвечать на странные вопросы? Зарегистрируйтесь на сайте.
Тип сообщения:
Текст:
Жирный шрифт  Наклонный шрифт  Подчеркнутый шрифт  Выравнивание по центру  Список  Заголовок  Разделительная линия  Код  Маленький шрифт  Крупный шрифт  Цитирование блока текста  Строчное цитирование
  • вопрос Круглого стола № XXX

  • вопрос № YYY в тесте № XXX Рыцарской Квинтаны

  • сообщение № YYY в теме № XXX Базарной площади
  • обсуждение темы № YYY Базарной площади
  •  
     Правила оформления сообщений на Королевстве

    Страница избранных вопросов Круглого стола.
      
    Время на сайте: GMT минус 5 часов

    Если вы заметили орфографическую ошибку на этой странице, просто выделите ошибку мышью и нажмите Ctrl+Enter.
    Функция может не работать в некоторых версиях броузеров.

    Web hosting for this web site provided by DotNetPark (ASP.NET, SharePoint, MS SQL hosting)  
    Software for IIS, Hyper-V, MS SQL. Tools for Windows server administrators. Server migration utilities  

     
    © При использовании любых материалов «Королевства Delphi» необходимо указывать источник информации. Перепечатка авторских статей возможна только при согласии всех авторов и администрации сайта.
    Все используемые на сайте торговые марки являются собственностью их производителей.

    Яндекс цитирования