Лидеры

unit uHelpers; interface uses FMX.Forms; type TForm_Helper = class helper for TForm procedure Minimize; procedure SendToTaskbar; end; implementation uses System.UITypes{$IFDEF MSWINDOWS}, Winapi.Windows, FMX.Platform.Win{$ENDIF}; { TForm_Helper } procedure TForm_Helper.Minimize; begin Application.MainForm:= nil; WindowState := TWindowState.wsMinimized; end; procedure TForm_Helper.SendToTaskbar; begin {$IFDEF MSWINDOWS} SetWindowLong(WindowHandleToPlatform(Handle).Wnd, GWL_EXSTYLE, GetWindowLong(WindowHandleToPlatform(Handle).Wnd, GWL_EXSTYLE) or WS_EX_APPWINDOW); {$ENDIF} end; end. у Вашей формы пишем type TForm1 = class(TForm) ........ protected procedure CreateHandle; override; private ........ public ...... end; implementation uses uHelpers; {$R *.fmx} {это позволит сворачивать ваше окно на панель задач, независимо от количества окон в приложении} procedure TForm1.CreateHandle; begin inherited CreateHandle; SendToTaskbar; end; а Minimize свернет все как надо, независимо от того - какое у него "состояние".

версия для Seatle ColorListView.zip весь код для отрисовки кастомного цвета 1) копируем себе и открываем FMX.ListView 2) Ctrl+F -> DrawItemsFill 3) Вставляем код // отрисовываем кастомный цвет........................................... // procedure TListViewBase.DrawItemsFill(const StartItem................. if TListViewItem(ListItem).Data['aUseCustomColor'].AsBoolean then FBrush.Color := TListViewItem(ListItem).Data['aCustomColor'].AsInteger; // ...................................................................... после if FAlternatingColors and (AltIndex mod 2 = 1) then FBrush.Color := FItemStyleFillAltColor; 4) Подключаем в своём проекте после стандартного FMX.ListView

Привет Всем! Много тем на форуме про раскраску TListView, нашел в интернете решение и доработал его Вот что получилось LV_Helper.zip ColorListView.zip Доступно для Seattle ListView1.SetColorItemSelected(TAlphaColorRec.Orangered); //выделенный ListView1.SetColorItemFill(TAlphaColorRec.Gray); // обычный цвет Item ListView1.SetColorItemFillAlt(TAlphaColorRec.Lightgrey); // альтернативный цвет Item ListView1.SetColorBackground(TAlphaColorRec.Black); // цвет самого TListView ListView1.SetColorItemSeparator(TAlphaColorRec.Lightgray); // Линия разделения Item'ов ListView1.SetColorText(TAlphaColorRec.Red); // Обычный текст ListView1.SetColorTextSelected(TAlphaColorRec.White); // выделенный текст ListView1.SetColorTextDetail(TAlphaColorRec.Yellow); // текст доп. инфы ListView1.SetColorTextHeader(TAlphaColorRec.Green); // текст заголовка ListView1.SetColorTextHeaderShadow(TAlphaColorRec.Lightgray); // тень текста ListView1.SetColorButtonText(TAlphaColorRec.Orange); // цвет текста кнопки ListView1.SetColorButtonTextPressed(TAlphaColorRec.Orangered); // цвет нажатой кнопки добавлено в Berlin ListView1.SetColorPullRefresh(TAlphaColorRec.Orange); ListView1.SetColorPullRefreshIndicator(TAlphaColorRec.Orangered); ListView1.SetColorStretchGlow(TAlphaColorRec.Lime); ModernListView.rar

нет, но могу скинуть измененный ListView с покраской конкретных Item'ов

Больше не слух... http://community.embarcadero.com/article/news/16209-appmethod-merges-with-rad-studio-product-line

FWinService.SetWindowState(Self, TWindowState.wsMinimized);

нет Button.Click и слава богу. Наконец-то... потому что так не должно быть совсем нужно вызывать не обработчик кнопки а ту процедуру. которая должна вызываться в обработчике кнопки

Почему при изменении в FormMouseMove значение Y прыгает? Чем ниже опускаешься, тем больше эти прыжки (аж до 10 пикселей). Например, сдвигаешь на 1 пиксель вниз (пока тестирую на windows), а Y уменьшается на 10. Сдвигаешь еще на 1пикс вниз, Y возвращается к нормальному значению. PS. Еще есть какая-то зависимость от количество элементов в listbox-e. Чем больше элементов, тем больше "прыжки". PPS. после обработки напильником нормально работает http://fire-monkey.ru/topic/2023-pullrefresh/#entry10918