uniguibbs Posted December 11, 2013 Share Posted December 11, 2013 can items in radiogroup, seprate to multi column Link to comment Share on other sites More sharing options...
rullomare Posted December 12, 2013 Share Posted December 12, 2013 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 5 Link to comment Share on other sites More sharing options...
Semper Posted December 13, 2013 Share Posted December 13, 2013 Thanks! Solution for version 0.93 it would be desirable too. Regards Link to comment Share on other sites More sharing options...
rullomare Posted December 13, 2013 Share Posted December 13, 2013 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 1 Link to comment Share on other sites More sharing options...
Semper Posted December 13, 2013 Share Posted December 13, 2013 Hi rullomare, Very useful, thanks! Regards Link to comment Share on other sites More sharing options...
uniguibbs Posted December 18, 2013 Author Share Posted December 18, 2013 thanks! rullomare, Very useful Link to comment Share on other sites More sharing options...
uniguibbs Posted December 24, 2013 Author Share Posted December 24, 2013 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; Link to comment Share on other sites More sharing options...
Recommended Posts
Please sign in to comment
You will be able to leave a comment after signing in
Sign In Now