dnekrasov

Пользователи
  • Публикации

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

  • Посещение

  • Days Won

    13

dnekrasov last won the day on 10 сентября

dnekrasov had the most liked content!

О dnekrasov

  • Звание
    Продвинутый пользователь
  • День рождения 21.02.1974

Информация

  • Пол
    Мужчина
  • Город
    Минск

Посетители профиля

702 просмотра профиля
  1. tcoloranimation

    Так у TRectangle же нет свойства IsPressed. Как же можно возбудить этот триггер?
  2. Обратите внимание на модуль System.IOUtils. - там Вы найдёте всё что Вам нужно.
  3. Может так сработает: procedure TFormMain.ComboPopup(Sender: TObject); begin Combo.ListBox.DefaultItemStyles.ItemStyle := 'ListBoxItemStyle2'; Combo.ListBox.NeedStyleLookup; Combo.ListBox.ApplyStyleLookup; end;
  4. Если Parent у Butto2 - Panel2 var PointP: TPointF; begin PointP := PointF((Panel1.Width / 2) - (Button2.Width / 2), (Panel1.Height / 2) - (Button2.Height / 2)); PointP := Panel1.LocalToAbsolute(PointP); Button2.Position.Point := Panel2.AbsoluteToLocal(PointP); end; А вообще зачем Position менять: Button2.Parent := Panel1; Button2.Align := TAlignLayout.Center; Button2.BringToFront;
  5. Официальное название: AlReader Официальный сайт: http://www.alreader.com/ (но лучше сюда - http://4pda.ru/forum/index.php?showtopic=340035) Платформы: Android, Windows, WinMobile, Windows CE
  6. Попробовал реализовать стилем - никаких проблем не возникло: object TEllipse StyleName = 'ButtonEllipseStyle' Align = Center Size.Width = 256.000000000000000000 Size.Height = 191.000000000000000000 Size.PlatformDefault = False object TColorAnimation Duration = 0.500000000000000000 Inverse = True PropertyName = 'Fill.Color' StartValue = x00808080 StopValue = xAF808080 Trigger = 'IsMouseOver=true' TriggerInverse = 'IsMouseOver=false' end end UPD! Мммда... Насчет проблем я поторопился... Для того чтобы отследить клик по кнопке надо переопределить клик для TEllipse в стиле: procedure TForm1.btnTestApplyStyleLookup(Sender: TObject); var el: TEllipse; begin if TStyledControl(btnTest).FindStyleResource<TEllipse>('ButtonEllipseStyle', el) then el.OnClick := btnTestClick; end;
  7. В информации о пользователе слева от вопроса или ответа неправильный падеж слова публикация
  8. Обратите внимание на модуль System.IOUtils, а в частности на класс TDirectory. Там Вы найдёте все что Вам нужно.
  9. var bmd: TBitmapData; bmp: TBitmap; c, c1: TAlphaColor; x, y: Integer; ... bmp.Map(TMapAccess.ReadWrite, bmd); try c1 := bmd.GetPixel(x, y); bmd.SetPixel(x, y, c); finally bmp.Unmap(bmd); end;
  10. delphi fmx

    Winapi.Windows и FMX.Platform.Win
  11. delphi fmx

    ShowWindow(ApplicationHWND, SW_HIDE);
  12. А можно ещё так: ListView1.Items[0].Index := 1; ListView1.Items[1].Index := 0; ListView1.Items.Sort(TComparer<TListViewItem>.Construct( function(const ALeft, ARight: TListViewItem): Integer begin Result := ALeft.Index - ARight.Index; end)); Поменять-то поменяет, только на сколько обоснован вызов Sort в этой ситуации - решать Вам.
  13. Как-то так: with lvObjects.Items.Add do begin Text := 'Footer'; Purpose := TListItemPurpose.Footer; end;
  14. В чём проблема - используйте Queue или Synchronize
  15. А зачем менять. Можно же просто засинхронизировать: TThread.ForceQueue(nil, procedure begin MaxSize := CanvasClass.GetAttribute(TCanvasAttribute.MaxBitmapSize); end);