Jump to content
uniGUI Discussion Forums

Leaderboard


Popular Content

Showing content with the highest reputation since 11/07/19 in Posts

  1. 2 points
    It worked perfectly, thank you very much for your attention.
  2. 2 points
    For example, can you try? procedure TMainForm.UniFormReady(Sender: TObject); begin UniSession.AddJS( 'Ext.defer(function() {'+ ' var _el='+ UniURLFrame1.JSName +'.iframe.contentDocument.getElementsByClassName("schedule-body--helper");'+ ' if (_el && _el[0]) {_el[0].scrollBy(0, 500)}'+ '}, 200);' ); end;
  3. 2 points
    what you suggest is correct, a servermodule thread will be created to execute your process. I prefer to create something like this in a separate exe, to avoid any problem with my unigui server, if you have server access to run other applications I would do that.
  4. 2 points
    Hello! This example shows how to scan any supported 1D/2D code with ZXing javascript library from the device video camera... This is an approximate implementation and may need to improve the code The main scan implementation is taken from here: https://zxing-js.github.io/library/examples/multi-camera/ You also need to add the files: libeay32.dll, ssleay32.dll and pem files to the root directory... UniServerModule -> CustomFiles: files/zxing.min.js BarcodeScannerZxingJS.rar
  5. 1 point
    Hello, I started a simple implementation without additional libraries, when the implementation is ready..., I will attach here. https://www.w3schools.com/html/html_images_imagemap.asp
  6. 1 point
    Why not using simply a smartPhone ? DataLogic win CE is an old device with a lot off difficulty for typing. Solution : - Develope your unigui Application for inventory, - Deploy it on a server - open your favorit browser on your smartphone and lauch your unigui Appli via internet. - scan your articles with some thing like this (thx to our Maestro SHERZOD)
  7. 1 point
    Hello, The main scan implementation is taken from here I guess https://zxing-js.github.io/library/examples/multi-camera/
  8. 1 point
    Always seeking to help the developers, we held on September 9, 10, 11 in-person training for 5 people from Rondônia at the headquarters of Angel Sistemas in Cuiabá-MT-BR. Let's go, uniGUI in the vein, uniGUI forever.
  9. 1 point
    function reconfigure(sender, store, columns, oldStore, oldColumns, eOpts) { columns.forEach(function(col, i) { /*if (col.fedit) { col.fedit.addListener('focus', function() { sender._fdtFocused=true }); col.fedit.addListener('blur', function() { sender._fdtFocused=false }) }*/ sender.headerCt.items.items[i].ariaEl.addListener('mouseenter', function() { /*if (col.fedit && !sender._fdtFocused && sender.getX() < col.fedit.focusEl.getX()) { col.fedit.focusEl.focus() }*/ return false }) }); }
  10. 1 point
    Hello uniguisyriusz i made something like yours, but i create html-DIV s in a UniHTMLFrame ... it is very fast and clean :-) in my example - the "cell" is very big (i use it in many ways - here as menu-point display) ... highlite, image scale funtions and so on are "classic CSS things" but you can create hundreds of small div´s for your solution grid.webm Here is my code - so you can see what i mean and how i solved it: by the way - for the"click-event" on a div - i send the event to mainform-OnAjaxEvent !!!! sent -> onclick="javascript:MainForm.mask.show();ajaxRequest(MainForm.form,'''+ajax_befehl+''',[''param0='+ziel+'''])">'); to -> procedure TMainForm.UniFormAjaxEvent(Sender: TComponent; EventName: string; Params: TUniStrings); -----> if EventName='xxx' then begin procedure TMAINMENU.zeichne_Small_Picture; var panel_width:Integer; panel_height:Integer; image_width:Integer; image_height:Integer; begin setze_farben; panel_width:=245; panel_height:=138; image_width:=245; image_height:=138; abszand_panel:=10; abstand_zeile:=30; if last_thing = 1 then begin m_left:=m_left - panel_width; m_top:=m_top+ 145; last_thing:=2; end else begin m_left:=m_left + abszand_panel; last_thing:=1; if m_left + abszand_panel+ panel_width > mainform.display.Width-10 then // och passe nicht rein ! begin m_left:= 10; m_top:=m_top+last_top+abstand_zeile; last_top:=0; end; end; if m_left=10 then m_left:=20; if m_left <0 then m_left:=20; UniHTMLFrame1.HTML.Append(' <div class="newspanel"'); UniHTMLFrame1.HTML.Append(' style="position: absolute; top: '+inttostr(m_top)+'px; left: '+inttostr(m_left)+'px; width: '+inttostr(panel_width)+'px; height: '+inttostr(panel_height)+'px" '); UniHTMLFrame1.HTML.Append(' onclick="javascript:MainForm.mask.show();ajaxRequest(MainForm.form,'''+ajax_befehl+''',[''param0='+ziel+'''])">'); UniHTMLFrame1.HTML.Append(' <IMG STYLE="position: absolute;TOP:0px; LEFT:0px; WIDTH:'+inttostr(image_width)+'px; HEIGHT:'+inttostr(image_height)+'px" SRC="'+bilderquelle+'">'); UniHTMLFrame1.HTML.Append(' <div class="start_abgedunkelt" STYLE="position: absolute;TOP:'+inttostr(trunc(image_height/3))+'px; LEFT:0px; WIDTH:'+inttostr(trunc(image_width))+'px; HEIGHT:'+inttostr(trunc( (image_height/3)*2 ))+'px"></div>'); UniHTMLFrame1.HTML.Append(' <div class="'+kategorieklasse+'"'); UniHTMLFrame1.HTML.Append(' style="position: absolute; top: 50px; left: 10px; width:200px; height: 50px">'); UniHTMLFrame1.HTML.Append(' <span>'+kategorie+'<span>'); UniHTMLFrame1.HTML.Append(' </div>'); UniHTMLFrame1.HTML.Append(' <div class="berichttext textpunkte"'); UniHTMLFrame1.HTML.Append(' style="position: absolute; top: 70px; left: 10px; width:200px; height: 60px; overflow: hidden">'); UniHTMLFrame1.HTML.Append(' <b><FONT face="Roboto" SIZE="4" COLOR="'+textfarbe1+'">'+beschriftung+'</FONT></b><br><FONT face="Arial" SIZE="3" COLOR="'+textfarbe2+'">'+zusatz+'</FONT>'); UniHTMLFrame1.HTML.Append(' </div>'); UniHTMLFrame1.HTML.Append(' <div class="aufhellen"'); UniHTMLFrame1.HTML.Append(' style="position: absolute; top: 0px; left: 0px; width: '+inttostr(panel_width)+'px; height: '+inttostr(panel_height)+'px"> '); UniHTMLFrame1.HTML.Append('</div>'); UniHTMLFrame1.HTML.Append('</div>'); if last_thing = 1 then begin if 136 > last_top then last_top:=135; end; if last_thing = 2 then begin m_top:=m_top-146; last_top:=279; end; m_left:=m_left+ panel_width; end;
  11. 1 point
    Also if you are interested, there is this other option, Web and Mobile https://store.falconsistemas.com.br/ https://demos.falconsistemas.com.br/?tela=tfrmtoggle
  12. 1 point
    Hi guys, I'm having a problem with DBGrid. When I do some updates, the focus loses its sequence, and I can't use the tab anymore to jump to the next cell. What could it do to reorganize himself?
  13. 1 point
    Hello, Hope this will help you in any way :-) 1. Using Orgon family font for the grid. 2. Changing the row height. 3. Dynamically adding Toolbar to the grid. 4. Inserting controls from design time to the toolbar. 5. Column with password. 6. adding some controls the rows. 7. Filtering using the edit from design time (filter is done in client-side). Project: http://3msoft.net/mhmd/Unigui_GoPro.rar DB: http://3msoft.net/mhmd/gopro.sql
  14. 1 point
    Hi, I don't understand why there is no attention on our request of little features, but very important for us. I need an autoedit in dbgrid without press enter, click or double click; I need that dbgrid must be as VCL in user input. I need a key-value pair management in combos (retain key but display value). I need a repeteable area with inside a free layout on arrange components (on web is used a lot instead grids); I don't speek on complex components (like advanced lookups, grids in combos, infinite scroll, etc) that are not present but already planned, I intend simply little additions on standard components that permits us to release apps to our customers, adding few rows of code with a update release. Why? (sorry for my english)
  15. 1 point
    Good night, Guys how do I disable the print button of a report when I am viewing the pdf by URLFrame.
  16. 1 point
    A simple example "how to" capture image in desktop format with image feedback and save in temp's folder or load in you dataset field (see comments in code). In Mobile uses the unimFileUpload component. Won't work in IOs/IPhone if the server is not in a https:// connection. www.unigui.com.br-Capture Image.rar
  17. 1 point
    How to expand and collapse dbgrid groups via code?
  18. 1 point
    I have a ActionColumn (Unidbgrid) with 3 Buttons (Id 0,1,2). When meet the condition 1 ,Button 0 and Button 1 show ,Button 2 hide. When meet the condition 2, Button 0 and Button 2 hide,Button 1 show. when meet the condition 3, Button 0 and Button 1 hide, Button 2,show. What can I do ?
  19. 1 point
  20. 1 point
    I don't know if it is the best practise. I do like this and i work with a copy of classic theme(blue) in directory C:\Program Files (x86)\FMSoft\Framework\uniGUI\unipackages\themes\Css\ i copy uni-xtheme-uni_classic.css and rename to uni-xtheme-uni_MyTheme.css in directory C:\Program Files (x86)\FMSoft\Framework\uniGUI\unipackages\themes\resources\Css create file ext-all-uni_MyTheme.css inside : @import '../ext-theme-uni_MyTheme/ext-theme-uni_MyTheme-all.css'; in directory C:\Program Files (x86)\FMSoft\Framework\uniGUI\unipackages\themes\resources\Css create file ext-all-uni_MyTheme-rtl.css inside : @import '../ext-theme-uni_MyTheme/ext-theme-uni_MyTheme-all-rtl.css'; in directory C:\Program Files (x86)\FMSoft\Framework\uniGUI\unipackages\themes\resources create a directory ext-theme-uni_MyTheme copy all file that are in directory C:\Program Files (x86)\FMSoft\Framework\uniGUI\unipackages\themes\resources\ext-theme-uni_classic to directory C:\Program Files (x86)\FMSoft\Framework\uniGUI\unipackages\themes\resources\ext-theme-uni_MyTheme In this directory rename file ext-theme-uni_classic-all.css to ext-theme-uni_MyTheme-all.css rename file ext-theme-uni_classic-all-rtl.css to ext-theme-uni_MyTheme-all-rtl.css After all this change there is new theme in delphi : uni_MyTheme you could do you modification in css file that are in C:\Program Files (x86)\FMSoft\Framework\uniGUI\unipackages\themes\resources\ext-theme-uni_MyTheme and change image if needed.
  21. 1 point
  22. 1 point
    procedure TFrameModelo.UniDBGrid1ColumnSort(Column: TUniDBGridColumn; Direction: Boolean); begin if Direction then TFdquery(DsPes.DataSet).IndexName := Column.FieldName+'_index_asc' else TFdquery(DsPes.DataSet).IndexName := Column.FieldName+'_index_des'; end; procedure TFrameModelo.UniFrameCreate(Sender: TObject); var I: Integer; IndexnameAsc : string; IndexnameDes : string; begin if Assigned(DsPes.DataSet) then begin // TFDQuery(DsPes.DataSet).IndexDefs.Clear; for I := 0 to TFDQuery(DsPes.DataSet).FieldCount-1 do begin IndexnameAsc := TFDQuery(DsPes.DataSet).Fields[I].FieldName+'_index_asc'; IndexnameDes := TFDQuery(DsPes.DataSet).Fields[I].FieldName+'_index_des'; if TFDQuery(DsPes.DataSet).Indexes.FindIndex(IndexnameAsc) = nil then begin with TFDQuery(DsPes.DataSet).Indexes.Add do begin Name := IndexnameAsc; Fields := TFDQuery(DsPes.DataSet).Fields[I].FieldName; Active := True; end; end; if TFDQuery(DsPes.DataSet).Indexes.FindIndex(IndexnameDes) = nil then begin with TFDQuery(DsPes.DataSet).Indexes.Add do begin Name := IndexnameDes; Fields := TFDQuery(DsPes.DataSet).Fields[I].FieldName; Options := [soDescending]; Active := True; end; end; end; end; for I := 0 to UniDBGrid1.Columns.Count - 1 do UniDBGrid1.Columns[i].Sortable := True; end; try this code.
  23. 1 point
    Hi Farshad, I am having the same problem. I need to design using the ScrollBox but at design time it does not show the scroll bars, causing a problem to work with controls that are not visible inside it. Is there anything can be done? Is the vcl correspondent component a ScrollBox? can I create an inherited component and active any property? Eduardo
  24. 1 point
    Hi Farshad, Please, could you consider the implementation of: a "markInvalid" procedure in those components that allow it a "QuickTipsInit" property on a form Now, we use JavaScript to do that, but there are problems mixing SendResponse (for markInvalid) and changing controls properties (i.e. SetFocus)... TIA
×