Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation on 12/20/22 in all areas

  1. Here is it online chm to pdf: https://cloudconvert.com/chm-to-pdf uniGUI_Manual.pdf
    1 point
  2. Hey @Sherzod, another SuperMan Job!! I have no Idea where you get this ability but... Man, I'm a Fan Thanks much, Frances
    1 point
  3. Hello @fraxzi Try this approach: procedure TMainForm.UniFormCreate(Sender: TObject); begin UniFieldSet1.JSInterface.JSAddElEvent('scroll', 'scrollable', [''], UniFieldSet2.JSName +'.scrollable.scrollTo(this.component.scrollable.getPosition().x, this.component.scrollable.getPosition().y)'); UniFieldSet2.JSInterface.JSAddElEvent('scroll', 'scrollable', [''], UniFieldSet1.JSName +'.scrollable.scrollTo(this.component.scrollable.getPosition().x, this.component.scrollable.getPosition().y)'); end;
    1 point
  4. Hi everyone. I struggled with this problem for a long time and probably the solution is not elegant, but it works fine to rebuild the whole treeView. You can hide / show menu items or rename them. procedure TMainForm.BuildHamburgerMenu; var i: Integer; newItem : TUniTreeNode; procedure BuildSubordinateElements(NadrzedneMenu: TUniTreeNode; whichMenu : TUniMenuItem); Var ip: Integer; Begin for ip := 0 to whichMenu.Count - 1 do Begin if whichMenu.Items[ip].Visible then Begin newItem := treeMenu.Items.Add(NadrzedneMenu,whichMenu.Items[ip].Caption); newItem.ImageIndex:= whichMenu.Items[ip].ImageIndex; newItem.OnClick := whichMenu.Items[ip].OnClick; if (whichMenu.Items[ip].Count > 0) then BuildSubordinateElements(newItem,whichMenu.Items[ip]); End; End; end; Begin treeMenu.Items.Clear; if HamburgerMenuItems.Items.Count > 0 then Begin for i := 0 to HamburgerMenuItems.Items.Count - 1 do Begin if HamburgerMenuItems.Items[i].Visible then Begin newItem := treeMenu.Items.Add(nil,HamburgerMenuItems.Items[i].Caption); newItem.ImageIndex := HamburgerMenuItems.Items[i].ImageIndex; newItem.OnClick := HamburgerMenuItems.Items[i].OnClick; if (HamburgerMenuItems.Items[i].Count > 0) then BuildSubordinateElements(newItem,HamburgerMenuItems.Items[i]); End; End; End; End; Maybe someone will come in handy.
    1 point
  5. Example of digital signature saving (image) for mobile. Great for sales systems where it works as a type of receipt document for goods delivery etc ... Project available at https://www.uniguiexpress.com
    1 point
×
×
  • Create New...