Rusland
-
Постов
1 204 -
Зарегистрирован
-
Посещение
-
Победитель дней
26
Весь контент Rusland
-
ссылку не найду... но там старая тема и ничего интересно кроме этих исходников Хотя вот нашел. Может тебе на Си писать dll? Есть же решения. Еще чего-то про оверлеи, не знаю полезно ли оно. А может можно эмулировать нажатие Printscreen и брать из буфера обмена?
-
Собственно где я это нашел, и обсуждалось что нужно переделать эти исходники, чтобы делать снимок с DirectX
-
тогда ой )
-
Компилится, но не понял как он должен грабить видео
-
Может из этого граббера можно получить какую-то полезную информацию
-
Вот рядом пример с Post
-
Я же написал, что для Windows. Директивы никто не отменял. Для мака нужно искать другое решение
-
Для Windows как и в VCL можно использовать Mutex-ы: // в dpr-е uses FMX.Forms, Winapi.Windows, ... {$R *.res} var MUT: THandle; begin MUT := OpenMutex(MUTEX_ALL_ACCESS, false, 'MySuperProgram'); if MUT <> 0 then Application.Terminate; if MUT = 0 then MUT := CreateMutex(nil, false, 'MySuperProgram'); Application.Initialize; ...
-
и классы
-
Надо было написать и как исправить ) -
в FMX есть 3D. Вот вам пример, попробуйте переделать его под падение картинки.
-
Пример такого файла выложите
-
Достаточно посмотреть на любом форуме по студии больше вопросов по паскалю, а не по cpp. А так как студия сначала все делает для Delphi, и лишь затем для С++Builder, то понятно почему вторые больше радуются обновкам... надеются что смогут тоже что и дельфицы ))
-
Ну это вряд ли
-
Clean проекта не помогает?
-
К сожалению, это не помогло. Какая-нибудь из картинок обязательно теряется
-
Delphi Tokyo ListView->ItemAppearance->ItemAppearance=DynamicAppearance Есть ImageList c 3 картинками. Добавляю item-ы в ListView: procedure TForm1.Button1Click(Sender: TObject); var i:integer; Lvi: TListViewItem; begin LsvObjects.BeginUpdate; LsvObjects.Items.Clear; try for i:=0 to 100 do begin Lvi := LsvObjects.Items.Add; Lvi.Tag := i; Lvi.Data['ObjectText'] := 'ObjectText '+i.ToString; Lvi.Data['StateText'] := 'StateText '+i.ToString; Lvi.Data['ConnectText'] := 'ConnectText '+i.ToString; end; finally LsvObjects.EndUpdate; end; end; в UpdateObjects рандомно выбираю картинку: procedure TForm1.LsvObjectsUpdateObjects(const Sender: TObject; const AItem: TListViewItem); var ... oConnectImage: TListItemImage; r: integer; begin r:=Random(ImageList1.Count); oConnectImage:=aItem.Objects.FindDrawable('ConnectImage') as TListItemImage; if (oConnectImage<>nil) then oConnectImage.ImageIndex:=r; ... end; В Windows все нормально. А вот что я вижу на планшетах: На Dexp: На Lenovo: Картинки могут появиться, а могут и нет. Как исправить ситуацию? Вот сам проект. Про Berlin добавлю вопрос позже.
-
Не плохо бы указать версию Delphi
-
Класс для снятия скриншотов не подойдет?
- 13 ответов
-
- 3
-
-
- firemonkey
- скриншот
- (и ещё 4 )
-
В Токио ЛистВью чуток тормознее. Вот же выше ссылка на видео от krapotkin показывающее что можно делать с ListView
-
Там Indy компоненты используются?
-
ListBox всегда был тормозной. Поэтому лучше использовать ListView (если версия НЕ Токио)
-
d7d1cd знает как работать с COM-портом
-
Мы все еще ждем рассказа )
-
Так всегда и надо делать, тогда Tab / Shift+Tab работает корректно
- 3 ответа
-
- 1
-