m.medvedb
-
Постов
14 -
Зарегистрирован
-
Посещение
-
Победитель дней
1
Посетители профиля
919 просмотров профиля
Достижения m.medvedb
-
Доброго времени суток. Линейный график. Допустим шкала значений по оси Y(Right) 0-1000 усл. ед. При прокрутке за приделы 0 или 1000 происходит продление шкалы в "+" или в "-". Установка приделов Max-Min 'скролу не помеха. Как ограничить прокрутку по оси Y при скроле мышкой.
-
Прога мониторит изменение тока и температуры, надоело смотреть все в таблицах. Собственно нужен пример на delphi FMX
-
Yarpda отреагировал на ответ на вопрос:
Как сделать перемещение контрола мышкой/пальцем?
-
Delphi FMX Ribbon своими руками из стандартных компонентов.
m.medvedb опубликовал вопрос в Разработка компонентов
Доброго времени суток. Пытаюсь сделать подобие Ribbona из стандартных компонентов. Балуюсь с Tpanel пока страшновато выходит. Может кто-то пылся сделать подобное? Если да то поделитесь идеями. -
Спасибо! Буду внимательней!
-
Как программно изменить размер шрифта TCornerButton? Пробовал так но почему-то не работает... Font.size:=MyValue
-
Благодарю за развернутый ответ! Все разобрался. Отличная функция!
-
Как сделать компонент с нуля нет проблем...... Вопрос, как сделать копию компонента и его обработчиков? Точнее FMX позволяет сделать составной компонент..... как клонировать родителя и все связанные с ним компоненты.
-
Ну прям нет слов. Спасибо огромное за ваш труд! Все работает как часики!
-
У меня есть еще к вам вопрос: Есть форма на ней множества TCornerButton, используются как красивые дисплеи для отображения данных. Вопрос как при передвижение компонентов запретить заход одного за другой? Их около 30ти в каждом проверять каждый не вариант. Движение компонентов произвожу по вашему примеру: Как сделать перемещение контрола мышкой/пальцем? Еще добавил в код на событие OnMouseMove проверку от захода компонента за форму. If DraggableImage.Position.X < 0 Then DraggableImage.Position.X := 0 Else If (DraggableImage.Position.X + DraggableImage.Width) > Form4.ClientWidth Then DraggableImage.Position.x := Form4.ClientWidth - DraggableImage.Width; If DraggableImage.Position.y < 0 Then DraggableImage.Position.y :=0; If (DraggableImage.Position.y + DraggableImage.Height) > Form4.ClientHeight Then DraggableImage.Position.y := Form4.ClientHeight - DraggableImage.Height;
-
Да и вот весь код! procedure TForm4.DraggableImageMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Single); var MoveVector: TVector; begin if FPressed then begin // Вычисляем локальное смещение относительно первоначальной позиции MoveVector := TVector.Create(X - FStartPos.X, Y - FStartPos.Y,0); // Вычисляем смещение в координатах формы, чтобы учесть изменение // координат при смещении родительских контролов MoveVector := DraggableImage.LocalToAbsoluteVector(MoveVector); if DraggableImage.ParentControl <> nil then MoveVector := DraggableImage.ParentControl.AbsoluteToLocalVector(MoveVector); // Перемещаем картинку на вычисленный вектор DraggableImage.Position.Point := DraggableImage.Position.Point + MoveVector.ToPointF; end; end;
- 7 ответов
-
- 1
-
-
- TControl
- TSelection
- (и ещё 8 )
-
Заработало! Спасибо за помощь!
-
если добавить ось Z:=0 Обработчик грешит вот на эту строку DraggableImage.Position.Point := DraggableImage.Position.Point + TPointF(MoveVector); [dcc32 Hint] First.pas(42): H2219 Private symbol 'MouseDownPoint' declared but never used [dcc32 Hint] First.pas(44): H2219 Private symbol 'Moving2' declared but never used [dcc32 Hint] First.pas(46): H2219 Private symbol 'Splitting' declared but never used Если изменить код по вашему совету....то ругается на ту-же строку и в обработчике та-же ошибка
-
Отличный пример! Вопрос у меня XE5 и он требует ввести координату Z в функции MoveVector := TVector.Create(X - FStartPos.X, Y - FStartPos.Y);