[Invisible Drag&Drop]

yes sorry. It is 1.9.0.1556

[Funny behaviour when not setting MaxValue for TUniFormattedNumberEdit]

No. It is purchased but loged in with wrong account

[CHANGE BACKGROUND COLOR BUTTON [SOLVED]]

9 minutes ago, Abaksoft said:

Hello,

Try this (Thx to Sherzod)

Color_Button.7z 22.71 kB · 2 downloads

I've tried and still cannot be changed in FormCreate event. (But I've managed to change color based on irigsoft's  help)

[CHANGE BACKGROUND COLOR BUTTON [SOLVED]]

39 minutes ago, irigsoft said:

I am sorry i have changed my post.

Please try to set color on Form.OnReady.

I use addJS on OnButtonClick. (Form and all components are already created)

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

[CHANGE BACKGROUND COLOR BUTTON [SOLVED]]

7 minutes ago, irigsoft said:

You have to set jsID if this is runtime created component.

 

 

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.

[CHANGE BACKGROUND COLOR BUTTON [SOLVED]]

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;

 

[CHANGE BACKGROUND COLOR BUTTON [SOLVED]]

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?

[Grid column editor (TuniComboBox) empty after I select Value]

OnChangeValue event doesn't even fire.

[Grid column editor (TuniComboBox) empty after I select Value]

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.?

[can not find the InstDecode.pas in FMSoft_uniGUI_Professional_1.0.0.1394_RC]

Ok I've managed to install UniGui. I had to manually add following lines to Library Path

[can not find the InstDecode.pas in FMSoft_uniGUI_Professional_1.0.0.1394_RC]

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?

[DefaultFloatFormat in UniDBGrid]

does enybody knows?

[Add recordcount in pagingBar on UniDBGrid]

Thank you. This solves my problem. Thanks!

[Add recordcount in pagingBar on UniDBGrid]

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.

 

[Port 8077 running on 80?]

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?

[Port 8077 running on 80?]

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.

 

Quote

Workflow.exe: 00003634: 08:13:22 []:>--------------------------------------------------------------<
Workflow.exe: 00003634: 08:13:22 [TUniServerModule]:Server First Init.
Workflow.exe: 00003634: 08:13:22 [TUniServerModule]:Debug Mode = ON
Workflow.exe: 00003634: 08:13:22 [TUniServerModule]:Global Cache Folder Erased. <10> Files deleted.
Workflow.exe: 00003634: 08:13:23 [TUniServerModule]:Starting HTTP Server on Port: 8077...
Workflow.exe: 00003634: 08:13:24 [TUniServerModule]:HTTP Server Started on Port: 8077

 

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.

[Change port at program start]

That doesn't seems to work anymore. Can you please check?

[DBLookupComboBox set value]

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

[DBLookupComboBox set value]

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.

[TabOrder]

It works.

 

Dunno how this did't came to mind.

 

Thank you a lot Pep!

[TabOrder]

Anyone?

[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

[Browser back button]

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

[TUniDBEdit alignment property]

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;

 

[PDFFrame problem showing file from server]

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?