Лидеры

Автор: John Kouraklis Репозиторий: https://github.com/jkour/neTabControl Альтернативый TTabContol neTabControl is a FireMonkey control for Delphi. It builds on the native TabControl and adds a number of features. Video Demonstration Follow this link for a quick demo: neTabControl Video Design The control uses three elements: A Tag A TneTabItem: A subclass of TTabItem A Frame The neTabControl holds several TabItems, which all inherit from TneTabItem and shows a TFrame for each TneTabItem. For more details about the Architecture of neTabControl, check the wiki. How To Use Build and install the package: Open the Package file and install the component. Then you can drag and drop it in any forms Note: The actual components of each tab need to be embedded in a Frame and then attached to the tabControl FMX Style Starting from version 1.0.0 neTabControl doesn't use styles to embed the close image. Highlights Tab items are linked to tags instead of indices. For example you can write: SetActiveTab("Welcome Screen") or DeleteTab('Report Summary') TabItems have close icon TabItems can embed any control that descends from TControl (eg, image, progress bar, etc.) [v.1.0.0] Ability to add controls before or after the tab items (eg. Add button, etc.) [v.1.0.0] Style-indenendent tab item control. You can use any pre-existing style file without any customisation. neTabControl embeds the close image and the other control automatically [v.1.0.0] Customisable Pop-up menu Procedure to export the list of open tabs in order to implement load/save workspace feature Platforms This is a FireMonkey component. It should work on any platform but I have tested only on Win32, Win64 and MacOSX. Documentation There is documentation about the classes, the methods and properties. Please check the "Documentation" folder. Known Issues Check the wiki here. Bugs, Suggestions, Comments and General Contact I hope you find the component useful. If you have any comments or ideas, have spotted any bugs or have any suggestions about changes to the code use the "Issues" tab on github or drop me an email at j_kour@hotmail.com Thanks! John

Попробуй вынести до потока if Assigned(mPolyLine) then mPolyLine.Remove; // выдает Invalid class typecast

Скачать пакет можно здесь: Скачать 1. Удалить старый пакет библиотеки FGX Открываем среду IDE RAD Studio XE7 с административными правами. В меню открываем менеджер пакетов: "Component -> Install Packages..." Среди списка компонентов находим "FMX Extension Components". Выделяем и нажимаем кнопку "Remove" 2. Установка пакета библиотеки FGX Открываем в среде группу проектов. "File -> Open Project -> FGXGroup.groupproj" Собираем пакет fgx210 для всех требуемых платформ. Выделяем в менеджере проектов нужную платформу "Target Platforms" и в контекстном меню пакета fgx210 выбираем "Build" Далее повторяем сборку для всех целевых платформ. 3. Устанавливаем Design-Time пакет Выбираем в группе проектов dclfgx210 пакет и в контекстном меню выбираем "Install" Если пакет успешно установлен, то появится сообщение со списком зарегистрированных компонентов следующего вида: Все! Установка окончена.

Не успел автор изменить полностью описание походу. В версии 0.3 еще на стандартном контроле базировался: https://github.com/jkour/neTabControl/tree/v.0.3.0

Если что, я посмотрел немного исходников. И вот он не

У кого есть опыт монетизации приложений для Windows? Есть ли какие нибудь сервисы по размещению рекламы в таких приложениях?

Видос про TurboCocoa, для тех, кто не принял FireMonkey в Delphi.Недостатков данной технологии практически нет. Быстро, компактно, нативно:https://youtu.be/13I-Wz-fumA (с) В. Леонов

возможно, я просто не люблю JS и его лямбды, встроенные в лямбды, которые вставлены в лямбды ...))

а зачем такая сложная конструкция я делаю старорежимно procedure TMyThread.execute(); begin вызов долгой операции end; .. th:=TMyThreadCreate(...); th.OnTerminate:=AfterTerminate; th.Start; ... procedure TFrom1.AfterTerminate(...); begin тут все происходит в главном потоке end; интуитивно вроде одно и то же, но тут мне кажется сильно понятнее

отрисовать текст на картинке и передать ее для создания маркера

Я использую как разминающее мозги хобби, в свободное от работы время. Доход от приложений - приятное дополнение. До основного иструмента Delphi пока не дотягивает - нет компилятора под Linux, основную рабочую лошадку 90% предприятий в моей отрасли (ISP).

сделать маркер в виде подписи

Нажимаем на компоненте Expander правую кнопку мыши, выбираем Edit Custom Style (автоматически будет создать компонент StyleBook), затем в открывшемся редакторе стиля ищем Expander1Style1 (жмем на нем +), в нем Rectangle, в свойстве Fill-Kind которого выбираем None. Закрываем редактор, соглашаемся применить стиль. Всё. Expander станет прозрачным.