Перейти к содержанию
  • Регистрация

VirusZ2D

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

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

  • Посещение

  • Победитель дней

    2

Весь контент VirusZ2D

  1. Есть 5 итемов у listbox свойство Allowc drag = true итемы переносятся в нутри листа все путем но как только включаю у итемов HitTest = true переносимость проподает (((. (Еще замечание если DragMode = dmAutomatic и HitTest = true то итем можно поменять с итемом у которого HitTest = false) Как заставить их меняться ?
  2. сам же и отвечаю ))) заменить LONG_PTR OldWndProc; на typedef LRESULT(__stdcall * func)(HWND,unsigned,WPARAM,LPARAM); func OldWndProc; OldWndProc = GetWindowLongPtr(FHwnd, GWL_WNDPROC); на OldWndProc = (func)GetWindowLongPtr(FHwnd, GWL_WNDPROC);
  3. как правильно подключить функцию на Delphi робит на c++ нет (( HWND FHwnd; LONG_PTR OldWndProc; в создании формы FHwnd = Fmx::Platform::Win::WindowHandleToPlatform(Handle)->Wnd; OldWndProc = GetWindowLongPtr(FHwnd, GWL_WNDPROC); SetWindowLongPtr(FHwnd, GWL_WNDPROC, LONG_PTR(MyWndProc)); LRESULT __stdcall MyWndProc(HWND Hwnd,UINT Msg, WPARAM WParam,LPARAM LParam) { if (Msg == WM_MOVE) { ShowMessage("Тест") ; } return CallWindowProc(OldWndProc,Hwnd, Msg, WParam, LParam); /////// ошибка E2034 Cannot convert 'long' to 'long (__stdcall *)(HWND__ *,unsigned int,unsigned int,long)' }
  4. ну Если сравнить с фреймворком QT там с харда так же подгружается картинка и при этом проблем с прокруткой нет нужно просто реализовать в FMX
  5. песни с логотипами даже если классифицировать по жанрам в одном жанре может быть до 3к итемов с картинками есть ли какой нибудь механизм чтоб ускорить прокрутку ? или все таки придется набивать память картинками ?
  6. - таких ресурсов нет у мобильных речь о десктопе windows причем тут телефон мне нужна помойка где большой лист и нужно его прокручивать фильтры поиск разумеется имеются
  7. Привет гуру вопрос по прокрутке итемов тормозит жестко ((( -Вообщем суть такова есть 10 000 картинок размером 50x50 если загрузить их напрямую в память то при прокрутке они рисуются быстро и лист крутится более менее но при этом расходуется большое количество опер. памяти. -А если будет 100 000 или больше в память грузить не очень хорошо а если напрямую грузить с харда ужасающе долго прокручивается лист как решить сею проблему ?
  8. VirusZ2D

    TImage scale как применить

    Доброго времени суток коллеги суть такова есть TImage в (TFixedMultiResBitmap) добавляю три картинки c пропорциями scale -1.000 размеры 32x32 картинка 1.png scale -2.000 размеры 48x48 картинка 2.png scale -3.000 размеры 54x54 картинка 3.png как сделать чтоб при изменении размера рисовалась нужная картинка?
  9. С формой проблем нет касаемо TPopup
  10. VirusZ2D

    TSizeGrip компонент

    Как ограничить изменение размера например только по высоте или по ширине к примеру есть форма 100 x 100 нужно растягивать ее только по высоте до 200 меньше 100 нельзя больше 200 нельзя помогите люди
  11. Каким макаром можно изменить минимальный размер ползунка ? есть свойство Viewportsize но оно зависит от значения св-ва max в списке 2000 элементов хотелось бы его сделать немного больше
  12. действительно спасибо засыпал уже не подумал )))
  13. Доброго времени суток как отсортировать по алфавиту Listbox1.sorted := true; если так то он сортирует начиная с цифр а хотелось бы чтоб он начинал с букв можно ли научить listbox этому ? спасибо
  14. извеняюсь за флуд такая тема уже есть http://fire-monkey.ru/topic/1002-esli-v-svoistvakh-formy-ukazat-borderstyle-none-to-brauzer-ne/
  15. Доброго времени суток. Что за дьяволщина браузер работает нормально как только у формы ставлю BorderSyle в none браузер чудным образом исчезает как бороться ? так как нужна форма без рамки. спасибо
  16. доброго времени суток подскажите метод как засунуть иконку в bitmap получаю иконку папки и ума не приложу как ее преобразовать var infoFile:SHFILEINFO; flag:Cardinal; begin try flag:=SHGFI_ICON; flag:=flag or SHGFI_SMALLICON; ZeroMemory(Addr(infoFile),SizeOf(infoFile)); SHGetFileInfo('C:\',0,infoFile,SizeOf(infoFile),flag); // infofile.hIcon (HICON) как присвоить его картинки Image1.Bitmap :=
  17. не нашел другого способа как пройтись циклом по итемам так как событие возникает во время присвоения стиля procedure updateitem(); begin Form1.Listbox1.BeginUpdate; for i := 0 to Length(fruit)-1 do fruit.DoApplyStyleLookup; Form1.Listbox1.EndUpdate; end;
  18. Доброго времени суток. Как обновить видимую часть в Listbox ? В общем создаю итемы вешаю обработчик Self.OnApplyStyleLookup := Self.Doapplys; procedure Fruit.Doapplys(Sender: TObject); begin Self.Text := get_title; end; и пока я не прокручу список событие не возникает как лучше обновить итемы ?
  19. Ваш код просто вытаскивает изображение из StyleBook класса Timage а мне нужно получить изображение из TStyleObject
  20. Доброго времени суток подскажите как получить картинку из TStyleObject var Item:TListBoxItem; StyleObject: TStyleObject; begin Item := ListBox1.ItemByIndex(0); StyleObject := TStyleObject(Item.FindStyleResource('styleobjectstyle')); if (StyleObject <> nil) and (StyleObject is TControl) then begin Image1.Bitmap:= StyleObject.Source; // Выводит изображение указанное в SourceLookUp целиком; Image1.Bitmap := // Интересует как вывести изображение обрезанное с учетом SourceLink end;
  21. Скачал шрифт но как добавить его в приложения и поставить по умолчанию не понимаю прошу помощи
  22. форма прозрачная и без рамки как заставить ее растягиваться только по высоте есть компонент TSizeGrip но он растягивает во все стороны а мне нужно по высоте
×
×
  • Создать...