Or better yet: (should probably be submitted to the Master Library). Trouble with this is that it relocates both fields. It should probably only move pField2.
on alignFieldBaselines pField1, pField2 local tDescent1, tDescent2, tBot1, tBot2, tDiff1, tDiff2, tRef local fFormattedBottom1, fFormattedBottom2 put 120 into tRef put item 4 of the formattedRect of line 1 of pField1 into fFormattedBottom1 put item 4 of the formattedRect of line 1 of pField2 into fFormattedBottom2 put item 4 of measureText(line 1 of pField1, pField1 ,"bounds") into tDescent1 put item 4 measureText(line 1 of pField2, pField2 ,"bounds") into tDescent2 put the bottom of pField1 into tBot1 put the bottom of pField2 into tBot2 put tBot1 - fFormattedBottom1 + tDescent1 into tDiff1 put tBot2 - fFormattedBottom2 + tDescent2 into tDiff2 set the bottom of pField1 to tRef + tDiff1 set the bottom of pField2 to tRef + tDiff2 end alignFieldBaselines Bob S > On Jun 21, 2018, at 04:37 , Niggemann, Bernd via use-livecode > <use-livecode@lists.runrev.com> wrote: > > Hi Mary, > > I suppose you want to center those fields around a common horizontal baseline. > > You might try this if that is what you want. Should work with different fonts > and sizes. > > Two fields, one button. > > Kind regards > Bernd > > ---------------------------------------------------------- > on mouseUp > local tDescent1, tDescent2, tBot1, tBot2, tDiff1, tDiff2, tRef > local fFormattedBottom1, fFormattedBottom2 > > put 120 into tRef > > put item 4 of the formattedRect of line 1 of field 1 into fFormattedBottom1 > put item 4 of the formattedRect of line 1 of field 2 into fFormattedBottom2 > > put item 4 of measureText(line 1 of field 1, field 1 ,"bounds") into > tDescent1 > put item 4 measureText(line 1 of field 2, field 2 ,"bounds") into tDescent2 > > put the bottom of field 1 into tBot1 > put the bottom of field 2 into tBot2 > > put tBot1 - fFormattedBottom1 + tDescent1 into tDiff1 > put tBot2 - fFormattedBottom2 + tDescent2 into tDiff2 > > set the bottom of field 1 to tRef + tDiff1 > set the bottom of field 2 to tRef + tDiff2 > end mouseUp > ---------------------------------------------------------- > > > > _______________________________________________ > use-livecode mailing list > use-livecode@lists.runrev.com > Please visit this url to subscribe, unsubscribe and manage your subscription > preferences: > http://lists.runrev.com/mailman/listinfo/use-livecode _______________________________________________ use-livecode mailing list use-livecode@lists.runrev.com Please visit this url to subscribe, unsubscribe and manage your subscription preferences: http://lists.runrev.com/mailman/listinfo/use-livecode
