Нестандартная форма

[ZvEr_HaCkEr]

Всем привет.Хочу сделать форму нестандартной формы,а точнее что-нибудь корявое как при загрузке Photoshop'a.Делаю вот так:
1)Ложу на форму картинку без фона
2)Пишу такой код:

procedure Tform4.WMNCHitTest (var M:TWMNCHitTest);
begin
inherited;
if M.Result = htClient then
M.Result := htCaption;
end;

procedure TForm4.FormCreate(Sender: TObject);
var
regn, tmpRegn: integer;
x, y: integer; 
nullClr: TColor; 
begin
form4.Color:=clred;
nullClr := image1.picture.Bitmap.Canvas.Pixels[0, 0];
regn := CreateRectRgn(0, 0, image1.picture.Graphic.Width,
image1.picture.Graphic.Height);
for x := 1 to image1.picture.Graphic.Width do
for y := 1 to image1.picture.Graphic.Height do
if image1.picture.Bitmap.Canvas.Pixels[x - 1, y - 1] = nullClr then
begin
tmpRegn := CreateRectRgn(x - 1, y - 1, x, y);
CombineRgn(regn, regn, tmpRegn, RGN_DIFF);
DeleteObject(tmpRegn);
end;
SetWindowRgn(form4.handle, regn, true);
end;

Все это работает,проблема состоит в следующем.Форма приобретает форму картинки,а хотелось бы чтоб форма устанавливала свои границы по имаге(ну пря как в фотошоп(нестандартная форма с картинкой внутри))
вот форма,а чтоб картинка внутри...Помогите пожалуйста!!!

[Пепел Феникса]

может Transparent формы порыть?

[Alex Cones]

У Вас 2 способа решения:

1) Регионы
2) Transparent

У второго способа тоже 2 метода.

1) Ставим BorderStyle в None
2) На изображении "прозрачные места" заливаем, например, розовым.
3) У формы ставим Transparent = TRUE
4) У формы ставим TransparentColor = $FF00FF или фуксю из готовых.

Вуаля.

Второй способ второго метода сделан для тех, кто не может найти Transparent свойства у формы:

  SetWindowLong(FRMMain.Handle, GWL_EXSTYLE,
   GetWindowLong(FRMMain.Handle, GWL_EXSTYLE) or WS_EX_LAYERED);
  SetLayeredWindowAttributes(FRMMain.Handle, clFuchsia, 0, LWA_COLORKEY);

[ZvEr_HaCkEr]

Да я и не знаю как( Вот видел компонент(или исходник)там форма круглая,а в ней глобус.Так вот ,форма формы устанавливалась по картинке.С png что-то связано.Может видели подобное?

Сообщение от Alex Cones

  SetWindowLong(FRMMain.Handle, GWL_EXSTYLE,
   GetWindowLong(FRMMain.Handle, GWL_EXSTYLE) or WS_EX_LAYERED);
  SetLayeredWindowAttributes(FRMMain.Handle, clblack, 0, LWA_COLORKEY);

Так получилосьТолько края картинки в image1 в черный цвет окрасились(черный цвет поставил)

[Alex Cones]

TImage должна быть размером точно как картинка.

Попросту говоря:

FRMMain.Width := BitMap.Width;
FRMMain.Height := BitMap.Height;
FRMMain.IMGMain.Height := FRMMain.Height;
FRMMain.IMGMain.Width := FRMMain.Width;
FRMMain.IMGMain.Canvas.Draw(0,0,BitMap);

[ZvEr_HaCkEr]

Да нет я вот про эти краяРамка в цвет формы.А избавиться от нее никак?

[Vikenty]

Сообщение от ZvEr_HaCkEr

Да нет я вот про эти краяРамка в цвет формы.А избавиться от нее никак?

установи у формы значения
Transparent=true
Color=цвет фона рисунка
TransparentColor=цвет фона рисунка

у меня правильно работает

[Пепел Феникса]

попробуй поставить цвет формы в clFuchsia
если я все верно понял конечно

[ZvEr_HaCkEr]

Сообщение от Пепел Феникса

попробуй поставить цвет формы в clFuchsia
если я все верно понял конечно

SetLayeredWindowAttributes(FRMMain. Handle, clyellow, 0, LWA_COLORKEY);
Причем тут это?Ну рамка тогда розовой будет,а я желтый захотел.Розовый в глаза бросается.

[Пепел Феникса]

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