Jump to content
uniGUI Discussion Forums

stas

uniGUI Subscriber
  • Content Count

    338
  • Joined

  • Last visited

  • Days Won

    29

Everything posted by stas

  1. http://db.kontora.ua/web/fishfact.dll/m
  2. Добрый вечер Вопрос в следующем, как такую покупку можно оформить через бухгалтерию ? Т.е. какие документы можно получить и всё такое... Спасибо за ответ
  3. stas

    Force desktop mode

    Thank you, Farshad. Please move this topic to the Feature Request Thanks
  4. stas

    Force desktop mode

    Hello How to force desktop mode on mobile device with switch ServerModule.Options: soAutoPlatformSwitch ? Thanks
  5. stas

    [mobile] PhoneBook mobile app

    Very nice, thanks
  6. stas

    Google Maps geocoding

    Пример очень сложно выдернуть из контекста. Но мысль следующая Тут изложено апи геокодирования http://api.yandex.com.tr/maps/doc/geocoder/desc/concepts/input_params.xml 1)С помощью сервера Используется любой метод закачки http Можно использовать Indy, Synapce. и.т.д Возвращать приятнее json он меньше по размерам и легче парсится вручную. Далее получаем координаты и с помощью Гугльмаповского компонента от Лёмы определяем маркер в заданную точку. 2)С помощью клиента можно использовать jquery или стандартным ajax запросом Далее опять вытягиваются координаты и маркер посылается в заданную точку с помощью api гугла. Это для сервера на FastScript procedure SearchAdressEx(Adress:String;var LatS,LonS:String); var LatS,Lons,S,SQ:String; i:integer; M:TStringStream; Lat,LOn:Double; R:Integer; begin M:=TStringStream.Create; try S:='http://geocode-maps.yandex.ru/1.x/?geocode='+Adress+'&lang=uk-UA&format=json&results=1'; HttpGetFile(S,M); //Тут мы закачиваем файл S:=M.DataString; if pos('"pos":',S)<>0 then begin S:=copy(S,pos('"pos":',S)+length('"pos":')+1,length(S)); S:=copy(S,1,pos('"',S)-1); LatS:=ExtractWord(2,S,' '); LonS:=ExtractWord(1,S,' '); end; finally M.Free; end; end;
  7. stas

    Google Maps geocoding

    В целом геокодинг можно использовать, левый, скажем от Яндекса, он даже проще. Я например загружаю со стороны сервера, а потом передаю на клиент.
  8. stas

    Google Maps geocoding

    Добрый вечер, какая версия унигуи ? Причем даже без проверки видны ошибки в синтаксисе . Это точно правильно ? scaleControl: true; draggable: true; navigationControl: true
  9. public property Checked[index:Integer]:boolean; // Set Get Checked Item property Disabled[index:Integer]:boolean // Set Get Disabled Item published property DisplayMode:TListDisplayMode; // Display Names or Values or Both of StringList property CheckBoxes:boolean // Show CheckBoxes property DisClosure:boolean // Show Disclosure property Group:boolean // When Group=true and DisplayMode=Name then Grouped By Values else when DisplayMode=Values then Grouped by Names property OnCheck:TItemEvent // On CheckBox tap property OnDisclose:TItemEvent //On Disclose Tap End; listbox.zip
  10. stas

    Text recognition

    Text recognition by tesseract-ocr http://code.google.com/p/tesseract-ocr/ jpeg only You can view demo by http://db.kontora.ua/recognize.dll You can download source and addinitional libraries from http://db.kontora.ua/recognize.zip You can download additional dictionaries from http://code.google.com/p/tesseract-ocr/downloads/list Regards
  11. UniDBGrid.LoadMask.Enabled always true in design mode Could not set Enabled=false P.S UniGuiVersion 0.96 Delphi version Xe2,Xe6
  12. stas

    Unset config property

    Hello How to unset config property For Example procedure TMyContainer.LoadCompleted; begin inherited; JsCode('width:undefined'); end; But in generated code a see O35=new Ext.MyContainer({width:undefined,width:200}); Where in my component I write JsCode('width:undefined'); Thank you
  13. stas

    Unset config property

    Yes!!! IgnoreWidth IgnoreHeight IgnoreTop IgnoreLeft IgnorePosition
  14. stas

    Leaflet map, test only

    http://db.kontora.ua.../leaflet.dll/m/ This is Sencha touch version
  15. Hello http://db.kontora.ua/web/leaflet.dll/m/ Solution UniServerModule.CustomFiles http://cdn.leafletjs.com/leaflet-0.7.3/leaflet.css http://cdn.leafletjs.com/leaflet-0.7.3/leaflet.js MainMForm.ClientEvents.ExtEvents function painted(sender, eOpts) { sender.setHtml('<div id="map" style="width:'+sender.getWidth()+'px; height:'+sender.getHeight()+'px"></div>'); map = L.map('map').setView([51.505, -0.09], 13); L.tileLayer('http://{s}.tile.osm.org/{z}/{x}/{y}.png' { attribution: '© <a href="http://osm.org/copyright">OpenStreetMap</a> contributors' }).addTo(map); }
  16. stas

    Leaflet map, test only

    problem with the electricity already it works
  17. stas

    how to change color Panel - Gradient

    function OnAfterCreate(sender) { sender.addBodyCls('body_grdnt'); } gradient.zip
  18. stas

    how to change color Panel - Gradient

    sender.addCls('body_grdnt');
  19. stas

    Custom ux Component ExtEvents

    If extract resource from extjs.res and create own resource with other name and attach this resource to uniGUI[XX]dcl.dpk ,that work fine. But it is wrong.
  20. Hello, I'm create sample component with JSObjects.DefaultJSClassName:='Ext.ux.sample.component' and published property ClientEvents; In Design-time, when i call ClientEvents.ExtEvents, i get error "Resource EXTJS_EXT_UX_SAMPLE_COMPONENT not found" When I create resource UniSample.res with resource EXTJS_EXT_UX_SAMPLE_COMPONENT and attach this resource to uniGUI[XX]dcl.dpk design-mode work fine, but it is wrong. What should I do ? Thanks P.s UniGui 0.96.0.1068
  21. stas

    Custom ux Component ExtEvents

    It's sample component. Javascript file sample.js for example Ext.define('Ext.ux.sample.component',{extend: 'Ext.Panel'});
  22. stas

    UniButtonEdit

    Replace In procedure TUniButtonEdit.ConfigJSClasses(ALoading: Boolean); from JSObjects.DefaultJSClassName:='Ext.form.TriggerField'; to JSObjects.DefaultJSClassName:='Ext.form.field.Trigger';
  23. [dcc32 Fatal Error] UniCodigoDescricao.pas(7): F1026 File not found: 'UniDBButtonNumberEdit.dcu'
  24. stas

    cant create dll

    {$ifndef UNIGUI_VCL} library {$E dll} {$else} program {$E exe} {$endif}
  25. You hope that it will work? procedure CMVisiblechanged(var Message: TMessage); message CM_VISIBLECHANGED; procedure CMEnabledchanged(var Message: TMessage); message CM_ENABLEDCHANGED; procedure CMBidimodechanged(var Message: TMessage); message CM_BIDIMODECHANGED; You can use JS Events
×