Jump to content


uniGUI Subscriber
  • Posts

  • Joined

  • Last visited

  • Days Won


belo last won the day on December 26 2019

belo had the most liked content!


Contact Methods

  • MSN

Profile Information

  • Gender
  • Location

Recent Profile Visitors

1215 profile views

belo's Achievements

Active Member

Active Member (3/4)



  1. The RadCORE Project is unprecedented. Simply amazing! It adapts to any version of UniGUI without dependencies on themes and the like. Congratulations Flávio!
  2. Hi mikromundo! An alternative is to create the UniDBGrid at runtime, example: var DBGrid : TUniDBGrid; begin DBGrid := TUniDBGrid.Create(Self); DBGrid.Parent := UniContainerPanel1; DBGrid.Align := alClient; DBGrid.WebOptions.Paged := UniCheckBox1.Checked; // True or False DBGrid.DataSource := DataSource1; end; Best Regards! Eduardo Belo
  3. Hi! // Use the OnGetText event of your numeric field procedure TUniMainModule.PEDIDOSPRO_PRECOGetText(Sender: TField; var Text: string; DisplayText: Boolean); begin Text := FormatCurr('Preço: R$ ##,###,##0.00', Sender.AsFloat); end; Best Regards, Eduardo Belo
  4. function beforeInit(sender, config) { config.inputMask = '(99) 9999-9999'; } Eduardo Belo
  5. See this example: http://forums.unigui.com/index.php?/topic/12736-on-the-fly-mask-change/&tab=comments#comment-67805 Best Regards, Eduardo Belo
  6. function beforeInit(sender, config) { config.autoComplete = false; } Best Regards, Eduardo Belo
  7. Hi, An alternative is to use the field's OnGetText event using CSS classes, for example: procedure TMainForm.FDMemTable1IMAGEGetText(Sender: TField; var Text: string; DisplayText: Boolean); begin if DisplayText then Text:= Sender.AsString + '<h4>' + FDMemTable1ID.Text + '</h4>'; end; procedure TMainForm.UniFormCreate(Sender: TObject); begin FDMemTable1.Open; // Use Font Awesome FDMemTable1.AppendRecord([1, '<i class="fas fa-frown-o fa-4x" style=color:red></i>']); FDMemTable1.AppendRecord([2, '<i class="fas fa-meh fa-4x" style=color:orange></i>']); FDMemTable1.AppendRecord([3, '<i class="fas fa-smile fa-4x" style=color:green></i>']); end; This example used font awesome, but you can use images, etc. Best Regards, Eduardo Belo UniGUIDBGridImageCSS.rar
  8. // Developed by Eduardo Belo // UniCheckBox > ClientEvents > UniEvents function beforeInit(sender, config) { config.keyMap = { ENTER: { handler: function() { if (sender.checked) { sender.setValue(false); } else { sender.setValue(true); } } } } } Best Regards, Eduardo Belo
  9. See in Demo has the example Grid - ActionColumn. Best Regards, Eduardo Belo
  10. /* CustomCSS */ .tree_menu .x-treelist-nav { background-color: red; } // RunTime procedure TMainForm.btnAddClick(Sender: TObject); begin UniSession.AddJS('$(''#'+TUniControl(UniTreeMenu1).JSId+''').addClass(''tree_menu'')'); end; procedure TMainForm.btnRemoveClick(Sender: TObject); begin UniSession.AddJS('$(''#'+UniTreeMenu1.JSId+''').removeClass(''tree_menu'')'); end; Best Regards Eduardo Belo
  11. Disable UniDBGrid ForceFit and set the size of fields at run time for your Query, example: In OnCreate or OnShow.. Query.FieldByName('DESCRICAO').DisplayWidth := 10; Best Regards, Eduardo Belo
  12. Maybe this can help you.. procedure TMainForm.UniDBGrid1SetCellValue(Sender: TObject; ACol, ARow: Integer; AField: TField; var Value: Variant); begin if AField = FDMemTable1.FieldByName('combo1') then ShowMessage(Value); end; // The correct would be this code work procedure TMainForm.UniComboBox1Select(Sender: TObject); begin ShowMessage(TUniComboBox(Sender).Items[TUniComboBox(Sender).ItemIndex]) end; sds Eduardo Belo
  13. Farshad, you have my full support and trust. Congratulations for your work. Long coming to UniGUI. Best regard, Eduardo Belo
  • Create New...