управление формой и рисунком [Delphi7]

[-Jack-]

Всем доброго времени суток, вопросик такой:

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


Находил вот этот способо

procedure TForm1.FormCreate(Sender: TObject);
begin
   Application.ShowMainForm := False;

   Image1.ManualDock(nil);
end;

но тут всё равно рамка остается ... а хотелось бы от неё избавиться

[-Jack-]

Ы ... я всегда тороплюсь в таких моментах ... )))

К форме добавить BorderStyle:=bsNone; и проблемы решены )))

[-Jack-]

продолжим тему с оформлением )
решил усложнить задачу ))

рисунок png с градиентом. залил форму черным цветом, установил TransparentColor:=true и цвет тоже на черный.

Но 1 минус, при использовании рисунка с градиентными краями, края подкрашиваются в этот черный цвет и получается не очень красиво ...

Есть какой нибудь другой метод, сделать фон формы прозрачным ?

[Stilet]

Что такое рисунок с градиентными краями?
Показать скрин можешь?

[hon]

Сообщение от -Jack-

продолжим тему с оформлением )
решил усложнить задачу ))

рисунок png с градиентом. залил форму черным цветом, установил TransparentColor:=true и цвет тоже на черный.

Но 1 минус, при использовании рисунка с градиентными краями, края подкрашиваются в этот черный цвет и получается не очень красиво ...

Есть какой нибудь другой метод, сделать фон формы прозрачным ?

Если транспарент черный, то черный цвет на рисунке будет считатся прозрачным.

Нужно найти цвет, которого нет на рисунке. Или искать его и самостоятельно устанавливать транспарент.

[-Jack-]

http://pikucha.ru/i9ggt
в TImage грузится рисунок с полупрозрачными краями. (1)
Цвет формы ставлю clNone, в итоге получается что край рисунка подкрашивается и обгрызывается.

А пробовал ставить не clNone, то форма прозрачной становиться не хочет