Advanced Text Editor with Ruler

Hi,

There is in your code a region called "Old Style Formating", but it seems to appears that this piece of code is never used, is it true ?

Because i will adapt your font code to my program in vb.net and have some problems to make the translation.

Thanks

Hello!

Yes, this region was used in the first version of the component, but now it is obsolete. So, you can remove it or keep as an example. All formatting options may be changed through SelectionFont2 and SelectionCharStyle. In about 2 days I plan to upload updated version with many improvements and bug fixies.

Regards, Alex.

Alex KraS

when you upload your new code?

G'day Aleksei.
I'm trying to translate you code from C# to vb using Lutz Roeder's .Net Reflector. The ruler translation seems to go OK but the Enhanced Editor is giving me some trouble. After translating I can build the dll containing both controls. I then add them to a form and all seems to go well. However, after saving and closing this form I cannot open it again in the designer view. It return the following errors;

One or more errors encountered while loading the designer.
The errors are listed below. Some errors can be fixed by rebuilding your project, while others may require code changes.

The variable 'CharStyle1' is either undeclared or was never assigned.
The variable 'CharStyle1' is either undeclared or was never assigned.
The variable 'CharStyle1' is either undeclared or was never assigned.
The variable 'CharStyle1' is either undeclared or was never assigned.
The variable 'CharStyle1' is either undeclared or was never assigned.
The variable 'ParaLineSpacing1' is either undeclared or was never assigned.
The variable 'ParaLineSpacing1' is either undeclared or was never assigned.
The variable 'ParaListStyle1' is either undeclared or was never assigned.
The variable 'ParaListStyle1' is either undeclared or was never assigned.
The variable 'ParaListStyle1' is either undeclared or was never assigned.
The variable 'ParaListStyle1' is either undeclared or was never assigned.

Checking the InitializeComponent part of the form doesn't reveale an error. After removing the coding for the Editor the form is displayed again.

If I try to add your ExtendedRichTextBox control to my problem I reveice the same errors. Any suggestions?

Cheers,
Frank

It's all about Visual Studio 'manners'. For me, it demands all objects to be marked public. And if they are internal designer fails. Also, you may check if [Serializable()] (<Serializable> _ in VB) attribute is set. Try this out and let me know.

Regards,
Alex

Alex KraS

G'day.
I translated it to VS2008 and I don't get this error anymore. I didn't try your suggestion, sorry for that.
How did you intent to use the OffsetType? The line

this.TextEditor.SelectionOffsetType = ExtendedRichTextBox.OffsetType.Subscript;

doesn't seem te be enough. Do I have to set the offset like this?

this.TextEditor.SelectionCharOffset = -5;

Cheers,
Frank

Hi,

I have the same problem and the <serializable ()=""> _ is set too, below is the code

Imports System.Diagnostics
Imports System.Collections
Imports System.Collections.Generic
Imports System.Windows.Forms
Imports System.Drawing
Imports System.Runtime.InteropServices
Imports System.Drawing.Printing
Imports System.ComponentModel
Imports System.Security.Permissions

