Page 1 of 1

Two strange things

Posted: Wed Aug 25, 2010 6:50 am
by ThYpHoOn
Hey folks,

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:
Image

The second thing is a ScaleRichviewEdit-Component which doenst scroll to the top again:
Image
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

Posted: Wed Aug 25, 2010 4:00 pm
by Sergey Tkachenko
Please send a test project to [email protected]

What version of ScaleRichView and Delphi do you use?