Jump to content

Sherzod

Moderators
  • Posts

    19790
  • Joined

  • Last visited

  • Days Won

    643

Everything posted by Sherzod

  1. Hi Dominique, procedure TUniServerModule.UniGUIServerModuleHTTPCommand( ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo; var Handled: Boolean); begin // end;
  2. You can try different layouts, for example UniLoginForm1.Layout = auto.
  3. Hello, Use the Tabs property.
  4. Sherzod

    RemoteQuery

    Hello, Sorry for the late response. Please clarify your case again (step by step). Perhaps you need to use a different component, a different solution...
  5. Hello, procedure TMainForm.NavTreeClick(Sender: TObject); var Nd : TUniTreeNode; Ts : TUniTabSheet; FrC : TUniFrameClass; Fr : TUniFrame; FClassName, Path: string; begin Path := UniServerModule.StartPath + 'units\'; Nd := NavTree.Selected; if Nd.Count = 0 then begin Ts := Nd.Data; if not Assigned(Ts) then begin Ts := TUniTabSheet.Create(Self); Ts.PageControl := UniPageControl1; Ts.Closable := True; Ts.OnClose := TabSheetClose; Ts.Tag := NativeInt(Nd); Ts.Caption := Nd.Text; Ts.ImageIndex := Nd.ImageIndex; FClassName := 'TUni' + FileNames.Values[Nd.Text]; FrC := TUniFrameClass(FindClass(FClassName)); Fr := FrC.Create(Self); Fr.Align := alClient; Fr.Parent := Ts; Nd.Data := Ts; end; UniPageControl1.ActivePage := Ts; end; end; ...
  6. Or 1. procedure TMainForm.UniButton1Click(Sender: TObject); begin UniHTMLFrame1.HTML.Add('TEST<br>'); //UniHTMLFrame1.JSInterface.JSCallDefer('body.scroll', ['b', UniHTMLFrame1.JSInterface.JSStatement('Infinity')], 100); end; 2. UniHTMLFrame1 -> ClientEvents -> ExtEvents -> function afterupdatehtml(sender, eOpts) { sender.body.scroll('b', Infinity); }
  7. Try this approach: procedure TMainForm.UniButton1Click(Sender: TObject); begin UniHTMLFrame1.HTML.Add('TEST<br>'); UniHTMLFrame1.JSInterface.JSCallDefer('body.scroll', ['b', UniHTMLFrame1.JSInterface.JSStatement('Infinity')], 100); end;
  8. Здравствуйте, Есть ли тестовый случай для проверки?
  9. Please check again, it works for me.
  10. You can use this solution for example. procedure TMainForm.UniButton1Click(Sender: TObject); begin UniStringGrid1.Cells[1, 1] := '<img src="https://www.google.com/images/branding/googlelogo/2x/googlelogo_color_92x30dp.png" height="15px" width="auto"></img>' end; Result:
  11. Actually, UniStringGrid is not meant for this.
  12. Hello, Please make a simple testcase to check.
  13. Try this workaround for now: procedure TMainmForm.UnimFormCreate(Sender: TObject); begin with UnimRadio1 do if Checked then JSInterface.JSAddListener('painted', 'function(){this.setChecked(true)}'); end;
  14. Hi, Yes. >>>--- END USER LICENSE AGREEMENT ---<<< Product Name(s) : uniGUI, uniGUI Plus, uniGUI Complete Publisher Company : FMSoft Co. Ltd. PLEASE READ THIS DOCUMENT CAREFULLY AND IN ITS ENTIRETY BEFORE USING THIS SOFTWARE PRODUCT. 1. NAMED USER LICENSE A single license of this product is licensed for one seat only. Each developer can install his/her own copy of uniGUI on one or more than one PCs which will be used by him/her only. A single license can not be shared among several developers in same company even if they do not use the product at the same time. For each uniGUI developer in your company you need to obtain a separate license. ...
  15. First of all, have you tried using this code in the desingtime for validation?
×
×
  • Create New...