skafy Posted May 13, 2022 Share Posted May 13, 2022 Hi, It would really be good (i think) if there would be FieldCaption, FieldCaptionWidth,... for components TUniTagField and TUniDBTagField Best regards! 1 Link to comment Share on other sites More sharing options...
Sherzod Posted May 13, 2022 Share Posted May 13, 2022 Hi, 21 minutes ago, skafy said: It would really be good (i think) if there would be FieldCaption, FieldCaptionWidth,... for components TUniTagField and TUniDBTagField Use this approach for now: 1 Link to comment Share on other sites More sharing options...
skafy Posted May 16, 2022 Author Share Posted May 16, 2022 On 5/13/2022 at 8:41 AM, Sherzod said: Hi, Use this approach for now: Tnx, it worked! Hw about border. folowing command don't seem to work: UniTag.BorderStyle:= ubsSolid; It makes it somehow transparent...? Link to comment Share on other sites More sharing options...
Sherzod Posted May 16, 2022 Share Posted May 16, 2022 38 minutes ago, skafy said: folowing command don't seem to work: UniTag.BorderStyle:= ubsSolid; It makes it somehow transparent...? procedure TMainForm.UniFormCreate(Sender: TObject); begin with UniTagField1 do if BorderStyle = ubsSolid then JSInterface.JSAddListener('afterrender', 'function(me){me.setStyle("border", "thin solid gray")}') end; 1 Link to comment Share on other sites More sharing options...
skafy Posted May 16, 2022 Author Share Posted May 16, 2022 17 minutes ago, Sherzod said: procedure TMainForm.UniFormCreate(Sender: TObject); begin with UniTagField1 do if BorderStyle = ubsSolid then JSInterface.JSAddListener('afterrender', 'function(me){me.setStyle("border", "thin solid gray")}') end; This does not read the FieldWidth value. Above command also bordered fieldcaption wich is not OK. Link to comment Share on other sites More sharing options...
Sherzod Posted May 16, 2022 Share Posted May 16, 2022 19 minutes ago, skafy said: This does not read the FieldWidth value. Above command also bordered fieldcaption wich is not OK. procedure TMainForm.UniFormCreate(Sender: TObject); begin with TUniEdit(UniTagField1) do begin FieldLabelWidth := 70; FieldLabelAlign := laLeft; FieldLabel := 'LabelText'; end; with UniTagField1 do if BorderStyle = ubsSolid then JSInterface.JSAddListener('afterrender', 'function(me){me.bodyEl.setStyle("border", "thin solid gray")}') end; 1 Link to comment Share on other sites More sharing options...
skafy Posted May 16, 2022 Author Share Posted May 16, 2022 I didn't make myself clear enough. Hope Picture explains it. Link to comment Share on other sites More sharing options...
Sherzod Posted May 16, 2022 Share Posted May 16, 2022 7 minutes ago, Sherzod said: with UniTagField1 do if BorderStyle = ubsSolid then JSInterface.JSAddListener('afterrender', 'function(me){me.bodyEl.setStyle("border", "thin solid gray")}') me.bodyEl - Please note this is a modified code. 1 Link to comment Share on other sites More sharing options...
skafy Posted May 16, 2022 Author Share Posted May 16, 2022 2 minutes ago, Sherzod said: me.bodyEl - Please note this is a modified code. Yeees. It worked. Sorry... I didn't see the changed code :S ( i thought you just merged two codes. ) Thank you! 1 Link to comment Share on other sites More sharing options...
Recommended Posts