-----Original Message----- Message: 1 Date: Sun, 12 Apr 2015 16:20:59 +0200 From: Tobias Boege <tabo...@gmail.com> Subject: Re: [Gambas-user] How do I left justify text in a DataControl To: mailing list for gambas users <gambas-user@lists.sourceforge.net> Message-ID: <20150412142059.GI3785@aurora> Content-Type: text/plain; charset=us-ascii
On Sun, 12 Apr 2015, Martin McGlensey wrote: > How do I force a DataControl to display text, that is longer than the > control, as left justified. That is if the control is sized to accept > ten characters, on the form, and the text is twenty characters I want > to see the first ten. Now I see the last ten. Want to see the first > ten and be able to arrow over to see the next ten. Is there an align > property to address this? > > All solutions are welcome. > A DataControl can take the form of one of TextBox, DateBox, ComboBox, TextArea and ButtonBox, AFAICS. It's more difficult to find a general solution, so I'll restrict myself to the case that you are displaying an Integer, Long, Float or String (with less than 256 characters) field which are precisely the cases where the DataControl uses a TextBox to display the field. Then you get that internal TextBox via DataControl.Control. You just take this TextBox and go to cursor position zero: Dim hTextBox As TextBox = myDataControl.Control hTextBox.Pos = 0 This shows the left characters of the TextBox [ I have verified that it works out like this, on my system ]. The other cases may be similar, except DateBox which has no Pos property. If you have a DataSource -> DataBrowser -> DataControl in your project, the appropriate place to put the above code would be the DataSource_Change event handler. [ Also note that this is not about text alignment which you can control separately with a TextBox but simply about what part of the long text is displayed by the limited control. ] Regards, Tobi -- "There's an old saying: Don't change anything... ever!" -- Mr. Monk Tobi, Dim hTextbox as TextBox = DataControl.Control does not appear to work. Error - Expecting number etc. Dim hTextArea as TextArea = DataControl.Controls does work without error. Is that expected with a datacontrol or have I made an error? Marty *************************************** ------------------------------------------------------------------------------ BPM Camp - Free Virtual Workshop May 6th at 10am PDT/1PM EDT Develop your own process in accordance with the BPMN 2 standard Learn Process modeling best practices with Bonita BPM through live exercises http://www.bonitasoft.com/be-part-of-it/events/bpm-camp-virtual- event?utm_ source=Sourceforge_BPM_Camp_5_6_15&utm_medium=email&utm_campaign=VA_SF _______________________________________________ Gambas-user mailing list Gambas-user@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/gambas-user
