marvel
marvel
Подробная информация
- Имя пользователя
- marvel
- Электронная почта
- Присоединился
- Посещений
- 0
- Был на сайте
- Группы
- Members
Комментарии
-
Может хоть совместными усилиями реализовать сможет. И что там с записыми (records). Как например сделать поддержку типа TRect?
-
А почему бы и нет? Если эта форма доступна в скрипте
-
по-моему такое делать нельзя... можно использовать только классы, объявленные в Delphi
-
dmitry72 написал: А логику... Думаю что если скриптер поставлен на форму и в него положен скрипт, то и скрипт вместе с ресурсами сохраниться и восстановиться из DFM. А вот это надо попробовать! Может кто-нить реализует прототип такого прило…
-
Ну, допустим мы создали форму из DFM. Как сейчас в скрипте привязать логику, как обращаться к элементам этой формы.. Че-та я не понимаю...
-
Плохо что к постам нельзя присоединять файлы.. так бы присоеденил пару оберток к VCL-компонентам
-
dmitry72 написал: научите как создать форму из текстового DFM при помощи скриптера. а такое возможно средствами FastScript? Думаю тут надо очень много работать, писать юниту которая обрабатывала бы DFM-файл и строила в runtime форму... И…
-
WaReZ_MEN написал: Да работает он конечно не ахти…. А еще есть какие ни будь ? Других пока не видел... Можешь сам попробовать написать
-
WaReZ_MEN написал: А как их к мойи проге подключать? в программе (а не в скрипте) прописываешь в uses эти файлы-обертки. И эти классы, методы, события можно будет использовать в скрипте!
-
WaReZ_MEN написал: а где видел??????????? Хоть посмотреть как обертку делать.... так можешь на примере fs_iinirtti.pas (и других) посмотреть, поставляется в комплекте. генератор здесь! http://valera135.narod.ru
-
Видел я такую прогу, берет pas-файл и генерирует обертку, но что-то она глючит и не всегда срабатывает... имхо, лучше ручками!
-
Спасибо большое!
-
awex написал: А реализация CallMethod какая??? function TFunctions.CallMethod(Instance: TObject; ClassType: TClass; const MethodName: String; Caller: TfsMethodHelper): Variant; var APopuMenu: TPopupMenu; AMenuItem:TMenuItem; begin Resu…
-
А можно реализацию этой функции в студию? Вроде бы в 1.9 эта функция не описана, надо самому...
-
может мне привести пример как я это делал? вот примерно так... with AddClass(TMenuItem, 'TComponent') do begin AddMethod('procedure Add(Item: TMenuItem)', CallMethod); AddMethod('procedure Clear', CallMethod); AddMethod('proce…
-
Вот скрипт: function F:Integer; const A = 10; B = 20; begin Result := A + B; end; begin end. Вот обработчик OnClick кнопки: procedure TForm1.Button1Click(Sender: TObject); var V:Variant; begin fsScript1.Clear; fsScript1.Lines.Text := Memo…
-
Помоему тебе надо после компиляции сделать r := fsScript1.CallFunction('__f__', VarArrayOf([])); Должна возвратить результат функции "__f__"
-
Спасибо, попробую...
-
Работает! Кстати об этом написано в документации, а я не обратил внимания...