VPF::Как выводить Form любой формы - Форум программистов

Vetos

Дата 2.11.2005, 17:33 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

Репутация: нет
Всего: 4

Кто знает как выводить Form Любой формы(Свою придумать).
Дайте пожалуйста линк на исходник. smile

--------------------

Строить нужно так, чтоб никто не сломал!
А ломать, чтоб никто не знал 8) :ne_huliganit

z-END

Дата 2.11.2005, 17:35 (ссылка)

(нет голосов)

Загрузка ...

прафесар™

Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

Репутация: 11
Всего: 102

ФАК или ДРКБ

--------------------

Каждый чилавек пасвоему праф...а памоему НЕТ!

Guest_Verh

Дата 2.11.2005, 17:40 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

http://forum.vingrad.ru/index.php?act=modu...icle_num=002526

p0s0l

Дата 2.11.2005, 17:40 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112

Модератор: Название темы должно отражать ее суть!

--------------------

С уважением, г-н Посол.

Stolzen

Дата 3.11.2005, 10:56 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1041
Регистрация: 17.10.2005

Репутация: нет
Всего: 48

Это я взял из ДРКБ

На OnShow:

Код


var
  MaskBmp: TBitmap;
begin
  MaskBmp := TBitmap.Create;
  MaskBmp.LoadFromFile('FormShare.bmp');
  MainForm.Height := MaskBmp.Height;
  MainForm.Width := MaskBmp.Width;
  SetWindowRgn(MainForm.Handle, BitmapToRgn(MaskBmp), True);
  MaskBmp.Free;
end;

А вот BitmapToRgn:

Код


function BitmapToRgn(Image: TBitmap): HRGN;
var  
  TmpRgn: HRGN;  
  x, y, ConsecutivePixels: integer;
  CurrentPixel, CurrentColor: TColor;
begin
  Result := CreateRectRgn(0, 0, Image.Width, Image.Height);
  if (Image.Width = 0) or (Image.Height = 0) then exit;
  for y := 0 to Image.Height - 1 do
    begin  
    CurrentColor := Image.Canvas.Pixels[0, y];
    ConsecutivePixels := 1;  
    for x := 0 to Image.Width - 1 do  
      begin
      CurrentPixel := Image.Canvas.Pixels[x, y];
      if CurrentColor = CurrentPixel
        then inc(ConsecutivePixels)  
        else begin  
             if CurrentColor = clWhite then
               begin  
               TmpRgn := CreateRectRgn(x-ConsecutivePixels, y, x, y+1);  
               CombineRgn(Result, Result, TmpRgn, RGN_DIFF);  
               DeleteObject(TmpRgn);
               end;  
             CurrentColor := CurrentPixel;  
             ConsecutivePixels := 1;  
             end;  
      end;
   if (CurrentColor = clWhite) and (ConsecutivePixels > 0) then
      begin  
        TmpRgn := CreateRectRgn(x - ConsecutivePixels, y, x, y + 1);
        CombineRgn(Result, Result, TmpRgn, RGN_DIFF);
        DeleteObject(TmpRgn);
      end;  
    end;  
end;

Это позволяет делать формы такими, какая картинка

--------------------

datatalks.ru - анализ данных, статистика, машинное обучение

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