''' <summary>
''' This ExtendedRichTextBox is based on .NET Framework and also uses WinAPI
''' to extend its functionality. It also contains wrappers for TOM 
''' (Text Object Model) and for OLE (Object Linking and Embedding - this
''' code was written by Oscar Londoño, go to 
''' 
''' http://www.codeproject.com/KB/edit/MyExtRichTextBox.aspx 
''' 
''' for more details)
''' </summary>
<Serializable()> _
Public Class ExtendedRichTextBox
    Inherits RichTextBox
#Region "CONSTRUCTOR"
    <DllImport("kernel32.dll", CharSet:=CharSet.Auto, SetLastError:=True)> _
    Public Shared Function LoadLibrary(ByVal libname As String) As IntPtr
    End Function

    Private Shared RichEditModuleHandle As IntPtr
    'Libraries
    Private Const RichEditDllV3 As String = "RichEd20.dll"
    Private Const RichEditDllV41 As String = "Msftedit.dll"
    'You can also specify

and so on .....

Please help its urgent.

modified on Monday, July 18, 2011 3:03 AM

This my Forms Designer code.

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Editor
    Inherits System.Windows.Forms.Form

    'Form overrides dispose to clean up the component list.
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing AndAlso components IsNot Nothing Then
            components.Dispose()
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Dim CharStyle1 As ExtendedRichTextBox.CharStyle = New ExtendedRichTextBox.CharStyle
        Dim ParaLineSpacing1 As ExtendedRichTextBox.ParaLineSpacing = New ExtendedRichTextBox.ParaLineSpacing
        Dim ParaListStyle1 As ExtendedRichTextBox.ParaListStyle = New ExtendedRichTextBox.ParaListStyle
        Me.ExtendedRichTextBox1 = New ExtendedRichTextBox
        Me.MenuStrip1 = New System.Windows.Forms.MenuStrip
        Me.ToolStrip1 = New System.Windows.Forms.ToolStrip
        Me.ToolStrip2 = New System.Windows.Forms.ToolStrip
        Me.StatusStrip1 = New System.Windows.Forms.StatusStrip
        Me.SuspendLayout()
        '
        'ExtendedRichTextBox1
        '
        Me.ExtendedRichTextBox1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                    Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.ExtendedRichTextBox1.Location = New System.Drawing.Point(0, 77)
        Me.ExtendedRichTextBox1.Name = "ExtendedRichTextBox1"
        Me.ExtendedRichTextBox1.RightToLeft = System.Windows.Forms.RightToLeft.Yes
        CharStyle1.Bold = False
        CharStyle1.Italic = False
        CharStyle1.Link = False
        CharStyle1.Strikeout = False
        CharStyle1.Underline = False
        Me.ExtendedRichTextBox1.SelectionCharStyle = CharStyle1
        Me.ExtendedRichTextBox1.SelectionFont2 = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Inch)
        ParaLineSpacing1.ExactSpacing = 0
        ParaLineSpacing1.SpacingStyle = ExtendedRichTextBox.ParaLineSpacing.LineSpacingStyle.Unknown
        Me.ExtendedRichTextBox1.SelectionLineSpacing = ParaLineSpacing1
        ParaListStyle1.BulletCharCode = CType(0, Short)
        ParaListStyle1.NumberingStart = CType(0, Short)
        ParaListStyle1.Style = ExtendedRichTextBox.ParaListStyle.ListStyle.NumberAndParenthesis
        ParaListStyle1.Type = ExtendedRichTextBox.ParaListStyle.ListType.None
        Me.ExtendedRichTextBox1.SelectionListType = ParaListStyle1
        Me.ExtendedRichTextBox1.SelectionOffsetType = ExtendedRichTextBox.OffsetType.None
        Me.ExtendedRichTextBox1.SelectionSpaceAfter = 0
        Me.ExtendedRichTextBox1.SelectionSpaceBefore = 0
        Me.ExtendedRichTextBox1.Size = New System.Drawing.Size(608, 360)
        Me.ExtendedRichTextBox1.TabIndex = 0
        Me.ExtendedRichTextBox1.Text = ""
        '
        'MenuStrip1
        '
        Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
        Me.MenuStrip1.Name = "MenuStrip1"
        Me.MenuStrip1.Size = New System.Drawing.Size(608, 24)
        Me.MenuStrip1.TabIndex = 1
        Me.MenuStrip1.Text = "MenuStrip1"
        '
        'ToolStrip1
        '
        Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
        Me.ToolStrip1.Name = "ToolStrip1"
        Me.ToolStrip1.Size = New System.Drawing.Size(608, 25)
        Me.ToolStrip1.TabIndex = 2
        Me.ToolStrip1.Text = "ToolStrip1"
        '
        'ToolStrip2
        '
        Me.ToolStrip2.Location = New System.Drawing.Point(0, 49)
        Me.ToolStrip2.Name = "ToolStrip2"
        Me.ToolStrip2.Size = New System.Drawing.Size(608, 25)
        Me.ToolStrip2.TabIndex = 3
        Me.ToolStrip2.Text = "ToolStrip2"
        '
        'StatusStrip1
        '
        Me.StatusStrip1.Location = New System.Drawing.Point(0, 440)
        Me.StatusStrip1.Name = "StatusStrip1"
        Me.StatusStrip1.Size = New System.Drawing.Size(608, 22)
        Me.StatusStrip1.TabIndex = 4
        Me.StatusStrip1.Text = "StatusStrip1"
        '
        'Form1
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(608, 462)
        Me.Controls.Add(Me.StatusStrip1)
        Me.Controls.Add(Me.ToolStrip2)
        Me.Controls.Add(Me.ToolStrip1)
        Me.Controls.Add(Me.ExtendedRichTextBox1)
        Me.Controls.Add(Me.MenuStrip1)
        Me.MainMenuStrip = Me.MenuStrip1
        Me.Name = "Form1"
        Me.Text = "Form1"
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub
    Friend WithEvents ExtendedRichTextBox1 As ExtendedRichTextBox
    Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
    Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
    Friend WithEvents ToolStrip2 As System.Windows.Forms.ToolStrip
    Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip

