Как вырезать на форме область определенной формы ("что то вроде ножниц")

[dimfil]

Возможность изменения видимой области формы должна быть. На C# это просто: используется Region, даже текст можно нарезать таким образом. А как обстоит дело в Delphi?

[Stilet]

Тоже самое, есть Region.

[Virtson]

тоже TRegion

[dimfil]

Парни, что то не то вы мне подсказали.
Ни Region ни Tregion Help Delphi ничего путного не выдает.
Помогите кто нибудь, пожалуйста.

[mihali4]

Примерно вот так:

var r1,r2,r3,r4,h: THandle;
begin
r1:=CreateEllipticRgn (-1, 0, 11, 12);
r2:=CreateEllipticRgn (789, 0, 800, 12);
r3:=CreateEllipticRgn (-1, 590, 11, 602);
r4:=CreateEllipticRgn (789, 590, 800, 602);
CombineRgn(r1,r1,r2,RGN_OR);
CombineRgn(r1,r1,r3,RGN_OR);
CombineRgn(r1,r1,r4,RGN_OR);
r2:=CreateRectRgn(5,0,793,602);
CombineRgn(r1,r1,r2,RGN_OR);
r2:=CreateRectRgn(-1,6,5,596);
CombineRgn(r1,r1,r2,RGN_OR);
r2:=CreateRectRgn(793,6,799,596);
CombineRgn(r1,r1,r2,RGN_OR);
SetWindowRgn(Handle,r1,True);
...
end;

Тут из формы вырезается клиентская область со скругленными краями.

[dimfil]

Смотрел я в хелпе есть только Polygon - то есть по массиву точек происходит вырезание.
В C# есть AddString - это проще.
Но мне надо строку текста на форме вырезать помогите кто чем.
Может каким то образом можно строку загнать в массив точек, а потом использовать CreatePolygonRgn(...).

[mihali4]

Создание PolyPolygon с использованием массива точек

Polygon - метод компонента TCanvas получает в качестве параметра динамический массив точек. Функция PolyPolygon() из Windows GDI 
получает указатель на массив точек. 
Пример:
procedure TForm1.Button1Click(Sender: TObject);
var
ptArray : array[0..9] of TPOINT;
PtCounts : array[0..1] of integer;
begin
PtArray[0] := Point(0, 0);
PtArray[1] := Point(0, 100);
PtArray[2] := Point(100, 100);
PtArray[3] := Point(100, 0);
PtArray[4] := Point(0, 0);
PtCounts[0] := 5;
PtArray[5] := Point(25, 25);
PtArray[6] := Point(25, 75);
PtArray[7] := Point(75, 75);
PtArray[8] := Point(75, 25);
PtArray[9] := Point(25, 25);
PtCounts[1] := 5;
PolyPolygon(Form1.Canvas.Handle,PtArray,PtCounts,2);
end;

Среди прочих, и этот пример есть в моей оболочке FAQ-базы, выложенной на сайте форума:
http://www.programmersclub.ru/files/dfaq.rar

[FaTaL]

Можно создать форму по картинке. Т.е. находишь картинку в форме ножниц и создаёшь по ней форму.
Код


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


procedure Tmain.FormCreate(Sender: TObject);
var
regn, tmpRegn: integer; // регион окна и временный регион
x, y: integer; // координаты пикселя
nullClr: TColor; // «прозрачный цвет»

begin
nullClr := image1.picture.Bitmap.Canvas.Pixels[0, 0];
// Image1 это картинка по которой создается форма окна
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(main.handle, regn, true);

end;

[dimfil]

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

Можно создать форму по картинке. Т.е. находишь картинку в форме ножниц и создаёшь по ней форму.
Код


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


procedure Tmain.FormCreate(Sender: TObject);
var
regn, tmpRegn: integer; // регион окна и временный регион
x, y: integer; // координаты пикселя
nullClr: TColor; // «прозрачный цвет»

begin
nullClr := image1.picture.Bitmap.Canvas.Pixels[0, 0];
// Image1 это картинка по которой создается форма окна
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(main.handle, regn, true);

end;

В примере разобрался, большое спасибо! Но:
nullClr := image1.picture.Bitmap.Canvas.Pixels[0, 0];
в этой строке при считываниии цвета картинка пропадает, если эту строку закоментировать то картинка на форме остается. Вывод такой: при обращении к массиву цветов картинка пропадает с формы. Как быть?
В общем то очень хочется чтобы этот отличный алгоритм заработал.

[FaTaL]

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

В примере разобрался, большое спасибо! Но:
nullClr := image1.picture.Bitmap.Canvas.Pixels[0, 0];
в этой строке при считываниии цвета картинка пропадает, если эту строку закоментировать то картинка на форме остается. Вывод такой: при обращении к массиву цветов картинка пропадает с формы. Как быть?
В общем то очень хочется чтобы этот отличный алгоритм заработал.

Код писал не я, но сам его пробывал всё нормально работает. Подробнее можешь глянуть в книге М.Фленова "Delphi глазами хакера" в разделе 3.8 на странице 101.