UniRadiogroup multi column

[uniguibbs]

can items in radiogroup, seprate to multi column

[rullomare]

Hi, 

 

For version 0.94 is quite simple.

Use ClientEvents.ExtEvents uses.

 

see image attachments.

 

 

 

 

 

 

For version 0.93 is a little bit complicated, let me know if you are interested in the solution for version 0.93

 

 

Regards

 

Salvatore Marullo

 

 

[Semper]

Thanks!

Solution for version 0.93 it would be desirable too.

 

Regards

[rullomare]

 

Hi Semper, 

 

Solution for Version 0.93

 

........

........

 

 

type

  TxRadio    = class(TUniRadioGroup);       <<<<<=============================  add 

  

  TMainForm = class(TUniForm)

     

    UniRadioGroup1: TUniRadioGroup;

    .................................

    .................................

    .................................    

  procedure UniFormCreate(Sender: TObject);

    

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

 

//  change the name of the form if uniradiogroup1 is defined in a other Form

 

 

procedure TMainForm.UniFormCreate(Sender: TObject);

 

Var      jsnameRadio : string ;

begin

  

 if  txradio(uniradiogroup1).GetTabControlCount  = 1 then begin     //  I believe it's always 1

 

     jsnameradio :=  txradio(uniradiogroup1).GetFormControlExtName(1) ;

     

       // set Columns of uniradioGroup1 to 4    

     

     unisession.AddJS(

     jsnameRadio +'.nm=' + '"' + jsnameRadio+ '";_cdo_("' +jsnameRadio+ '",' + jsnameRadio+ ',null,MainForm);' +

                        '_coe_(MainForm,"' + jsnameRadio+ '",null,"beforerender",function(sender) {sender.columns = 4  ;' +

 

      '});'  ) ; 

 

 end; 

 

 

 

end;

 

 

I hope can help  You

 

 

Reagrds ,

 

Salvatore Marullo 

 

 

[Semper]

Hi rullomare,

 

Very useful, thanks!

 

Regards

 

[uniguibbs]

thanks!

 

 rullomare,

 

Very useful

[uniguibbs]

hi , rullomare.

 

 unigui 0.94  

 delphi xe2

 

Dynamic create TUniRadioGroup.

following code,  the columns doesn't divide to 6. 

what's wrong?

 

  RemoveControl(rgEmp2);  

  rgEmp2 := TUniRadioGroup(InsertControl(TUniRadioGroup.Create(Self)));

  rgEmp2.ClientEvents.ExtEvents.Add(

    'radioGroup.beforerender=function radioGroup.beforerender(sender, eOpts)'

    + #13#10

    + '{'

    + #13#10

    + 'sender.columns = 6'

    + #13#10

    + '}'

  ); 

  rgEmp2.ClientEvents.Enabled := True;

 

  if not cdsDepMan.IsEmpty then

  begin

    cdsDepMan.First;

    while not cdsDepMan.Eof do

    begin

      ListLeader.Add(Format('%S=%S', [cdsDepManempid.AsString, cdsDepManempname.AsString]));

      rgEmp2.Items.Add(cdsDepManempname.AsString);

      cdsDepMan.Next;

    end;

  end;