awex
awex
Подробная информация
- Имя пользователя
- awex
- Присоединился
- Посещений
- 0
- Был на сайте
- Группы
- Members
Комментарии
-
А если попробывать так??? program outer; uses 'inner'; begin test; end.
-
Не знаю, у себя проверил конструкция работает: MessageDlg('Hello', mtError, mbOK + mbCancel, 0); Как вызываешь функцию из скрипта???
-
Вот у меня такой код вполне работоспособен. Сравни со своим, как говориться найди отличия. Pascal Script: procedure Button1Click(Sender: TObject); var item: TMenuItem; begin item := TMenuItem.Create(Form); Item.Caption := 'eee'; PopupMen…
-
А реализация CallMethod какая???
-
2>>-=Serg=- Так сказать UP. Повторю вопрос: Пример пожалуйста в студию вызова динамически загружаемой библиотеки из скрипта и также какие "нужные функции" нужно для этого зарегистрировать в FS.
-
написал: Все можно. Главное зарегистрировать в FS нужные функции (для работы с Dll) Пример пожалуйста в студию вызова динамически загружаемой библиотеки из скрипта а какие "нужные функции" гужно зарегистрировать в FS.
-
>>>В FS зарегистрировано далеко не все, что есть в VCL. А координально нового ничего добавлять и не нужно... Нужно подлатать уже существующее.. 1, 3, 4 - Это явная ошибка. 2. Panel.Constraints.MaxHeight := '' Вызовет ошибку... 5…
-
Примерно следущее: for i := 0 to ControlCount - 1 do if Controls is TMemo then TMemo(Controls).Visible := False; А вообще F1 и смотрим ControlCount и Controls у TWinControl
-
Да соглашусь, цена неимоверно завышена.... Причем качество поддержки оставляет желать лучшего.... Например, топики остались вообще без внимания: http://www.fast-report.com/en/forum/?p=/discussion/2153 http://www.fast-report.com/en/forum/?p=…
-
Да, косаясь импорта, пара замечаний: fs_iextctrlsrtti.pas AddClass(TBitBtn, 'TGraphicControl'); >>> AddClass(TBitBtn, 'TButton'); fs_iformsrtti.pas AddClass(TLabel, 'TWinControl'); >>>AddClass(TLabel, 'TControl');
-
>>>Ну так а в чем собственно проблема ? К чему сия простыня? А то что при компиляции в стандартной поставки вещей типа .Constraints.MaxHeight := 0; возбуждается сообщение о незарегистрированном классе TSizeConstraints. Соответственно та…
-
2Stranger >>>Ну почему же, очень правильное и вполне предсказуемое поведение. Ага, для нас которые знаю что ядро скриптере базируется на Variant'е.... А как же простые пользователи-настройщики наших поделок на базе скриптера, онито могут…
-
2Stranger >>>null конвертится только в OleStr, в String нет. Да это все итак понятно.. Просто поведения скриптового языка отличается от паскалевского.... И эта особенность нигде не документирована.... И вывод напрашивается сам собой…
-
2Stranger Так функция задекларирована как function Test(a, b: integer): string; а отсюда и предположение, что Result строковое...
-
Блин, смайлик... долно быть inttostr( b );
-
Try frxDBdataset1.FieldByName('Имя поля').IsNull
-
2Roman Принципиально такую возможность я думаю добавить можно... Дело в малом... в TfsCustomVariable и иже с ними добавить свойство AltName наравне с Name... В AddObject, AddClass, AddVariable, AddMethod добавить еще по одному параметру... И пр…
-
Как вариант использование достаточно популярной OpenSource библиотеки SynEdit. http://SynEdit.SourceForge.net Хотя подобных готовых решений существует очень много, как говориться что понравиться.... В FastReport 3x'e существует аналог TfsSynta…
-
2Dvin Имелось в виду динамический вызов функции из произвольной DLL без импорта этих функций через классы обертки.
-
А если шанс что FS в ближайшее врямя этому научиться??? А то уж очень хотелось бы...
-
Memo1.Free;
-
with AddClass(TFIBTransaction, 'TComponent') do begin with AddClass(TpFIBTransaction, 'TFIBTransaction') do begin >> AddProperty('InTransaction', 'Boolean', GetProp); >> AddMethod('procedure StartTransaction', CallMethod); >&g…
-
ar := VarArrayCreate([0, 1, 2, 3], varInteger); >>> ar := VarArrayCreate([0, 3], varInteger);
-
>>>AddClass(TDataSet,'TComponent'); Это излишне, TDataSet уже проимортили в модуле fs_idbrtti со всеми его свойствами и методами...
-
Можно, как добавлять класс и все его свойства и методы описано в юзвере мануале.
-
Да вроде все просто: constructor TFunctions.Create; begin with fsGlobalUnit do begin with AddClass(TMyClass, 'TObject') do begin AddDefaultProperty('Cell', 'Word, Word', 'TCell ', CallMethod, True); end; end; function TFunctions.CallMe…
-
Например для дизайна форм можно использовать DreamControls (www.dream-com.com). Особенность этих компонент в том что в них есть как и скриптер (достаточно тяжелая вешь), и Code дизайнер. Напоминает миниатюрный Delphi. А при поднятии формы на клие…
-
Спасибо. Помогло.
-
Up