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

Кривяков Виталий

Пользователи
  • Постов

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

  • Посещение

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

    12

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

  1. Пост Кривяков Виталий - сообщение в Зависимость от регистра русских символов при использовании LIKE был отмечен как ответ   
    Не вопрос.
    SQLITE.zip
  2. Пост Кривяков Виталий - сообщение в Не работает код с TProgressBar был отмечен как ответ   
    Добрый день!
     
    Честно сказать, не смог понять алгоритма, посему набросал простой пример, как проверять пересечение контролов стандартными средствами.
     
    function TForm1.OpponentVSHero: TAttacMode; var   RcOpponent, RcHero : TRectF;   Pt : TPointF; begin   Result := TAttacMode.None;   // Получим абсолютные размеры оппонента   RcOpponent := Opponent.AbsoluteRect;   // Получим абсолютные размеры героя   RcHero := Hero.AbsoluteRect;   // Получим центр героя   Pt.X := Hero.Width / 2;   Pt.Y := Hero.Height / 2;   // Переведем его в абсолютные координаты   PT := Hero.LocalToAbsolute(PT);   // Проверим, не пересекаются ли габариты героя и оппонента   if RcOpponent.IntersectsWith(RcHero) then begin     Result := TAttacMode.Next;   end;   // Проверим, попадает ли центр героя в область оппонента   if RcOpponent.Contains(Pt) then Result := TAttacMode.Attacked; end; Hero.zip
  3. Пост Кривяков Виталий - сообщение в [Windows] Как указать цвет по RGB TColor? был отмечен как ответ   
    Добрый день!
    TColor и TAlphaColor - несовместимые типы, они по разному хранят цветовые составляющие.
    TColor = $00BBGGRR
    TAlphaColor = $AARRGGBB
     
    И как следствие, если Свойство объявлено как TAlphaColor, то при присвоении ему обычного TColor будет цветовая ошибка.
×
×
  • Создать...