Jump to content

skafy

uniGUI Subscriber
  • Posts

    216
  • Joined

  • Last visited

  • Days Won

    1

Everything posted by skafy

  1. yes sorry. It is 1.9.0.1556
  2. No. It is purchased but loged in with wrong account
  3. I've tried and still cannot be changed in FormCreate event. (But I've managed to change color based on irigsoft's help)
  4. I've managed to change colors now in FormReady event. Thank you for your help. So I've created buttons in FormCreate event end than find them on FormReady event end change their color. procedure TDetail.ChangeButtonColors(APanel: TUniPanel); var Name: string; Color: string; begin UniMainModule.qryGETButtons.Close; try UniMainModule.qryGETButtons.Prepare; UniMainModule.qryGETButtons.Open; UniMainModule.qryGETButtons.First; while not UniMainModule.qryGETButtons.Eof do begin Name:= UniMainModule.qryGETButtons.FieldByName('NAME').AsString; Color:= UniMainModule.qryGETButtons.FieldByName('COLOR').AsString; var Button: TUniButton; Button:= (APanel.FindComponent(Name) as TUniButton); if Assigned(Button) then uniSession.AddJS ('document.getElementById("' + Button.JSId + '").style.background = "' + Color + '";'); UniMainModule.qryGETButtons.Next; end; finally UniMainModule.qryGETButtons.Close; end; end; Thanks again
  5. I've tried but it gives me error-> Cannot assign to a read-only property I've also stated that when i debug button.JSid is not null and different between loop cycles.
  6. I'm getting below error. If I debug JSid has value. Code: procedure TDetail.ShowButtons(APanel : TUniPanel); var Name: string; Color: string; Align: string; begin UniMainModule.qryGETButtons.Close; try UniMainModule.qryGETButtons.ParamByName('TASKINS_ID').AsInteger:= Taskins_ID; UniMainModule.qryGETButtons.Prepare; UniMainModule.qryGETButtons.Open; while not UniMainModule.qryGETButtons.Eof do begin Name:= UniMainModule.qryGETButtons.FieldByName('NAME').AsString; Color:= UniMainModule.qryGETButtons.FieldByName('COLOR').AsString; Align:= UniMainModule.qryGETButtons.FieldByName('ALIGN').AsString; var Button: TUniButton; Button:= TUniButton.Create(Self); Button.Parent:= APanel; Button.AlignWithMargins:= True; Button.Caption:= Name; uniSession.AddJS ('document.getElementById("' + Button.JSId + '").style.background = "red";'); if Align = 'Left' then button.Align:= alLeft else if Align = 'Center' then button.Align:= alClient else if Align = 'Right' then button.Align:= alRight; UniMainModule.qryGETButtons.Next; end; finally UniMainModule.qryGETButtons.Close; end; end;
  7. If custom CSS must be defined in Server module it must be done in design time. How can I change color of a button in runtime to any color?
  8. OnChangeValue event doesn't even fire.
  9. Hi, I'm having problem how to read value after I Select a value on my Combobox Editor in Grid column. procedure TMainForm.UniDropDownSelect(Sender: TObject); begin ShowMessage('UniDropDownSelect' + TUniComboBox(Sender).Items.Strings[ TUniComboBox(Sender).ItemIndex]); end; procedure TMainForm.FDQuery1AfterOpen(DataSet: TDataSet); var lala: TUniComboBox; begin lala:= TUniComboBox.Create(Self); lala.Items.Add('lala1'); lala.Items.Add('lala2'); lala.OnSelect:= UniDropDownSelect; UniDBGrid1.Columns.ColumnFromFieldName('COL1').Editor:= lala; end; The UniDropDownSelect allways returning Item Index of -1. How can I retrive value after it vas selected.?
  10. Ok I've managed to install UniGui. I had to manually add following lines to Library Path
  11. I have the same problem. Trying to install Unigui build 1546 on 10.4 Delphi and get the same error. I don't do Clean all. Unistall unigui install delphi 10.4 (from 10.3.3) install unigui 1546 (also tried 1543) - full install... i get error [dcc32 Fatal Error] uniTools27.dpk(52): F1026 File not found: 'InstDecode.pas' Where is the problem?
  12. does enybody knows?
  13. Thank you. This solves my problem. Thanks!
  14. Hi, I would like to add text to pagingBar that will show total number of records that in DBGrid (dataset). How can this be achived.
  15. I'm pretty sure. I won't install 1506 again. I have a project and didn't work on port 8077. I than downloaded 1504 and run the same project and it worked. Are you able to run your project on port 8077 on 1506 build?
  16. Hi i'm having problems with ports. I've set unigui to run on 8077, but only way i can access application is on 80. But when I open browser, localhost on 8077 is blank. Where I find the aplication is on port 80 -> https://localhost/ Whant seems to be the problem? EDIT: the problem occurs on 1506 build. on 1504 works great. Its also imposible to go to HTTP page. Only SSH works.
  17. That doesn't seems to work anymore. Can you please check?
  18. I think i managed to solve it by setting DataSource field at its value and not selecting ListSource value. something like that UniDBLookupComboBox1.DataSource.DataSet.FieldByName(UniDBLookupComboBox1.DataField).AsString:= UniDBLookupComboBox1.ListSource.DataSet.FieldByName(UniDBLookupComboBox1.ListField).AsString but I still moved from DBLookupCombobox to DBComboBox for better managing of data. Hope it helps
  19. Hi, I'm having problems with assignment of a dblookupcombobox's value. I yould like to auto fill dblookupcombobox if there is only one record. I cannot find out how. if dsData.DataSet.RecordCount = 1 then begin dsData.DataSet.First; dblookup.KeyValue := dsData.DataSet.FieldByName(dblookup.KeyField).AsVarit; end; when i check dsData.DataSet.RecordCount there is more than 0 values. how can i achive this.
  20. skafy

    TabOrder

    It works. Dunno how this did't came to mind. Thank you a lot Pep!
  21. skafy

    TabOrder

    Anyone?
  22. skafy

    TabOrder

    HI, I'm having problems with tabOrders in my controls that i make on the fly. I create 10 UniEdit fields (panel1) and when I click on one field and press tab tab,order is cycled between already created buttons. I attach simple case. I want that when I put cursor on field 1 and pressing tab the tab order is set as fields was created 1,2,3,4,5,... Please help. UniguiTabOrder.7z
  23. Hi, I'm wondering if it possible to catch event when back button is pressed in browser and than cancel the request so it won't kill the session? So backbuttonpressed would be handled differently in code. best regards. P.S. Can this be implemented: https://www.sencha.com/forum/showthread.php?457536-Ext-JS-6-x-prevent-browser-go-back-button
  24. Hi, I think this still don't exists in new builds. EDIT: I've managed to workaround like this. NumberEdit.DataSource.DataSet.FieldByName(YourFieldName).Alignment:= taLeftJustify;
  25. I'm having problem showing file from server on PDFFrame. I shared a folder from server with my account like so \\SomeServer\SomeFolder\ . When I try to show some file from shared folder I get massage : Message: file origin does not match viewer's. pdfFrame.PdfURL:= '\\SomeServer\SomeFolder\SomeFile.pdf'; is giving me above result. What should be done for resolution?
×
×
  • Create New...