Delphi 7 : Использование hRgn

[hexor_boo]

2 macomix,

2) Можно обойтись одной переменной Count. Если её значение = 0, тогда Collect false иначе true. Значения в прямой зависимости. Достаточно оставить только Count

- точно так. Спасибо!

3) Вы уже прошли по X Count пикселей, но вычислив X2 = X1 + Count + 1 вы отложите по X пиксели в другую сторону (в сторону тех, что ещё не просматривали). Надо исправить на X1 - Count

- это я сам понял, ещё до того как увидел ваш ответ.

Rgn2:=CreateRectRgn(X - Count, Y, X, Y + 1);

- Благодарю!

[macomics]

hexor_boo,

procedure TfrmMain.btnGetRgnClick(Sender: TObject);
var
 X            : Integer;
 Y            : Integer;
 X1           : Integer;
 Y1           : Integer;
 X2           : Integer;
 Y2           : Integer;
 RgnDest      : HRGN; // Вот эта переменная
 Rgn2         : HRGN;
 XBeadCollect : Boolean;
 XBeadsCount  : Integer;
begin
 RgnDest:=0;

 If (RgnDest=0) Then // Вот тут зачем проверка? Это локальная переменная, двумя строками выше, которой и так присвоили 0. Этот код не в цикле. Так зачем проверять очевидное?
  Begin
   RgnDest:=CreateRectRgn(391, 0, 392, 1);
  End;

[hexor_boo]

Совместными усилиями решена задача отрисовки региона "9-конечная звезда" по картинке с обрезкой формы под эту звезду. Ура!

procedure TfrmMain.btnGetRgnClick(Sender: TObject);
var
 X            : Integer;
 Y            : Integer;
 RgnDest      : HRGN;
 Rgn2         : HRGN;
 XBeadsCount  : Integer;

  Procedure UseBeads;
   Begin
    //Use beads code begin
    If (RgnDest=0) Then
      Begin
       RgnDest:=CreateRectRgn(X-XBeadsCount, Y, X, Y+1);
      End
     Else
      Begin
       Rgn2:=CreateRectRgn(X-XBeadsCount, Y, X, Y+1);
       CombineRgn(RgnDest, RgnDest, Rgn2, rgn_Or);
       DeleteObject(Rgn2);
      End;
    //Use beads code end
    XBeadsCount:=0;
   End;

begin
 RgnDest:=0;
 XBeadsCount:=0;

  For Y:=0 To imgStar.Height-1 Do
   Begin
     For X:=0 To imgStar.Width-1 Do
      Begin
      
        If (imgStar.Canvas.Pixels[X, Y]<>clWhite) Then
         Begin
           If (XBeadsCount=0) Then
            Begin
             XBeadsCount:=1;
            End
           Else
            If (XBeadsCount<(imgStar.Width-1)) Then
             Inc(XBeadsCount, 1)
            Else
             UseBeads;
         End
        Else
          If (XBeadsCount>0) Then
           UseBeads;

      End; //For X
   End; //For Y

  Try
   SetWindowRgn(Handle, RgnDest, True);
  Finally
   DeleteObject(RgnDest);
  End;

end;

[hexor_boo]

Немного оффтоп, однако перекликается с той же задачей. Оказывается для получения практически такого же результата с нулевой задержкой по времени отрисовки достаточно:

procedure TfrmMain.FormShow(Sender: TObject);
begin
 frmMain.TransparentColorValue:=clWhite;
 frmMain.TransparentColor:=True;
end;

Ржунемогу))) И в этом случае через прозрачные области формы можно как и в случае с регионами кликать по иконкам на рабочем столе (это не было озвучено, как условие задачи, но было нужно).

[macomics]

Так я же это вам прислал ещё в #5 ответе