[Fahrenheit]

Задача состоит в том что есть программа для редактирования картинок и компонент professional-effect-image.Суть в том, чтобы в программе создать курсор аналогичный курсору в прикреплённых картинках...и чтобы только в этой области накладывался нужный эффект.

[lmikle]

у соотв. компонента надо установить свой курсор (св-во Cursor) на тот, который загрузишь из ресурса, например.

Код:

const
  crHandFlat = 5;
  crHandGrab = 6;

{$R extres.res}

procedure TMainForm.FormCreate(Sender: TObject);
begin
  // Load additional cursors
  Screen.Cursors[crHandFlat] := LoadCursor(HInstance, 'HandFlat');
  Screen.Cursors[crHandGrab] := LoadCursor(HInstance, 'HandGrab');
end;

procedure TMainForm.UpdateMouseCursor;
begin
  If (pbView.Width > sbView.ClientWidth) Or
     (pbView.Height > sbView.ClientHeight)
    Then
      Begin
        If FHandMoveFlag
          Then Screen.Cursor := crHandGrab
          Else Screen.Cursor := crHandFlat;
      End
    Else Screen.Cursor := crDefault;
end;

Ресурс с курсорами (extres.res) создается в ImageEditor'е (стандартный Дельфевый).