Jump to content

tarcisionmjr

uniGUI Subscriber
  • Posts

    18
  • Joined

  • Last visited

Recent Profile Visitors

1137 profile views

tarcisionmjr's Achievements

Newbie

Newbie (1/4)

0

Reputation

  1.  

    Solution for UnimDbGrid Bug
    After a lot of research on the Unigui forum, I realized that this bug is a recurrent bug in several versions and has so far been unsolved.
    But it only occurs if the Columns Font property of the Fields is changed, and it has to leave the component default.
    Setting the Font Heigt = -21 field will do the trick.
    
    Remembering that this bug occurs only on IOs, on Android it does not occur.
    The record remains.

     

  2. unit Main; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, uniGUITypes, uniGUIAbstractClasses, uniGUIClasses, uniGUIRegClasses, uniGUIForm, uniTrackBar, uniProgressBar, uniGUIBaseClasses, uniButton, uniEdit, uniBitBtn; type TMainForm = class(TUniForm) UniButton1: TUniButton; UniProgressBar1: TUniProgressBar; UniTrackBar1: TUniTrackBar; UniEdit1: TUniEdit; UniBitBtn1: TUniBitBtn; procedure UniTrackBar1Change(Sender: TObject); private { Private declarations } public { Public declarations } end; function MainForm: TMainForm; implementation {$R *.dfm} uses uniGUIVars, MainModule, uniGUIApplication; function MainForm: TMainForm; begin Result := TMainForm(UniMainModule.GetFormInstance(TMainForm)); end; procedure TMainForm.UniTrackBar1Change(Sender: TObject); var cor: string; begin UniProgressBar1.Position := UniTrackBar1.Position; if UniTrackBar1.Position < 50 then begin cor := 'white, green'; end else if UniTrackBar1.Position < 75 then begin cor := 'white, yellow'; end else begin cor := 'white, red'; end; with UniBitBtn1.JSInterface do begin JSCall('btnWrap.setStyle', ['background-image', 'linear-gradient(to right, ' + cor + ')']); JSCall('btnWrap.setStyle', ['background-size', UniTrackBar1.Position.toString + '% 100%']); JSCall('btnWrap.setStyle', ['background-repeat', 'no-repeat']); end; end; initialization RegisterAppFormClass(TMainForm); end. I found this code here and it is working well, but in this case the progress bar is being made and a TUniBitBtn component I want to do in the same code style but in a TUniProgressBar what would be the change I need to make in JSCALL for it to work. ...
  3. hello friends, I have the screen attached, I use 5 progress bars inside a form and I need to change the color of each progress bar as they change their position, so type value below 50% a color value above 50% other color at run time ... need help
  4. I did tests on the browser in developer mode and the problem does not appear ... but using the cell phone iphone6 and iphone11 directly on the standard browser the problem appears immediately after a "refresh" of the grid or after scrolling the data with more than 40 lines ... remembering that you have to change the font color or grid size ...
  5. the fault I found where it is linked ... the font property of the component, as I changed the font color and font size, version 1531 the fault appears, if I leave the default the fault does not seem ... this flaw needs to be corrected in the next version, you must be able to change the font properties without causing failure ...
  6. here is the copy of a simple project created just to test and the failure appears ... let's see ... the code ... attached is a print of the project and the result that the error happens ... help help help unit Mainm; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, uniGUITypes, uniGUIAbstractClasses, uniGUIClasses, uniGUImClasses, uniGUIRegClasses, uniGUIForm, uniGUImForm, uniGUImJSForm, FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Error, FireDAC.UI.Intf, FireDAC.Phys.Intf, FireDAC.Stan.Def, FireDAC.Stan.Pool, FireDAC.Stan.Async, FireDAC.Phys, FireDAC.Phys.MySQL, FireDAC.Phys.MySQLDef, FireDAC.VCLUI.Wait, FireDAC.Stan.Param, FireDAC.DatS, FireDAC.DApt.Intf, FireDAC.DApt, Data.DB, FireDAC.Comp.DataSet, FireDAC.Comp.Client, uniGUIBaseClasses, uniBasicGrid, uniDBGrid, unimDBListGrid, unimDBGrid, uniButton, unimButton, Datasnap.DBClient; type TMainmForm = class(TUnimForm) UnimDBGrid1: TUnimDBGrid; FDConnection1: TFDConnection; DataSource1: TDataSource; FDPhysMySQLDriverLink1: TFDPhysMySQLDriverLink; qCliente: TFDQuery; UnimButton1: TUnimButton; procedure UnimButton1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; function MainmForm: TMainmForm; implementation {$R *.dfm} uses uniGUIVars, MainModule, uniGUIApplication; function MainmForm: TMainmForm; begin Result := TMainmForm(UniMainModule.GetFormInstance(TMainmForm)); end; procedure TMainmForm.UnimButton1Click(Sender: TObject); begin qCliente.Open; end; initialization RegisterAppFormClass(TMainmForm); end.
  7. the build that worked normal without failure was 1.90.0.1496
  8. Explain to me better how I can do what you asked ... or give me an example for me to understand better ...
  9. sorry for my english, i'm using an online translator ... but in the app made in unigui the problem happens when the search data will be displayed in unimdbgrid ....
  10. I installed version 1.90.0.1531 but the failure continues, if the (TUniBufferedStore) is activated the opening screen is locked .. and with it disabled is the first print failure
  11. I changed the mark to true and a failure message appeared ...
×
×
  • Create New...