i've found two strange bugs by implementing Scalerichview in my program.
First thing is a space insertion on typing "111111111111111" (only the number one as character).
Is looks like that:
The second thing is a ScaleRichviewEdit-Component which doenst scroll to the top again:
There you can see the first line is marked but you can't scroll up to see the first line.
My DFM:
Code: Select all
object MyRichEdit: TSRichViewEdit
Left = 640
Top = 112
Width = 145
Height = 89
Cursor = crIBeam
PopupMenu = Richedit_PopUp
Color = clWhite
SkinManager = SRVSkinManager1
HScrollBarSchemeIndex = 0
VScrollBarSchemeIndex = 0
Version = 'v3.3.4'
PageProperty.BorderPen.Color = clBlack
PageProperty.BorderPen.Style = psClear
PageProperty.BorderPen.Width = 0
PageProperty.AutoWidth = True
PageProperty.PageWidth = 273
PageProperty.PageHeight = 297
PageProperty.PageFormat = srvfmCustom
PageProperty.PageBreakHeight = 0
PageProperty.MinPageBreakHeight = 0
PageProperty.MaxPageBreakHeight = 0
PageProperty.BoundLeftRight = 0
PageProperty.LeftMargin = 1
PageProperty.RightMargin = 1
PageProperty.TopMargin = 1
PageProperty.BottomMargin = 1
PageProperty.PageNoVisible = False
PageProperty.PageNoFont.Charset = DEFAULT_CHARSET
PageProperty.PageNoFont.Color = clWindowText
PageProperty.PageNoFont.Height = -11
PageProperty.PageNoFont.Name = 'Arial'
PageProperty.PageNoFont.Style = []
PageProperty.PageBreak.Text = 'Page break'
PageProperty.HeaderVisible = False
PageProperty.FooterVisible = False
ViewProperty.WorkArea = srvwaTextRect
ViewProperty.MarginBounds = []
ViewProperty.ShowScrollHint = False
ViewProperty.HintFont.Charset = DEFAULT_CHARSET
ViewProperty.HintFont.Color = clBlack
ViewProperty.HintFont.Height = -13
ViewProperty.HintFont.Name = 'Arial'
ViewProperty.HintFont.Style = []
ViewProperty.HintPrefixText = 'Page '
ViewProperty.FreePosPage = True
ViewProperty.ZoomMode = rvzmCustom
ViewProperty.ZoomPercent = 180
ViewProperty.ZoomPercentEdit = 180
ViewProperty.ZoomModeEdit = rvzmCustom
ViewProperty.ZoomPercentIN = 100
ViewProperty.ZoomModeIN = rvzmCustom
ViewProperty.ZoomPercentOUT = 100
ViewProperty.HeaderTitle = 'Header'
ViewProperty.HeaderTitleFont.Charset = DEFAULT_CHARSET
ViewProperty.HeaderTitleFont.Height = -11
ViewProperty.HeaderTitleFont.Name = 'MS Sans Serif'
ViewProperty.HeaderTitleFont.Style = []
ViewProperty.FooterTitle = 'Footer'
ViewProperty.FooterTitleFont.Charset = DEFAULT_CHARSET
ViewProperty.FooterTitleFont.Height = -11
ViewProperty.FooterTitleFont.Name = 'MS Sans Serif'
ViewProperty.FooterTitleFont.Style = []
ViewProperty.HeaderFooterShade = False
BackgroundProperty.PercentMiddle = 50
MenuHButtons = <>
MenuVButtons = <>
MenuHorizontal.PenFrame.Color = 12937777
MenuVertical.PenFrame.Color = 12937777
HScrollBar = False
CaretBlinkTime = 530
RVColor = clWhite
RVOptions = [rvoAllowSelection, rvoScrollToEnd, rvoTagsArePChars, rvoAutoCopyText, rvoAutoCopyRVF, rvoAutoCopyImage, rvoAutoCopyRTF, rvoFormatInvalidate, rvoDblClickSelectsWord, rvoRClickDeselects]
RVEditorOptions = [rvoCtrlJumps, rvoWantTabs]
RTFOptions = [rvrtfDuplicateUnicode, rvrtfSaveEMFAsWMF, rvrtfSaveJpegAsJpeg, rvrtfSaveDocParameters]
RTFReadProperties.UnicodeMode = rvruMixed
RTFReadProperties.TextStyleMode = rvrsAddIfNeeded
RTFReadProperties.ParaStyleMode = rvrsAddIfNeeded
RTFReadProperties.ReadDocParameters = True
RVFOptions = [rvfoSavePicturesBody, rvfoSaveControlsBody, rvfoIgnoreUnknownPicFmt, rvfoIgnoreUnknownCtrls, rvfoConvUnknownStylesToZero, rvfoConvLargeImageIdxToZero, rvfoSaveBinary, rvfoSaveBack, rvfoLoadBack, rvfoSaveTextStyles, rvfoSaveParaStyles, rvfoSaveLayout, rvfoLoadLayout, rvfoSaveDocProperties, rvfoLoadDocProperties]
TabNavigation = rvtnNone
end