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;