Перейти к содержанию
Fire Monkey от А до Я

Slym

Пользователи
  • Постов

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

  • Посещение

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

    32

Slym стал победителем дня 22 июля

Slym имел наиболее популярный контент!

1 Подписчик

Посетители профиля

12 408 просмотров профиля
  1. В лоб TList<Rec>, но говоришь большой список? память не резиновая - может надо класть на диск например в БД, и работать с Dataset
  2. CustomEditor не говорит? только едитор... один (1). если на много строк то что-то другое надо кастом дроу....
  3. type TSpinBoxEx=class(TSpinBox) protected procedure SetData(const Value: TValue); override; end; { TSpinBoxEx } procedure TSpinBoxEx.SetData(const Value: TValue); begin if Value.IsType<string> then Self.Value := StrToFloatDef(Value.AsString,0) else inherited SetData(Value); end; procedure TForm1.StringGrid1CreateCustomEditor(Sender: TObject; const Column: TColumn; var Control: TStyledControl); begin if Column.Index=1 then Control:=TSpinBoxEx.Create(self); end;
  4. 0. нафега лишние преобразования image? 1. Не жирно битмапы в базе? пользуй png/jpeg или в формате п.0 2. streamы надо иногда перематывать... position=0
  5. Не используй много форм: одна форма - много фреймов
  6. type TOpenForm=class(TForm) end; TOpenForm(FForm).ReleaseForm; Ты так никогда не делал? До protectedов регулярно так делаю, TOpenForm становится френдли объектом и разрешает protected
  7. не надо глобальные переменные... делай локальные var FFrom := TFrom.Create(nil);
  8. переменная FForm -не глобальная? тогда FForm .ReleaseForm, но оно тоже через TThread.ForceQueue работает
  9. вангую в что frmEditor - переменная негде не присвоенная... нужно либо при создании TfrmNewArticleList передавать ссылку на текущий frmEditor, или по Parentам искать его вниз EditorWorkFrame->Parent = EditorFrameLayout; EditorWorkFrame->frmEditor = this; EditorWorkFrame->Align = TAlignLayout::Client;
  10. Наоборот: сначала ShowModal, в колбеке ForceQueue Free FFrom := TFrom.Create(nil); FFrom.ShowModal(procedure(Res: TModalResult) begin TThread.ForceQueue(nil, procedure begin FreeForm(FFrom); end); end);
×
×
  • Создать...