Ruler - taDecimalAlign
Posted: Tue Dec 18, 2007 6:12 am
Hello,
I want to use rvRuler1.Tabs[FTabNr].Align := taDecimalAlign
(FTabNr look at RVRuler1RulerItemSelec).
{
I have set toAdvancedTabs true in TabSettings.Options.
procedure TForm1.RVRuler1RulerItemSelect(Sender: TObject; X: Integer);
var i: Integer;
begin
FTabNr := -1;
for i := 0 to rvRuler1.Tabs.Count - 1 do
if NearBy(rvRuler1.Tabs.Left, X, 4) then FTabNr := i;
end;
}
I expected that decimal-numbers are written in this way (dot under dot):
1.23 //I have tried 1,23 too
12.34
123.54
But in rve-memo decimal-numbers are written in this way (taLeftAlign):
1.23
12.34
123.54
What's wrong ?
Best regards
Jürgen
PS: In Peter's Demo 'unit uSimpleDemo' taDecimalAlign also doesn't work. taDecimalAlign changes to taLeftAlign.
I want to use rvRuler1.Tabs[FTabNr].Align := taDecimalAlign
(FTabNr look at RVRuler1RulerItemSelec).
{
I have set toAdvancedTabs true in TabSettings.Options.
procedure TForm1.RVRuler1RulerItemSelect(Sender: TObject; X: Integer);
var i: Integer;
begin
FTabNr := -1;
for i := 0 to rvRuler1.Tabs.Count - 1 do
if NearBy(rvRuler1.Tabs.Left, X, 4) then FTabNr := i;
end;
}
I expected that decimal-numbers are written in this way (dot under dot):
1.23 //I have tried 1,23 too
12.34
123.54
But in rve-memo decimal-numbers are written in this way (taLeftAlign):
1.23
12.34
123.54
What's wrong ?
Best regards
Jürgen
PS: In Peter's Demo 'unit uSimpleDemo' taDecimalAlign also doesn't work. taDecimalAlign changes to taLeftAlign.