Stefan Mettenbrink wrote:
Wie finde ich heraus, ob der Scrollbalken gerade sichtbar ist oder
nicht?
Hat denn keiner eine Idee?
Dann werde ich mal suchen, ob man nicht irgendwie mit der Anzahl
Zeilen, TextSize und TextArea.Heigt irgendetwas hilfreiches erreicht.
Man ist das böd.
Unter Mac OS ist am rechten Rand der TextArea immer ein Scrollbalken
(teilweise disabled) unter Windows nicht. Dafür brauche ich also
etwas, um einen Button um Scrollbalkenbreite bei Bedarf zu verschieben:
if TargetWin32 then
i=me.LineNumAtCharPos(len(me.text))+1
i=i*zeichensatzgroesse
if i<=me.Height then
BevelButton.left=me.left+me.Width-BevelButton.Width-2
else
BevelButton.left=me.left+214
end
end
Irgendwie ist das aber nicht korrekt, weil die "Zeilenhöhe"
anscheinend nicht der Zeichenhöhe entspricht. Kann ich die
Zeilenhöhe irgendwie rausbekommen?
Unter Windows wird auch noch der Button mit dem Text mitgescrollt. Wie
blöd ist das denn?
MfG, Metti.
