VirusZ2D

Есть 5 итемов  у listbox свойство Allowc drag = true  итемы переносятся в нутри листа все путем 

но как только включаю у итемов HitTest = true переносимость проподает (((.

(Еще замечание если DragMode = dmAutomatic и HitTest = true  то итем можно поменять с итемом у которого HitTest = false)

Как заставить их меняться ?

сам же и отвечаю )))

заменить 

LONG_PTR OldWndProc;

на

typedef LRESULT(__stdcall * func)(HWND,unsigned,WPARAM,LPARAM);
func OldWndProc;

OldWndProc = GetWindowLongPtr(FHwnd, GWL_WNDPROC);

на

OldWndProc = (func)GetWindowLongPtr(FHwnd, GWL_WNDPROC);

как правильно подключить функцию на 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)'
}

ну Если сравнить с фреймворком QT там с харда так же подгружается картинка и при этом проблем с прокруткой нет нужно просто реализовать в FMX

песни с логотипами даже если классифицировать по жанрам в одном жанре может быть до 3к итемов с картинками есть ли какой нибудь механизм чтоб ускорить прокрутку ? или все таки придется набивать память картинками ?

-  таких ресурсов нет у мобильных

речь о десктопе windows причем тут телефон  

мне нужна помойка где большой лист и нужно его прокручивать 

фильтры поиск разумеется имеются 

Привет гуру вопрос по прокрутке итемов тормозит жестко (((

 -Вообщем суть такова есть 10 000 картинок  размером 50x50  если загрузить их напрямую в память 

         то при прокрутке они рисуются быстро и лист крутится более менее но при этом расходуется большое количество опер. памяти.

 -А если будет 100 000 или больше в память грузить не очень хорошо а если напрямую грузить с харда ужасающе долго прокручивается лист 

         как решить сею проблему ? 

Доброго времени суток коллеги суть такова есть TImage  в (TFixedMultiResBitmap) добавляю три картинки c пропорциями 

scale -1.000  размеры 32x32  картинка 1.png

scale -2.000  размеры 48x48 картинка 2.png

scale -3.000 размеры 54x54 картинка 3.png

как сделать чтоб при изменении размера рисовалась  нужная картинка?

Спасибо

С формой проблем нет касаемо TPopup

Как ограничить изменение размера например только по высоте или по ширине

к примеру есть форма 100 x 100 нужно растягивать ее только по высоте до 200

меньше 100 нельзя больше 200 нельзя  помогите люди

спасибо

Каким макаром можно изменить минимальный размер ползунка ?

есть свойство Viewportsize но оно зависит от значения св-ва  max 

в списке 2000 элементов хотелось бы его сделать немного больше

что ж так сложно то O_O

выделить из строки подстроку - на 100 строк процедура?

 

а еще как обычно замечу, что данные нужно хранить в модели данных а не на экране

тогда доступ к ним гораздо проще

и сортировка тоже

действительно спасибо засыпал уже не подумал )))

Доброго времени суток

как отсортировать по алфавиту  Listbox1.sorted := true;

если так то он сортирует начиная с цифр а хотелось бы чтоб он начинал  с букв можно ли научить listbox этому ? спасибо

извеняюсь за флуд такая тема уже есть http://fire-monkey.ru/topic/1002-esli-v-svoistvakh-formy-ukazat-borderstyle-none-to-brauzer-ne/

Доброго времени суток. Что за дьяволщина  браузер работает нормально

как только у формы ставлю BorderSyle  в  none браузер чудным образом исчезает

доброго времени суток подскажите метод как засунуть иконку в 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 :=

не нашел другого способа как пройтись циклом по итемам так как событие возникает во время присвоения стиля  

procedure updateitem();

begin

end;

события не подхватывается ((

Доброго времени суток. Как обновить видимую часть в Listbox ? 

В общем создаю итемы вешаю обработчик 

Self.OnApplyStyleLookup := Self.Doapplys;

и пока я не прокручу список событие не возникает как лучше обновить итемы ? 

Ваш код просто вытаскивает изображение из StyleBook  класса Timage  а мне нужно получить изображение из TStyleObject  

Доброго времени суток подскажите как получить картинку из 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;

Скачал шрифт но как добавить  его в приложения и поставить по умолчанию

не понимаю прошу помощи

форма прозрачная и без рамки как заставить ее растягиваться только по высоте есть компонент TSizeGrip но он растягивает во все стороны а мне нужно по высоте