End Class

Please Please Please help. The Warnings it show in VB 2005 are

The variable 'CharStyle1' is either undeclared or was never assigned.
The variable 'ParaLineSpacing1' is either undeclared or was never assigned.
The variable 'ParaListStyle1' is either undeclared or was never assigned.

The Code runs ok, but when I want to goto design mode then it shows thses warning. Please help me as soon as possible.

How much of this is posible in VB? i'm making a similar thing in VB 2008 EE, so i was wondering if you could give me any help in that direction? Maybe even a vb project file Blush | :O

?

Also: Where did you find your undo, redo icons? and did you make the U, I, B... Etc. icons yourself? if not where did oyu get them Big Grin | :-D

?

Unfortunately, I don't have VB project, because everything is written in C#. But you can convert it into VB with no doubt. You can make it manually or use converters. I'm sure that there are many of them in the Internet.

If you need any assistance, you're welcome.

P.S.
Icons are taken from Microsoft Image Library. I got it with the trial version of VS 2008 Pro.

Alex KraS

it might be a bit to long to write it all again so maybe you could just look at this: http://www.vbforums.com/showthread.php?p=3293834#post3293834 Smile | :)

hi

Hi,

sorry to ask.

I want to use the ruler for milimeter on the screen, one horizontal, one vertical.
When I have a display with 1920*1200, which value for the zoomfactor?

When I set the factor to 1, it's displaying too big on the screen.

I tried some things to get the right factor, but I didn't get a right value/display.

Can somebody help me?

Greetings,
Peter

Hello, Peter.

That is known issue. The probles is that Ruler does not support zoom change (for now).
I am currently working on that. I hope to upgrade the project soon.

Alex

Alex KraS

Hi Alex,
I am researching control and have question.

How can I add pagebreak command (\page) to the RTF programatically?

My target is: I'd like to do merging 2 rtf files (or rtf texts)
and need to divide them withg pagebreak.

Thank you.
Regards,
Oleg.

Hello!

Just put "\page" into RTF code.

Regards,
Alex.

Alex KraS

Hi Alex, thank you, this is a great control.
How can I use it in VS2005?

Regards,
Oleg.

Unfortunately, I removed VS2005 from my PC. That's why I can't create VS2005 project. Sigh | :sigh:

But you can easily include all required files from VS2008 into your VS2005 project - they are fully compatible.

If you have any troubles, you're welcome to ask for a help.

Regards, Alex.

Alex KraS

I found a bug. This editor doesn't work for fonts with symbolic charset.

What do you mean?

Alex KraS

Future feature suggestion.

Len

Thank you for the suggestion. I'll think about it.

Alex KraS

when I choose font size 14 then type now font size change to 10
and 12 change to 8.Do you fix it?

OOPS. Yes, I know. Here is the solution:

In SelectionFont2 in 'set' accessor you need to replace the following line:

param.yHeight = (int)(value.Size * AnInch);

with

param.yHeight = (int)(value.Size * 20);

Alex KraS

modified on Friday, March 21, 2008 7:23 AM

1. Are you explan:
in SelectionFont2 property:
at Set:
Font f = new Font(GetStringFromChar(param.szFaceName), (float)(param.yHeight / 20), GraphicsUnit.Inch);
Font f2 = new Font(f.Name, (float)f.Size);
return f;
what F2 alloc to?
and at Get
param.yHeight = (int)(value.Size * AnInch);
Why are calc this?

2. in public CharStyle SelectionCharStyle
why you not replace
if (param.dwEffects == DEFAULT_EFFECTS + CFE_BOLD || param.dwEffects == CFE_BOLD) cs.Bold = true;
by
if (param.dwEffects & CFE_BOLD == CFE_BOLD) cs.Bold = true;

Advanced Text Editor with Ruler

Introduction

Background

Using the Code

Points of Interest

History

Additions

License

Comments and Discussions