om:= Height-1;
Canvas.Font := Font;
if not Enabled then
Canvas.Font.Color := clGrayText;
Canvas.Brush.Color:=Self.Color;
Canvas.FillRect(Rect);
y := 2; x := 2;
Case FAlignment of
taLeftJustify:;
taRightJustify:
x := Width-Canvas.TextWidth(FDisplayText)-5;
else
x := (Width-Canvas.TextWidth(FDisplayText)-5)div 2;
end;
Canvas.TextOut(x,y,FDisplayText);
finally
Canvas.Unlock;
end;
end;
function TOWEdit.GetDeciLast:integer;
var
i : Integer;
begin
Result := 0;
if Pos(''''.'''',Text)>0 then
begin
for i:=1 to Length(Text) do
if Text[i]=''''.'''' then
begin
Result := Length(Text)-i+1;//Length(Copy(Text,i,Length(Text)-i));
Exit;
end;
end;
end;
end.
上一页 [1] [2] |
