Перейти к содержанию
Fire Monkey от А до Я

Alexander

Пользователи
 Профиль  Обзор контента

  • Постов

    116

  • Зарегистрирован

  • Посещение

  • Победитель дней

    2

Ответы сообщества

  1. Alexander
    Пост Alexander - сообщение в Как сделать прозрачный TCircle? был отмечен как ответ   
    TCircle.Fill.Kind установить в None
  2. Alexander
    Пост Alexander - сообщение в Почему между двумя версиями Android разный размер приложения был отмечен как ответ   
    уже обсуждали http://fire-monkey.ru/topic/2178-razmer-prilozheniia-na-raznykh-ustroistvakh/?hl=размер
  3. Alexander
    Пост Alexander - сообщение в Изменение курсора мыши, Windows был отмечен как ответ   
    всё правильно, вы в обработчике компонента присваиваете курсор не компоненту, а форме. Хотите, чтоб и над компонентом был такой курсор, так и ему присвойте.
    Проверил у себя, данный код работает
    procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Single); begin if Rectangle1.Cursor = crHourGlass then Form1.Cursor := crSQLWait else Form1.Cursor := crSizeNWSE; end; procedure TForm1.Rectangle1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Single); begin Form1.Cursor := crSizeAll; Rectangle1.Cursor := crHourGlass; end;
  4. Alexander
    Пост Alexander - сообщение в Координаты центральной точки в закрашенной области. был отмечен как ответ   
    R := 80; Canvas.BeginScene(); Alpha := ((Sender as TPie).EndAngle+(Sender as TPie).StartAngle)/2; dX := (Sender as TPie).Width /2+ R * Cos(DegToRad(Alpha)); dY := (Sender as TPie).Height/2 +R * Sin(DegToRad(Alpha)); rct.Create(dX-5,dY-5,dX+5,dY+5); Canvas.DrawEllipse(rct,100); Canvas.EndScene();
  5. Alexander
    Пост Alexander - сообщение в ScrollBox.ViewportPosition анимация был отмечен как ответ   
    У Floatanimation есть событие Process. В его обработчике пропишите изменение image.position пропорционально увеличению image
×
×
  • Создать...