Jump to content

belo

uniGUI Subscriber
  • Posts

    176
  • Joined

  • Last visited

  • Days Won

    9

Everything posted by belo

  1. An alternative would be to change the CSS class. x-menu-item-text-default.x-menu-item-indent { margin-left: 48px; /* default 35px */ } .x-menu-item-text-default.x-menu-item-indent-no-separator { margin-left: 48px; /* default * 26px; */ } .x-menu-item-text-default { font: normal 13px helvetica, arial, verdana, sans-serif; line-height: 56px; /* default 23px */ padding-top: 1px; color: #000; cursor: pointer; } .x-menu-item-icon-default { width: 36px; /* default 16px */ height: 36px; /* default 16px */ top: 10px; /* default top: 4px; */ left: 5px; line-height: 16px; font-size: 16px; color: grey; background-position: center center; }
  2. The RadCORE Project is unprecedented. Simply amazing! It adapts to any version of UniGUI without dependencies on themes and the like. Congratulations Flávio!
  3. 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
  4. 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
  5. function beforeInit(sender, config) { config.inputMask = '(99) 9999-9999'; } Eduardo Belo
  6. See this example: http://forums.unigui.com/index.php?/topic/12736-on-the-fly-mask-change/&tab=comments#comment-67805 Best Regards, Eduardo Belo
  7. function beforeInit(sender, config) { config.autoComplete = false; } Best Regards, Eduardo Belo
  8. 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
  9. // 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
  10. See in Demo has the example Grid - ActionColumn. Best Regards, Eduardo Belo
  11. /* 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
  12. 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
  13. 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
  14. Farshad, you have my full support and trust. Congratulations for your work. Long coming to UniGUI. Best regard, Eduardo Belo
  15. Flavio, I made an example adapted to your needs. Best regards, Eduardo Belo Toasty JS Code Sample
  16. belo

    Toasty JS

    Hi, Attached, an example of how to use Toast JS at the request of Flávio Mota member. Demo Best Regards, Eduardo Belo UniGUI_ToastyJS_20190910.rar
  17. Hi Flávio! I didn't quite understand your question, but maybe it will help you.. // UniEdit function beforeInit(sender, config) { config.keyMap = { SPACE: { // keyCode = 32 handler: function() { ajaxRequest(sender, '_SPACE', []); } } } } procedure TMainForm.UniEdit1AjaxEvent(Sender: TComponent; EventName: string; Params: TUniStrings); begin if EventName = '_SPACE' then begin InsertFrame(TUniFrame(TUniFrame1), 'Frame 1', True); end; end; Best regards, Eduardo Belo
  18. Remove mask at runtime... UniSession.JSCode('$("#' + edtPesquisa.JSName + '_id-inputEl").inputmask("remove");'); Regards, Eduardo Belo
  19. https://docs.sencha.com/extjs/6.7.0/classic/Ext.field.InputMask.html
  20. The problem is not the UniDBEdit but the UniDBGrid. If you disable the UniDBGrid, the error does not occur. Maybe this behavior is a bug. PT-BR: O problema não é o UniDBEdit e sim o UniDBGrid. Se você desativar o UniDBGrid não acontece o erro. Talvez esse comportamento seja um bug.
  21. Hi, The ID field of your XML is 2 in size Maybe this will solve ... procedure TMainForm.FDMemTable1IDGetText(Sender: TField; var Text: string; DisplayText: Boolean); begin if Sender.AsVariant = Null then Exit; Text := FormatFloat('00', StrToFloat(Sender.AsString)); end; procedure TMainForm.FDMemTable1IDSetText(Sender: TField; const Text: string); begin Sender.AsString := FormatFloat('00', StrToFloat(Text)); end; Regards, Eduardo Belo
  22. UnimEdit1 > ClientEvents > UniEvents function beforeInit(sender, config) { config.placeholder = '000.000.000-00'; config.inputMask = '999.999.999-99'; } Regards, Eduardo Belo
×
×
  • Create New...