|
Thanks.
Just one problem is left.
The restoring of the selected range works with the Undo() operation. But if you redo it then the selection isn't restored.
Further I noticed you haven't implemented my changes for the DecreaseIndentOfSingleLine() method.
Your code works too. But there is one problems:
If you decrease the indent/empty space left of the caret, than the you always delete the (in TabLength) specified numbers of space characters. If you try my implemention you will see the number of space characters to delete depends on the left fix of tab position. It latches to the next nearest tab position.
However. The restoring of the selection for single line indent decreasing does not work for undo and redo actions - neither with your code nor with my implemention.
So I tried to use the new SelectCommand. But I can't get it to work:
private void DecreaseIndentOfSingleLine()
{
if (this.Selection.Start.iLine != this.Selection.End.iLine)
return;
Range currentSelection = this.Selection.Clone();
int currentLineIndex = this.Selection.Start.iLine;
int currentLeftSelectionStartIndex = Math.Min(this.Selection.Start.iChar, this.Selection.End.iChar);
string lineText = this.lines[currentLineIndex].Text;
Match whitespacesLeftOfSelectionStartMatch = new Regex(@"\s*", RegexOptions.RightToLeft).Match(lineText, currentLeftSelectionStartIndex);
int leftOffset = whitespacesLeftOfSelectionStartMatch.Index;
int countOfWhitespaces = whitespacesLeftOfSelectionStartMatch.Length;
int numberOfCharactersToRemove = 0;
if (countOfWhitespaces > 0)
{
int remainder = (this.TabLength > 0)
? currentLeftSelectionStartIndex % this.TabLength
: 0;
numberOfCharactersToRemove = (remainder != 0)
? Math.Min(remainder, countOfWhitespaces)
: Math.Min(this.TabLength, countOfWhitespaces);
}
if (numberOfCharactersToRemove > 0)
{
this.BeginUpdate();
this.Selection.BeginUpdate();
lines.Manager.ExecuteCommand(new SelectCommand(TextSource));
this.Selection.Start = new Place(leftOffset, currentLineIndex);
this.Selection.End = new Place(leftOffset + numberOfCharactersToRemove, currentLineIndex);
ClearSelected();
int newSelectionStartCharacterIndex = currentSelection.Start.iChar - numberOfCharactersToRemove;
int newSelectionEndCharacterIndex = currentSelection.End.iChar - numberOfCharactersToRemove;
this.Selection.Start = new Place(newSelectionStartCharacterIndex, currentLineIndex);
this.Selection.End = new Place(newSelectionEndCharacterIndex, currentLineIndex);
this.Selection.EndUpdate();
this.EndUpdate();
}
Invalidate();
}
|
|
|
|
|
rittergig wrote: So I tried to use the new SelectCommand. But I can't get it to work:
It is working. But you need to create Undo transaction (methods BeginAutoUndoCommands and EndAutoUndoCommands ).
rittergig wrote: But if you redo it then the selection isn't restored.
It can be solved too. You need just call SelectionCommand after last changing of Selection .
Thus, the final code of the method:
private void DecreaseIndentOfSingleLine()
{
if (this.Selection.Start.iLine != this.Selection.End.iLine)
return;
Range currentSelection = this.Selection.Clone();
int currentLineIndex = this.Selection.Start.iLine;
int currentLeftSelectionStartIndex = Math.Min(this.Selection.Start.iChar, this.Selection.End.iChar);
string lineText = this.lines[currentLineIndex].Text;
Match whitespacesLeftOfSelectionStartMatch = new Regex(@"\s*", RegexOptions.RightToLeft).Match(lineText, currentLeftSelectionStartIndex);
int leftOffset = whitespacesLeftOfSelectionStartMatch.Index;
int countOfWhitespaces = whitespacesLeftOfSelectionStartMatch.Length;
int numberOfCharactersToRemove = 0;
if (countOfWhitespaces > 0)
{
int remainder = (this.TabLength > 0)
? currentLeftSelectionStartIndex % this.TabLength
: 0;
numberOfCharactersToRemove = (remainder != 0)
? Math.Min(remainder, countOfWhitespaces)
: Math.Min(this.TabLength, countOfWhitespaces);
}
if (numberOfCharactersToRemove > 0)
{
this.BeginUpdate();
this.Selection.BeginUpdate();
lines.Manager.BeginAutoUndoCommands();
lines.Manager.ExecuteCommand(new SelectCommand(TextSource));
this.Selection.Start = new Place(leftOffset, currentLineIndex);
this.Selection.End = new Place(leftOffset + numberOfCharactersToRemove, currentLineIndex);
ClearSelected();
int newSelectionStartCharacterIndex = currentSelection.Start.iChar - numberOfCharactersToRemove;
int newSelectionEndCharacterIndex = currentSelection.End.iChar - numberOfCharactersToRemove;
this.Selection.Start = new Place(newSelectionStartCharacterIndex, currentLineIndex);
this.Selection.End = new Place(newSelectionEndCharacterIndex, currentLineIndex);
lines.Manager.ExecuteCommand(new SelectCommand(TextSource));
lines.Manager.EndAutoUndoCommands();
this.Selection.EndUpdate();
this.EndUpdate();
}
Invalidate();
}
It will be inserted in last version of FCTB.
|
|
|
|
|
Great!
Now it works perfectly.
|
|
|
|
|
Hi,
in most programs (e. g. Notepad++, Visual Studio, Word, Wordpad, ... and program using RichTextBoxes) the selected line breaks will be highlighted as selected too.
The reason for this is that the user can see what he selected, even empty lines.
Current, if you select some text and 4 empty lines you do not see whether and how many empty lines you selected.
If you don't know what I mean: Here is an example with three lines.
Your selection starts at the first position and ends after the third character in the third line.
The selection I visualized with underline style.
This is the current behavior:
a text
with
three lines
This is the desired behavior.
Line breaks will be shown as selected blank character:
a text
with
three lines
So added a option for the FCTB control:
private bool selectionHighlightingForLineBreaksEnabled;
[DefaultValue(true)]
[Description(
"If enabled then line ends included into the selection will be selected too. " +
"Then line ends will be shown as selected blank character.")]
public bool SelectionHighlightingForLineBreaksEnabled
{
get { return selectionHighlightingForLineBreaksEnabled; }
set
{
selectionHighlightingForLineBreaksEnabled = value;
Invalidate();
}
}
With a little change in the DrawLineChars() method I enabled this behavior if the option is enabled:
if (!Selection.IsEmpty && lastChar >= firstChar)
{
e.Graphics.SmoothingMode = SmoothingMode.None;
var textRange = new Range(this, from + firstChar, iLine, from + lastChar + (SelectionHighlightingForLineBreaksEnabled ? 2 : 1), iLine);
textRange = Selection.GetIntersectionWith(textRange);
if (textRange != null && SelectionStyle != null)
{
SelectionStyle.Draw(e.Graphics, new Point(startX + (textRange.Start.iChar - from) * CharWidth, y),
textRange);
}
}
I do not now if this is a hack. But it works
rittergig
|
|
|
|
|
Hi,
Thanks for suggestion.
rittergig wrote: I do not now if this is a hack. But it works
You right chose the method, but your implementation does not drawing selection for empty lines. Also you draw CR at end of wordwrapped lines.
So I little corrected your code:
if (SelectionHighlightingForLineBreaksEnabled && iWordWrapLine == lineInfo.WordWrapStringsCount - 1) lastChar++;
if (!Selection.IsEmpty && lastChar >= firstChar)
{
e.Graphics.SmoothingMode = SmoothingMode.None;
var textRange = new Range(this, from + firstChar, iLine, from + lastChar + 1, iLine);
textRange = Selection.GetIntersectionWith(textRange);
if (textRange != null && SelectionStyle != null)
{
SelectionStyle.Draw(e.Graphics, new Point(startX + (textRange.Start.iChar - from)*CharWidth, y),
textRange);
}
}
New version is available on the Github.
|
|
|
|
|
Hi,
I want to draw a picture (PNG with transparency) in the foreground (extra layer before text). This picture should have a fix position (absolute position of the control). The position of the picture should be fixed even if you scroll your text.
How can I do this easily?
Why I need this: I want to implement smooth mouse scrolling by using the middle button of the mouse.
Many programs have such behavior. For example your some PDF reader and Browsers (IE, FF, Chrome). For example: if you press the middle button in one of this browsers then there appears a cursor icon like this:
http://lh3.ggpht.com/_lssUVRUBQPg/TG22Yyf2_bI/AAAAAAAAAcU/KlENrnbp7nw/marker4.jpg?imgmax=800[^]
or this: http://i.stack.imgur.com/q0tq0.png[^]
After then if you move your mouse cursor above or below then the text starts auto scrolling up or down.
This behavior I want to implement for this control.
|
|
|
|
|
Hi,
So you need to handle event Paint , some like this:
private void fctb_Paint(object sender, PaintEventArgs e)
{
e.Graphics.DrawImage(bmp, new Point(fctb.Width / 2 , fctb.Height / 2));
}
Other way: inheriting from FCTB and override OnPaint method:
protected override OnPaint(PaintEventArgs e)
{
base.OnPaint(e);
e.Graphics.DrawImage(bmp, new Point(Width / 2 , Height / 2));
}
|
|
|
|
|
we added fastcolured textbox when we enter the text then no shortcut keys are workingeg:cntrl+c,ctrl+v etc
we set the property for textbox as dock(FILL)....>this creates problem it seems.
do we need to set any properties,please help me out.
modified 20-Feb-13 4:34am.
|
|
|
|
|
Hmm..
Shortcuts are not working in Demo app too?
I think it is some specific of your hardware or OS.
What is your system configuration?
pravalika27 wrote: dock(FILL)....>this creates problem it seems
It's unlikely..
|
|
|
|
|
Maybe your form has reserved these shortcuts?
I had the same issue. The problem was that the menustrip control reserved the shortcuts and no program code forward the key events to the FastColoredTextbox Control.
So if a parent form catch these key shortcuts you ether have to remove this accociation or you have handle this yourself for example if your menustrip gets the STRG+C pressed event then you have to call and implement something like this: myFctb.Copy()
|
|
|
|
|
thank you.
i removed all the shortkeys for contextmenustrips the problem waz if other ontrols have the same shortcut keys then override takes place .in order to avoid that make sure that all the shortcuts should have unique.not to depend other controls.
..
can u please tell me how to add the contextmenu on event of rightclick in the textbox.
|
|
|
|
|
pravalika27 wrote: can u please tell me how to add the contextmenu on event of rightclick in the textbox.
That's easy. Add a ContextMenuStrip from the toolbar to your form. Than select the FastColoredTextBox control and set the ContextMenuStrip property to the inserted ContextMenuStrip control (e. g. contextMenuStrip1).
That's it.
|
|
|
|
|
Can U please provide the links or code for new tab functioning(using tab control) ,and need to add the textbox(fastcolored textbox) to each page in windows Apllication.
Thanks in Adv.
|
|
|
|
|
Hi,
dont' like the default scroll behavior of a ScrollableControl, because this ignores my mouse scroll wheel settings specified in the system control panel.
I wanted the scroll behavior to use the system settings to scroll just the specified number of lines when the mouse wheel is turned a step. Further more I want that the text scrolls exact always full lines so that if I scoll that the new line is as the exact same position as a other line was before scrolling.
So I commended out the "base.OnMouseWheel(e);" line and replaces the following code.
Unfortunately I couldn't figure out how to calculate the line hight exact.
This equation does not always match the actually line hight:
return (int)fontSize + (int)Math.Ceiling(fontSize / 2);
So I tried it out and builded a table for fonts up to a size of 40.
I now, this is not good programming style
But I didn't found out a better solution ... and it worked.
So here is the code for the mouse scrolling. Now the controls behaves exactly like Notepad, Wordpad or Visual Studio.
protected override void OnMouseWheel(MouseEventArgs e)
{
Invalidate();
if (lastModifiers == Keys.Control)
{
ChangeFontSize(Math.Sign(e.Delta));
}
else
{
int lineHeight = CalculateLineHeight(this.Font.Size);
int numberOfVisibleLines = this.Height / lineHeight;
int mouseWheelScrollLinesSetting = GetControlPanelWheelScrollLinesValue();
int offset;
if ((mouseWheelScrollLinesSetting == -1) || (mouseWheelScrollLinesSetting > numberOfVisibleLines))
{
offset = lineHeight * numberOfVisibleLines;
}
else
{
offset = lineHeight * mouseWheelScrollLinesSetting;
}
if (e.Delta > 0)
{
this.AutoScrollPosition = new Point(-this.AutoScrollPosition.X, -this.AutoScrollPosition.Y - offset);
}
else
{
this.AutoScrollPosition = new Point(-this.AutoScrollPosition.X, -this.AutoScrollPosition.Y + offset);
}
}
OnVisibleRangeChanged();
}
private static int GetControlPanelWheelScrollLinesValue()
{
try
{
using (RegistryKey key = Registry.CurrentUser.OpenSubKey(@"Control Panel\Desktop", false))
{
return Convert.ToInt32(key.GetValue("WheelScrollLines"));
}
}
catch
{
return 1;
}
}
private static int CalculateLineHeight(float fontSize)
{
switch ((int)(fontSize * 100))
{
case 350: return 5;
case 425: return 6;
case 500: return 7;
case 575: return 8;
case 650: return 10;
case 725: return 11;
case 800: return 12;
case 875: return 13;
case 950: return 14;
case 1025: return 16;
case 1100: return 17;
case 1175: return 18;
case 1250: return 19;
case 1325: return 20;
case 1400: return 21;
case 1475: return 23;
case 1550: return 24;
case 1625: return 25;
case 1700: return 26;
case 1725: return 27;
case 1775: return 27;
case 1850: return 28;
case 1925: return 30;
case 2000: return 31;
case 2075: return 32;
case 2150: return 33;
case 2225: return 34;
case 2300: return 35;
case 2375: return 37;
case 2450: return 38;
case 2525: return 39;
case 2600: return 40;
case 2675: return 41;
case 2750: return 42;
case 2825: return 44;
case 2900: return 45;
case 2975: return 46;
case 3050: return 47;
case 3125: return 48;
case 3200: return 49;
case 3275: return 51;
case 3350: return 52;
case 3425: return 53;
case 3500: return 54;
case 3575: return 55;
case 3650: return 56;
case 3725: return 58;
case 3800: return 59;
case 3875: return 60;
case 3950: return 61;
case 4025: return 62;
case 4100: return 64;
case 4175: return 65;
case 4450: return 71;
default:
if (fontSize > 30.75)
return (int)fontSize + (int)Math.Ceiling(fontSize / 2) + 2;
else
return (int)fontSize + (int)Math.Ceiling(fontSize / 2);
}
}
|
|
|
|
|
Hi,
Thanks for suggestion and code example.
You are right, better to support system's settings.
I made some changes in your code and released it. New version is available on Github.
My version is following:
protected override void OnMouseWheel(MouseEventArgs e)
{
Invalidate();
if (lastModifiers == Keys.Control)
{
ChangeFontSize(Math.Sign(e.Delta));
OnVisibleRangeChanged();
}
else
if(VerticalScroll.Visible)
{
int lineHeight = CharHeight;
int numberOfVisibleLines = ClientSize.Height / lineHeight;
int mouseWheelScrollLinesSetting = GetControlPanelWheelScrollLinesValue();
int offset;
if ((mouseWheelScrollLinesSetting == -1) || (mouseWheelScrollLinesSetting > numberOfVisibleLines))
offset = lineHeight * numberOfVisibleLines;
else
offset = lineHeight * mouseWheelScrollLinesSetting;
var newScrollPos = VerticalScroll.Value - Math.Sign(e.Delta)* offset;
var ea = new ScrollEventArgs(e.Delta < 0 ? ScrollEventType.SmallIncrement : ScrollEventType.SmallDecrement,
VerticalScroll.Value,
newScrollPos,
ScrollOrientation.VerticalScroll);
OnScroll(ea);
}
}
private static int GetControlPanelWheelScrollLinesValue()
{
try
{
using (RegistryKey key = Registry.CurrentUser.OpenSubKey(@"Control Panel\Desktop", false))
{
return Convert.ToInt32(key.GetValue("WheelScrollLines"));
}
}
catch
{
return 1;
}
}
rittergig wrote: Unfortunately I couldn't figure out how to calculate the line hight exact.
It is simply CharHeight property
|
|
|
|
|
Thanks.
You are right. To use CharHeight is much easier
|
|
|
|
|
Installed components:
Windows 7, VS2010, Infragistics, DevExpress, VSCommands, Developer Powertools.
When running an application in the debugger, copying to the clipboard works ony 98 out of 100 times.
This succes ratio has nothing to do with your component, somehow it is a fact on my machine and may be related to the installed components.
The problem with your component is what happens in those 2%.
Right now it does not have any exception handling, which means it brings down the host application, without any means for my code to prevent that.
The way I handle it in my own code is that I allow the copy attempt a few retries before
silently failing. I'm not failing explicitly, because the worst thing that happens if it did not work, is that the user thinks they pressed the wrong keys.
I also use the 'DebuggerNonUserCode'-attribute on the method so that the caught exception does not trigger a debugger-breakpoint. I'm not going to deny there is a chance that I am breaking a few laws here. But it has proven to be wonderfully robust in our applications.
[DebuggerNonUserCode]
public bool CopyToClipboard(this string subject)
{
int retriesLeft = 10;
var result = false;
while (retriesLeft-- > 0)
{
try
{
if (string.IsNullOrEmpty(subject))
{
Clipboard.Clear();
}
else
{
Clipboard.SetData(DataFormats.Text, subject);
}
result = true;
break;
}
catch
{
System.Windows.Forms.Application.DoEvents();
Thread.Sleep(10);
}
}
return result;
}
EDIT: I write this comment now because it has just now happened for the third time.
again, not your fault, but you can help.
|
|
|
|
|
Hi,
Hey, this bug was fixed 14 Feb 2013
But I do not run cycle and I do not call Application.DoEvents. I think this is bad practice. However if it is useful for you then let it be...
I solved it by following way:
[DllImport("user32.dll")]
static extern IntPtr CloseClipboard();
void SetClipboard(DataObject data)
{
try
{
CloseClipboard();
Clipboard.SetDataObject(data, true, 5, 100);
}
catch(ExternalException)
{
}
}
The exception throws when clipboard is opened by another process (at my case it was TeamViewer). Unfortunately I do not know robust method to resolve this problem. So I simply ignore this error (but text does not copy in this case of course).
|
|
|
|
|
Hi. I really appreciate your work. This is gorgeous!
But i found a bug:
The descreasing for the indent for a single line does not work.
If I do this:
1.) select one single line and select some characters of it
2.) Press SHIFT + TAB
then the selected line is deleted.
I can't figure the bug out myself
Please help.
|
|
|
|
|
Hi,
Ok, I fixed it. Download latest version from Github.
|
|
|
|
|
Wow! That was fast
Thank you very much.
But I found another bug.
An example:
1.) You set the following options/properties of the fctb control:
AutoIndent=true, AutoIndentExistingLines=true, LeftBracket="", LeftBracket2="", RightBracket="", RightBracket2=""
2.) You opened or inserted the following text in your fctb control:
(
123
456
)
789
3) Then you want to add characters behind the ")" character.
If you do this, then the line with the ")" is shifted to the right.
After I added the '#'-char (for example) I get this:
(
123
456
)#
789
Is this a feature or a bug?
However, if I disable the AutoIndentExistingLines option then this doesn't happen. Besides this behavior (bug?) where is the difference between AutoIndentExistingLine=false and AutoIndentExistingLines=true?
|
|
|
|
|
Hi,
I think this is no bug.
If property AutoIndentExistingLine=false then control does no indent for non empty line. At this mode autoindenting works only for new lines (when user press Enter).
When AutoIndentExistingLine=true, the control trying to indent any line (new, empty, non empty). In your case it does indent by previous line and inserts tab before bracket.
In principle, you can manually handle event AutoIndentNeeded and adjust indents as you need.
Also, take in atention that indention is depending from code foldings.
|
|
|
|
|
When I open a file with fctb I get gradient background and I'm using a tabcontrol to start and open files and when I switch tabs I get a big red X inside a red box covering entire page and all text is gone.
Please help!
Here's what I have so far ...
<br />
Imports System.Text.RegularExpressions<br />
Imports FastColoredTextBoxNS<br />
Imports System.Drawing.Drawing2D<br />
Imports System.IO<br />
Imports System.Text<br />
<br />
Public Class Form1<br />
<br />
Private fctb As New FastColoredTextBox<br />
'Private cmMark As ContextMenuStrip<br />
Private markAsYellowToolStripMenuItem As ToolStripMenuItem<br />
Private markAsRedToolStripMenuItem As ToolStripMenuItem<br />
Private markAsGreenToolStripMenuItem As ToolStripMenuItem<br />
Private toolStripMenuItem100 As ToolStripSeparator<br />
Private clearMarkedToolStripMenuItem As ToolStripMenuItem<br />
Private markLineBackgroundToolStripMenuItem As ToolStripMenuItem<br />
Private toolStripMenuItem200 As ToolStripSeparator<br />
Private shortCutStyle As ShortcutStyle = New ShortcutStyle(Pens.Red)<br />
Private YellowStyle As MarkerStyle = New MarkerStyle(New SolidBrush(Color.FromArgb(180, Color.Yellow)))<br />
Private RedStyle As MarkerStyle = New MarkerStyle(New SolidBrush(Color.FromArgb(180, Color.Red)))<br />
Private GreenStyle As MarkerStyle = New MarkerStyle(New SolidBrush(Color.FromArgb(180, Color.Green)))<br />
' Key - Line.UniqueId<br />
Dim bookmarksLineId As New Dictionary(Of Integer, Integer)()<br />
' Index - bookmark number, Value - Line.UniqueId<br />
Dim bookmarks As New List(Of Integer)()<br />
Dim IsRebuildingBookmarks As Boolean = False<br />
<br />
Private Sub ClearClipboard()<br />
Clipboard.SetDataObject(New DataObject)<br />
End Sub<br />
<br />
Private Sub fctb_SelectionChangedDelayed(sender As Object, e As EventArgs)<br />
Dim selection As Range = CType(tc1.SelectedTab.Controls.Item(0), FastColoredTextBox).Selection<br />
CType(tc1.SelectedTab.Controls.Item(0), FastColoredTextBox).VisibleRange.ClearStyle(New Style() {shortCutStyle})<br />
If Not selection.IsEmpty Then<br />
Dim r As Range = selection.Clone()<br />
r.Normalize()<br />
r.Start = r.[End]<br />
r.GoLeft(True)<br />
r.SetStyle(Me.shortCutStyle)<br />
End If<br />
End Sub<br />
<br />
#Region "Form Load"<br />
<br />
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load<br />
makenewtab()<br />
CType(tc1.SelectedTab.Controls.Item(0), FastColoredTextBox).Text = File.ReadAllText("html.txt")<br />
tc1.SelectedTab.Text = "New HTML Document.html"<br />
makepopup()<br />
End Sub<br />
<br />
#End Region<br />
<br />
#Region "MakeNewTab"<br />
<br />
Public Function makenewtab()<br />
Dim tp As New TabPage<br />
'Dim fctb As New FastColoredTextBox<br />
tc1.Controls.Add(tp)<br />
With tp<br />
.Text = "New HTML Document.txt"<br />
.Controls.Add(fctb)<br />
.ImageIndex = 11<br />
End With<br />
With fctb<br />
.AutoIndent = False<br />
.AutoScrollMinSize = New Size(0, 15)<br />
.BackBrush = Nothing<br />
'.ContextMenuStrip = cmfctb<br />
.Cursor = Cursors.IBeam<br />
.DelayedEventsInterval = 500<br />
.DisabledColor = Color.FromArgb(100, 180, 180, 180)<br />
.Dock = DockStyle.Fill<br />
.Enabled = True<br />
.Font = New Font("Consolas", 9.75F)<br />
.IndentBackColor = Color.FromArgb(50, 255, 255, 255)<br />
.Language = Language.HTML<br />
.LeftBracket = "("<br />
.LeftPadding = 15<br />
.Location = New Point(0, 0)<br />
.Name = "fctb" & tc1.TabIndex<br />
.Paddings = New Padding(0)<br />
.RightBracket = ")"<br />
.SelectionColor = Color.FromArgb(50, 0, 0, 255)<br />
.Size = New Size(447, 262)<br />
.TabIndex = 0<br />
.WordWrap = True<br />
.AddStyle(Me.YellowStyle)<br />
.AddStyle(Me.RedStyle)<br />
.AddStyle(Me.GreenStyle)<br />
.AddStyle(Me.shortCutStyle)<br />
End With<br />
AddHandler fctb.SelectionChangedDelayed, New EventHandler(AddressOf fctb_SelectionChangedDelayed)<br />
AddHandler fctb.VisualMarkerClick, New EventHandler(Of VisualMarkerEventArgs)(AddressOf fctb_VisualMarkerClick)<br />
AddHandler fctb.PaintLine, New EventHandler(Of PaintLineEventArgs)(AddressOf fctb_PaintLine)<br />
AddHandler fctb.Resize, New EventHandler(AddressOf fctb_Resize)<br />
'Me.cmMark.ResumeLayout(False)<br />
tc1.SelectedTab = tp<br />
Return tp<br />
End Function<br />
<br />
#End Region<br />
<br />
#Region "Autocomplete - Intellisence"<br />
<br />
Private popupMenu As AutocompleteMenu<br />
'Private keywords As String() = {"abstract", "as", "<b>", "base", "bool", "break", "byte", _<br />
' "case", "catch", "char", "checked", "class", "const", _<br />
' "continue", "decimal", "default", "delegate", "do", "double", _<br />
' "else", "enum", "event", "explicit", "extern", "false", _<br />
' "finally", "fixed", "float", "for", "foreach", "goto", _<br />
' "if", "implicit", "in", "int", "interface", "internal", _<br />
' "is", "lock", "long", "namespace", "new", "null", _<br />
' "object", "operator", "out", "override", "params", "private", _<br />
' "protected", "public", "readonly", "ref", "return", "sbyte", _<br />
' "sealed", "short", "sizeof", "stackalloc", "static", "string", _<br />
' "struct", "switch", "this", "throw", "true", "try", _<br />
' "typeof", "uint", "ulong", "unchecked", "unsafe", "ushort", _<br />
' "using", "virtual", "void", "volatile", "while", "add", _<br />
' "alias", "ascending", "descending", "dynamic", "from", "get", _<br />
' "global", "group", "into", "join", "let", "orderby", _<br />
' "partial", "remove", "select", "set", "value", "var", _<br />
' "where", "yield"}<br />
<br />
Private keywords As String() = {"<!--...-->", "<!DOCTYPE>", "<a>", "<abbr>", "<acronym>", "<address>", "<applet>", "<area />", _<br />
"<b>", "<base />", "<basefont />", "<bdo>", "<big>", "<blockquote>", "<body>", "<br />", "<button>", "<caption>", "<center>", "<cite>", _<br />
"<code>", "<col />", "<colgroup>", "<dd>", "<del>", "<dfn>", "<dir>", "<div>", "<dl>", "<dt>", "<em>", "<fieldset>", "<font>", _<br />
"<form>", "<frame />", "<frameset>", "<head>", "<hr />", "<html>", "<i>", "<iframe>", "<img />", "<input />", "<ins>", "<kbd>", _<br />
"<label>", "<legend>", "<li>", "<link />", "<map>", "<menu>", "<meta />", "<noframes>", "<noscript>", "<object>", "<ol>", "<optgroup>", _<br />
"<option>", "<p>", "<param />", "<pre>", "<q>", "<s>", "<samp>", "<script>", "<select>", "<small>", "<span>", "<strike>", "<strong>", "<style>", _<br />
"<sub>", "<sup>", "<table>", "<tbody>", "<td>", "<textarea>", "<tfoot>", "<th>", "<thead>", "<title>", "<tr>", "<tt>", "<u>", "<ul>", "<var>", "<xmp>"}<br />
<br />
'Private methods As String() = {"Equals()", "GetHashCode()", "GetType()", "ToString()"}<br />
'Private snippets As String() = {"if(^)" & vbLf & "{" & vbLf & ";" & vbLf & "}", "if(^)" & vbLf & "{" & vbLf & ";" & vbLf & "}" & vbLf & "else" & vbLf & "{" & vbLf & ";" & vbLf & "}", "for(^;;)" & vbLf & "{" & vbLf & ";" & vbLf & "}", "while(^)" & vbLf & "{" & vbLf & ";" & vbLf & "}", "do${" & vbLf & "^;" & vbLf & "}while();", "switch(^)" & vbLf & "{" & vbLf & "case : break;" & vbLf & "}"}<br />
'Private declarationSnippets As String() = {"public class ^" & vbLf & "{" & vbLf & "}", "private class ^" & vbLf & "{" & vbLf & "}", "internal class ^" & vbLf & "{" & vbLf & "}", "public struct ^" & vbLf & "{" & vbLf & ";" & vbLf & "}", "private struct ^" & vbLf & "{" & vbLf & ";" & vbLf & "}", "internal struct ^" & vbLf & "{" & vbLf & ";" & vbLf & "}", _<br />
' "public void ^()" & vbLf & "{" & vbLf & ";" & vbLf & "}", "private void ^()" & vbLf & "{" & vbLf & ";" & vbLf & "}", "internal void ^()" & vbLf & "{" & vbLf & ";" & vbLf & "}", "protected void ^()" & vbLf & "{" & vbLf & ";" & vbLf & "}", "public ^{ get; set; }", "private ^{ get; set; }", _<br />
' "internal ^{ get; set; }", "protected ^{ get; set; }"}<br />
<br />
Private Sub BuildAutocompleteMenu()<br />
Dim items As New List(Of AutocompleteItem)()<br />
<br />
'For Each item As String In snippets<br />
' items.Add(New SnippetAutocompleteItem(item) With {.ImageIndex = 1})<br />
'Next<br />
'For Each item As String In declarationSnippets<br />
' items.Add(New DeclarationSnippet(item) With {.ImageIndex = 0})<br />
'Next<br />
'For Each item As String In methods<br />
' items.Add(New MethodAutocompleteItem(item) With {.ImageIndex = 2})<br />
'Next<br />
For Each item As String In keywords<br />
items.Add(New AutocompleteItem(item) With {.ImageIndex = 10})<br />
Next<br />
<br />
items.Add(New InsertSpaceSnippet())<br />
items.Add(New InsertSpaceSnippet("^(\w+)([=<>!:]+)(\w+)$"))<br />
items.Add(New InsertEnterSnippet())<br />
<br />
'set as autocomplete source<br />
popupMenu.Items.SetAutocompleteItems(items)<br />
End Sub<br />
<br />
''' <summary><br />
''' This item appears when any part of snippet text is typed<br />
''' </summary><br />
Private Class DeclarationSnippet<br />
Inherits SnippetAutocompleteItem<br />
Public Sub New(ByVal snippet As String)<br />
MyBase.New(snippet)<br />
End Sub<br />
<br />
Public Overrides Function Compare(ByVal fragmentText As String) As CompareResult<br />
Dim pattern = Regex.Escape(fragmentText)<br />
If Regex.IsMatch(Text, "\b" & pattern, RegexOptions.IgnoreCase) Then<br />
Return CompareResult.Visible<br />
End If<br />
Return CompareResult.Hidden<br />
End Function<br />
End Class<br />
<br />
''' <summary><br />
''' Divides numbers and words: "123AND456" -> "123 AND 456"<br />
''' Or "i=2" -> "i = 2"<br />
''' </summary><br />
Private Class InsertSpaceSnippet<br />
Inherits AutocompleteItem<br />
Private pattern As String<br />
<br />
Public Sub New(ByVal pattern As String)<br />
MyBase.New("")<br />
Me.pattern = pattern<br />
End Sub<br />
<br />
<br />
Public Sub New()<br />
Me.New("^(\d+)([a-zA-Z_]+)(\d*)$")<br />
End Sub<br />
<br />
Public Overrides Function Compare(ByVal fragmentText As String) As CompareResult<br />
If Regex.IsMatch(fragmentText, pattern) Then<br />
Text = InsertSpaces(fragmentText)<br />
If Text <> fragmentText Then<br />
Return CompareResult.Visible<br />
End If<br />
End If<br />
Return CompareResult.Hidden<br />
End Function<br />
<br />
Public Function InsertSpaces(ByVal fragment As String) As String<br />
Dim m = Regex.Match(fragment, pattern)<br />
If m Is Nothing Then<br />
Return fragment<br />
End If<br />
If m.Groups(1).Value = "" AndAlso m.Groups(3).Value = "" Then<br />
Return fragment<br />
End If<br />
Return (m.Groups(1).Value & " " & m.Groups(2).Value & " " & m.Groups(3).Value).Trim()<br />
End Function<br />
<br />
Public Overrides Property ToolTipTitle() As String<br />
Get<br />
Return Text<br />
End Get<br />
Set(ByVal value As String)<br />
End Set<br />
End Property<br />
End Class<br />
<br />
''' <summary><br />
''' Inerts line break after '}'<br />
''' </summary><br />
Private Class InsertEnterSnippet<br />
Inherits AutocompleteItem<br />
Private enterPlace As Place = Place.Empty<br />
<br />
Public Sub New()<br />
MyBase.New("[Line break]")<br />
End Sub<br />
<br />
Public Overrides Function Compare(ByVal fragmentText As String) As CompareResult<br />
Dim r = Parent.Fragment.Clone()<br />
While r.Start.iChar > 0<br />
If r.CharBeforeStart = "}"c Then<br />
enterPlace = r.Start<br />
Return CompareResult.Visible<br />
End If<br />
<br />
r.GoLeftThroughFolded()<br />
End While<br />
<br />
Return CompareResult.Hidden<br />
End Function<br />
<br />
Public Overrides Function GetTextForReplace() As String<br />
'extend range<br />
Dim r As Range = Parent.Fragment<br />
Dim [end] As Place = r.[End]<br />
r.Start = enterPlace<br />
r.[End] = r.[End]<br />
'insert line break<br />
Return Environment.NewLine + r.Text<br />
End Function<br />
<br />
Public Overrides Sub OnSelected(ByVal popupMenu As AutocompleteMenu, ByVal e As SelectedEventArgs)<br />
MyBase.OnSelected(popupMenu, e)<br />
If Parent.Fragment.tb.AutoIndent Then<br />
Parent.Fragment.tb.DoAutoIndent()<br />
End If<br />
End Sub<br />
<br />
Public Overrides Property ToolTipTitle() As String<br />
Get<br />
Return "Insert line break after '}'"<br />
End Get<br />
Set(ByVal value As String)<br />
End Set<br />
End Property<br />
End Class<br />
<br />
'Public Sub New()<br />
' InitializeComponent()<br />
<br />
' 'create autocomplete popup menu<br />
' popupMenu = New AutocompleteMenu(fctb)<br />
' popupMenu.Items.ImageList = ImageList1<br />
' popupMenu.SearchPattern = "[\w\.:=!<>]"<br />
' BuildAutocompleteMenu()<br />
'End Sub<br />
<br />
Public Function makepopup()<br />
'create autocomplete popup menu<br />
popupMenu = New AutocompleteMenu(fctb)<br />
popupMenu.Items.ImageList = ImageList1<br />
popupMenu.SearchPattern = "[\w\.:=!<>]"<br />
BuildAutocompleteMenu()<br />
Return Nothing<br />
End Function<br />
<br />
#End Region<br />
<br />
#Region "Markers"<br />
<br />
Private Sub fctb_VisualMarkerClick(sender As Object, e As VisualMarkerEventArgs)<br />
If e.Style Is shortCutStyle Then<br />
cmMark2.Show(CType(tc1.SelectedTab.Controls.Item(0), FastColoredTextBox).PointToScreen(e.Location))<br />
End If<br />
End Sub<br />
<br />
Private Sub TrimSelection()<br />
Dim sel As Range = CType(tc1.SelectedTab.Controls.Item(0), FastColoredTextBox).Selection<br />
sel.Normalize()<br />
While Char.IsWhiteSpace(sel.CharAfterStart) AndAlso sel.Start < sel.[End]<br />
sel.GoRight(True)<br />
End While<br />
sel.Inverse()<br />
While Char.IsWhiteSpace(sel.CharBeforeStart) AndAlso sel.Start > sel.[End]<br />
sel.GoLeft(True)<br />
End While<br />
End Sub<br />
<br />
Private Sub Yellow_Click(sender As Object, e As EventArgs) Handles Yellow.Click<br />
TrimSelection()<br />
CType(tc1.SelectedTab.Controls.Item(0), FastColoredTextBox).Selection.SetStyle(YellowStyle)<br />
End Sub<br />
<br />
Private Sub Red_Click(sender As Object, e As EventArgs) Handles Red.Click<br />
TrimSelection()<br />
CType(tc1.SelectedTab.Controls.Item(0), FastColoredTextBox).Selection.SetStyle(RedStyle)<br />
End Sub<br />
<br />
Private Sub Green_Click(sender As Object, e As EventArgs) Handles Green.Click<br />
TrimSelection()<br />
CType(tc1.SelectedTab.Controls.Item(0), FastColoredTextBox).Selection.SetStyle(GreenStyle)<br />
End Sub<br />
<br />
Private Sub MarkLine_Click(sender As Object, e As EventArgs) Handles Markline.Click<br />
TrimSelection()<br />
CType(tc1.SelectedTab.Controls.Item(0), FastColoredTextBox).Selection.SetStyle(shortCutStyle)<br />
End Sub<br />
<br />
Private Sub ClearMarked_Click(sender As Object, e As EventArgs) Handles Clearmarked.Click<br />
CType(tc1.SelectedTab.Controls.Item(0), FastColoredTextBox).Selection.ClearStyle(New Style() {YellowStyle, RedStyle, GreenStyle})<br />
CType(tc1.SelectedTab.Controls.Item(0), FastColoredTextBox)(CType(tc1.SelectedTab.Controls.Item(0), FastColoredTextBox).Selection.Start.iLine).BackgroundBrush = Nothing<br />
End Sub<br />
<br />
Private Sub fctb_Resize(sender As Object, e As EventArgs)<br />
CType(tc1.SelectedTab.Controls.Item(0), FastColoredTextBox).BackBrush = New LinearGradientBrush(CType(tc1.SelectedTab.Controls.Item(0), FastColoredTextBox).ClientRectangle, Color.White, Color.Silver, LinearGradientMode.Vertical)<br />
End Sub<br />
<br />
Private Sub fctb_PaintLine(sender As Object, e As PaintLineEventArgs)<br />
If e.LineIndex = CType(tc1.SelectedTab.Controls.Item(0), FastColoredTextBox).Selection.Start.iLine Then<br />
e.Graphics.FillEllipse(New LinearGradientBrush(New Rectangle(0, e.LineRect.Top, 15, 15), Color.LightPink, Color.Red, 45.0F), 0, e.LineRect.Top, 15, 15)<br />
End If<br />
'draw bookmark<br />
If bookmarksLineId.ContainsKey(CType(tc1.SelectedTab.Controls.Item(0), FastColoredTextBox)(e.LineIndex).UniqueId) Then<br />
e.Graphics.FillEllipse(New LinearGradientBrush(New Rectangle(0, e.LineRect.Top, 15, 15), Color.White, Color.PowderBlue, 45), 0, e.LineRect.Top, 15, 15)<br />
e.Graphics.DrawEllipse(Pens.PowderBlue, 0, e.LineRect.Top, 15, 15)<br />
End If<br />
End Sub<br />
<br />
#End Region<br />
<br />
#Region "Bookmarks"<br />
<br />
Private Sub btGo_DropDownItemClicked_1(sender As Object, e As ToolStripItemClickedEventArgs) Handles btGo.DropDownItemClicked<br />
TryCast(e.ClickedItem.Tag, Bookmark).DoVisible()<br />
End Sub<br />
<br />
Private Sub btAddBookmark_Click_1(sender As Object, e As EventArgs) Handles btAddBookmark.Click<br />
CType(tc1.SelectedTab.Controls.Item(0), FastColoredTextBox).Bookmarks.Add(CType(tc1.SelectedTab.Controls.Item(0), FastColoredTextBox).Selection.Start.iLine)<br />
End Sub<br />
<br />
Private Sub btRemoveBookmark_Click_1(sender As Object, e As EventArgs) Handles btRemoveBookmark.Click<br />
CType(tc1.SelectedTab.Controls.Item(0), FastColoredTextBox).Bookmarks.Remove(CType(tc1.SelectedTab.Controls.Item(0), FastColoredTextBox).Selection.Start.iLine)<br />
End Sub<br />
<br />
Private Sub btGo_DropDownOpening_1(sender As Object, e As EventArgs) Handles btGo.DropDownOpening<br />
btGo.DropDownItems.Clear()<br />
For Each bookmark In CType(tc1.SelectedTab.Controls.Item(0), FastColoredTextBox).Bookmarks<br />
Dim item = btGo.DropDownItems.Add(bookmark.Name)<br />
item.Tag = bookmark<br />
Next<br />
End Sub<br />
<br />
#End Region<br />
<br />
#Region "menuFile"<br />
<br />
#Region "fileNew"<br />
Private Sub fileNew_Click(sender As Object, e As EventArgs) Handles fileNew.Click, btnNew.Click<br />
makenewtab()<br />
CType(tc1.SelectedTab.Controls.Item(0), FastColoredTextBox).Text = File.ReadAllText("html.txt")<br />
tc1.SelectedTab.Text = "New HTML Document.html"<br />
End Sub<br />
#End Region<br />
<br />
#Region "fileOpen"<br />
Private Sub fileOpen_Click(sender As Object, e As EventArgs) Handles fileOpen.Click, OpenToolStripButton.Click<br />
ofd1.Filter =<br />
"HTML Files (*.htm;*.html)|*.htm;*.html|" _<br />
& "All Files(*.*)|*.*"<br />
ofd1.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Personal)<br />
If (ofd1.ShowDialog() = DialogResult.OK) Then<br />
makenewtab()<br />
CType(tc1.SelectedTab.Controls.Item(0), FastColoredTextBox).Language = Language.HTML<br />
CType(tc1.SelectedTab.Controls.Item(0), FastColoredTextBox).Text = File.ReadAllText(ofd1.FileName)<br />
tc1.SelectedTab.Text = Path.GetFileName(ofd1.FileName)<br />
End If<br />
End Sub<br />
#End Region<br />
<br />
#Region "menuFileSave"<br />
<br />
Private Sub fileSave_Click(sender As Object, e As EventArgs) Handles fileSave.Click, SaveToolStripButton.Click<br />
Dim [unicode] As Encoding = Encoding.Unicode<br />
If CType(tc1.SelectedTab.Controls.Item(0), FastColoredTextBox).Tag = Nothing Then<br />
SaveFile()<br />
Else<br />
CType(tc1.SelectedTab.Controls.Item(0), FastColoredTextBox).SaveToFile(CType(tc1.SelectedTab.Controls.Item(0), FastColoredTextBox).Tag, unicode)<br />
End If<br />
End Sub<br />
<br />
#End Region<br />
<br />
#Region "menuFileSaveAs"<br />
<br />
Public Function SaveFile()<br />
Dim fctb As FastColoredTextBox<br />
Dim [unicode] As Encoding = Encoding.Unicode<br />
fctb = CType(tc1.SelectedTab.Controls.Item(0), FastColoredTextBox)<br />
sfd1.Filter =<br />
"HTML Files (*.htm;*.html)|*.htm;*.html|" _<br />
& "All Files(*.*)|*.*"<br />
sfd1.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Personal)<br />
If (sfd1.ShowDialog() = DialogResult.OK) Then<br />
CType(tc1.SelectedTab.Controls.Item(0), FastColoredTextBox).SaveToFile(sfd1.FileName, unicode)<br />
tc1.SelectedTab.Text = Path.GetFileName(sfd1.FileName)<br />
'CType(tc1.selectedtab.Controls.Item(0), FastColoredTextBox).Tag = sfd1.FileName<br />
'CType(tc1.selectedtab.Controls.Item(0), RichTextBox).Tag = ofd1.FileName<br />
If tc1.SelectedTab.Controls.Contains(fctb) Then<br />
CType(tc1.SelectedTab.Controls.Item(0), FastColoredTextBox).Tag = sfd1.FileName<br />
End If<br />
End If<br />
Return Nothing<br />
End Function<br />
<br />
Private Sub fileSaveAs_Click(sender As Object, e As EventArgs) Handles fileSaveAs.Click<br />
SaveFile()<br />
End Sub<br />
<br />
#End Region<br />
<br />
#Region "Printing"<br />
<br />
Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage<br />
e.Graphics.DrawString(CType(tc1.SelectedTab.Controls.Item(0), FastColoredTextBox).Text, CType(tc1.SelectedTab.Controls.Item(0), _<br />
FastColoredTextBox).Font, Brushes.Blue, 100, 100)<br />
End Sub<br />
<br />
Private Sub PrintToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PrintToolStripMenuItem.Click<br />
Dim PrintDialog1 As New PrintDialog()<br />
PrintDialog1.Document = PrintDocument1<br />
If PrintDialog1.ShowDialog() = DialogResult.OK Then<br />
PrintDocument1.Print()<br />
End If<br />
End Sub<br />
<br />
Private Sub filePrint_Click(sender As Object, e As EventArgs) Handles filePrint.Click<br />
PrintDocument1.DocumentName = CType(tc1.SelectedTab.Controls.Item(0), FastColoredTextBox).Tag<br />
' Make a PrintDocument and attach it to <br />
' the PrintPreview dialog.<br />
dlgPrintPreview.Document = PrintDocument1<br />
<br />
' Preview.<br />
dlgPrintPreview.WindowState = FormWindowState.Maximized<br />
dlgPrintPreview.ShowDialog()<br />
End Sub<br />
<br />
Private Sub fileQuickPrint_Click(sender As Object, e As EventArgs) Handles fileQuickPrint.Click<br />
' Print immediately.<br />
PrintDocument1.Print()<br />
End Sub<br />
<br />
Private Sub filePageSetup_Click(sender As Object, e As EventArgs) Handles filePageSetup.Click<br />
Dim psd As New PageSetupDialog<br />
With psd<br />
.AllowMargins = True<br />
.AllowOrientation = True<br />
.AllowPaper = True<br />
.AllowPrinter = True<br />
.ShowHelp = True<br />
.ShowNetwork = True<br />
.Document = PrintDocument1<br />
End With<br />
psd.ShowDialog()<br />
End Sub<br />
<br />
#End Region<br />
<br />
Private Sub ExitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExitToolStripMenuItem.Click<br />
Me.Close()<br />
End Sub<br />
<br />
#End Region<br />
<br />
#Region "menuEdit"<br />
Private Sub editCopy_Click(sender As Object, e As EventArgs) Handles editCopy.Click, CopyToolStripButton.Click<br />
CType(tc1.SelectedTab.Controls.Item(0), FastColoredTextBox).Copy()<br />
End Sub<br />
<br />
Private Sub editPaste_Click(sender As Object, e As EventArgs) Handles editPaste.Click, PasteToolStripButton.Click<br />
CType(tc1.SelectedTab.Controls.Item(0), FastColoredTextBox).Paste()<br />
End Sub<br />
<br />
Private Sub editUndo_Click(sender As Object, e As EventArgs) Handles editUndo.Click, btnUndo.Click<br />
CType(tc1.SelectedTab.Controls.Item(0), FastColoredTextBox).Undo()<br />
End Sub<br />
<br />
Private Sub editRedo_Click(sender As Object, e As EventArgs) Handles editRedo.Click, btnRedo.Click<br />
CType(tc1.SelectedTab.Controls.Item(0), FastColoredTextBox).Redo()<br />
End Sub<br />
<br />
Private Sub editCut_Click(sender As Object, e As EventArgs) Handles editCut.Click, CutToolStripButton.Click<br />
CType(tc1.SelectedTab.Controls.Item(0), FastColoredTextBox).Cut()<br />
End Sub<br />
<br />
Private Sub editSelectAll_Click(sender As Object, e As EventArgs) Handles editSelectAll.Click<br />
CType(tc1.SelectedTab.Controls.Item(0), FastColoredTextBox).SelectAll()<br />
End Sub<br />
<br />
#End Region<br />
<br />
Private Sub toolsBrowser_Click(sender As Object, e As EventArgs) Handles toolsBrowser.Click<br />
tcMain.SelectedTab = tabBrowser<br />
Browser.Navigate(tc1.SelectedTab.Text)<br />
End Sub<br />
End Class
|
|
|
|
|
Sorry, I can not to debug your code because I have not all code (I do not see code of form initilization).
So, I can debug it only if you give me whole project (or working part of it).
But now I see one error of your code:
In method
Private Sub fctb_Resize(sender As Object, e As EventArgs)
CType(tc1.SelectedTab.Controls.Item(0), FastColoredTextBox).BackBrush = New LinearGradientBrush(CType(tc1.SelectedTab.Controls.Item(0), FastColoredTextBox).ClientRectangle, Color.White, Color.Silver, LinearGradientMode.Vertical)
End Sub
You use FCTB of selected tab page, but you need to use FCTB passed as sender:
Private Sub fctb_Resize(sender As Object, e As EventArgs)
var fctb = CType(sender, FastColoredTextBox)
fctb.BackBrush = New LinearGradientBrush(fctb.ClientRectangle, Color.White, Color.Silver, LinearGradientMode.Vertical)
End Sub
Same mistake in fctb_PaintLine .
Also, LinearGradientBrush is disposable resource, and you need dispose previous brush, before creating of new.
|
|
|
|
|
Thanx for quick reply Pavel
I think this may be what your looking for ...
[Code]
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form1
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)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
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()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
Me.tcMain = New System.Windows.Forms.CustomTabControl()
Me.tabEditor = New System.Windows.Forms.TabPage()
Me.tc1 = New System.Windows.Forms.CustomTabControl()
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.tabBrowser = New System.Windows.Forms.TabPage()
Me.Browser = New System.Windows.Forms.WebBrowser()
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.FileToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.fileNew = New System.Windows.Forms.ToolStripMenuItem()
Me.fileOpen = New System.Windows.Forms.ToolStripMenuItem()
Me.toolStripSeparator = New System.Windows.Forms.ToolStripSeparator()
Me.fileSave = New System.Windows.Forms.ToolStripMenuItem()
Me.fileSaveAs = New System.Windows.Forms.ToolStripMenuItem()
Me.toolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.PrintToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.filePrint = New System.Windows.Forms.ToolStripMenuItem()
Me.filePageSetup = New System.Windows.Forms.ToolStripMenuItem()
Me.fileQuickPrint = New System.Windows.Forms.ToolStripMenuItem()
Me.toolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.ExitToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.EditToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.editUndo = New System.Windows.Forms.ToolStripMenuItem()
Me.editRedo = New System.Windows.Forms.ToolStripMenuItem()
Me.toolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
Me.editCut = New System.Windows.Forms.ToolStripMenuItem()
Me.editCopy = New System.Windows.Forms.ToolStripMenuItem()
Me.editPaste = New System.Windows.Forms.ToolStripMenuItem()
Me.toolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
Me.editSelectAll = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.toolsBrowser = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator10 = New System.Windows.Forms.ToolStripSeparator()
Me.CustomizeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.OptionsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.HelpToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ContentsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.IndexToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.SearchToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.toolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator()
Me.AboutToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.btnNew = New System.Windows.Forms.ToolStripButton()
Me.OpenToolStripButton = New System.Windows.Forms.ToolStripButton()
Me.SaveToolStripButton = New System.Windows.Forms.ToolStripButton()
Me.PrintToolStripButton = New System.Windows.Forms.ToolStripButton()
Me.toolStripSeparator6 = New System.Windows.Forms.ToolStripSeparator()
Me.btnUndo = New System.Windows.Forms.ToolStripButton()
Me.btnRedo = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator12 = New System.Windows.Forms.ToolStripSeparator()
Me.CutToolStripButton = New System.Windows.Forms.ToolStripButton()
Me.CopyToolStripButton = New System.Windows.Forms.ToolStripButton()
Me.PasteToolStripButton = New System.Windows.Forms.ToolStripButton()
Me.toolStripSeparator7 = New System.Windows.Forms.ToolStripSeparator()
Me.btGo = New System.Windows.Forms.ToolStripDropDownButton()
Me.btAddBookmark = New System.Windows.Forms.ToolStripButton()
Me.btRemoveBookmark = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator11 = New System.Windows.Forms.ToolStripSeparator()
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.CustomTabControl1 = New System.Windows.Forms.CustomTabControl()
Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.TabPage3 = New System.Windows.Forms.TabPage()
Me.cmMark2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.Yellow = New System.Windows.Forms.ToolStripMenuItem()
Me.Red = New System.Windows.Forms.ToolStripMenuItem()
Me.Green = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator8 = New System.Windows.Forms.ToolStripSeparator()
Me.Markline = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator9 = New System.Windows.Forms.ToolStripSeparator()
Me.Clearmarked = New System.Windows.Forms.ToolStripMenuItem()
Me.ofd1 = New System.Windows.Forms.OpenFileDialog()
Me.sfd1 = New System.Windows.Forms.SaveFileDialog()
Me.PrintDocument1 = New System.Drawing.Printing.PrintDocument()
Me.dlgPrintPreview = New System.Windows.Forms.PrintPreviewDialog()
Me.DexTreeView1 = New DexEditor.DexTreeView()
Me.tcMain.SuspendLayout()
Me.tabEditor.SuspendLayout()
Me.tabBrowser.SuspendLayout()
Me.MenuStrip1.SuspendLayout()
Me.ToolStrip1.SuspendLayout()
Me.CustomTabControl1.SuspendLayout()
Me.TabPage2.SuspendLayout()
Me.cmMark2.SuspendLayout()
Me.SuspendLayout()
'
'tcMain
'
Me.tcMain.Alignment = System.Windows.Forms.TabAlignment.Bottom
Me.tcMain.Controls.Add(Me.tabEditor)
Me.tcMain.Controls.Add(Me.tabBrowser)
Me.tcMain.DisplayStyle = System.Windows.Forms.TabStyle.Angled
'
'
'
Me.tcMain.DisplayStyleProvider.BorderColor = System.Drawing.SystemColors.ControlDark
Me.tcMain.DisplayStyleProvider.BorderColorHot = System.Drawing.SystemColors.ControlDark
Me.tcMain.DisplayStyleProvider.BorderColorSelected = System.Drawing.Color.FromArgb(CType(CType(127, Byte), Integer), CType(CType(157, Byte), Integer), CType(CType(185, Byte), Integer))
Me.tcMain.DisplayStyleProvider.CloserColor = System.Drawing.Color.DarkGray
Me.tcMain.DisplayStyleProvider.FocusTrack = False
Me.tcMain.DisplayStyleProvider.HotTrack = True
Me.tcMain.DisplayStyleProvider.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.tcMain.DisplayStyleProvider.Opacity = 1.0!
Me.tcMain.DisplayStyleProvider.Overlap = 7
Me.tcMain.DisplayStyleProvider.Padding = New System.Drawing.Point(10, 3)
Me.tcMain.DisplayStyleProvider.Radius = 10
Me.tcMain.DisplayStyleProvider.ShowTabCloser = False
Me.tcMain.DisplayStyleProvider.TextColor = System.Drawing.SystemColors.ControlText
Me.tcMain.DisplayStyleProvider.TextColorDisabled = System.Drawing.SystemColors.ControlDark
Me.tcMain.DisplayStyleProvider.TextColorSelected = System.Drawing.SystemColors.ControlText
Me.tcMain.Dock = System.Windows.Forms.DockStyle.Fill
Me.tcMain.HotTrack = True
Me.tcMain.Location = New System.Drawing.Point(200, 49)
Me.tcMain.Name = "tcMain"
Me.tcMain.SelectedIndex = 0
Me.tcMain.Size = New System.Drawing.Size(662, 376)
Me.tcMain.TabIndex = 0
'
'tabEditor
'
Me.tabEditor.Controls.Add(Me.tc1)
Me.tabEditor.Location = New System.Drawing.Point(4, 4)
Me.tabEditor.Name = "tabEditor"
Me.tabEditor.Padding = New System.Windows.Forms.Padding(3)
Me.tabEditor.Size = New System.Drawing.Size(654, 349)
Me.tabEditor.TabIndex = 0
Me.tabEditor.Text = "Editor"
Me.tabEditor.UseVisualStyleBackColor = True
'
'tc1
'
Me.tc1.DisplayStyle = System.Windows.Forms.TabStyle.VisualStudio
'
'
'
Me.tc1.DisplayStyleProvider.BorderColor = System.Drawing.SystemColors.ControlDark
Me.tc1.DisplayStyleProvider.BorderColorHot = System.Drawing.SystemColors.ControlDark
Me.tc1.DisplayStyleProvider.BorderColorSelected = System.Drawing.Color.FromArgb(CType(CType(127, Byte), Integer), CType(CType(157, Byte), Integer), CType(CType(185, Byte), Integer))
Me.tc1.DisplayStyleProvider.CloserColor = System.Drawing.Color.DarkGray
Me.tc1.DisplayStyleProvider.FocusTrack = False
Me.tc1.DisplayStyleProvider.HotTrack = True
Me.tc1.DisplayStyleProvider.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.tc1.DisplayStyleProvider.Opacity = 1.0!
Me.tc1.DisplayStyleProvider.Overlap = 7
Me.tc1.DisplayStyleProvider.Padding = New System.Drawing.Point(14, 1)
Me.tc1.DisplayStyleProvider.ShowTabCloser = False
Me.tc1.DisplayStyleProvider.TextColor = System.Drawing.SystemColors.ControlText
Me.tc1.DisplayStyleProvider.TextColorDisabled = System.Drawing.SystemColors.ControlDark
Me.tc1.DisplayStyleProvider.TextColorSelected = System.Drawing.SystemColors.ControlText
Me.tc1.Dock = System.Windows.Forms.DockStyle.Fill
Me.tc1.HotTrack = True
Me.tc1.ImageList = Me.ImageList1
Me.tc1.Location = New System.Drawing.Point(3, 3)
Me.tc1.Name = "tc1"
Me.tc1.SelectedIndex = 0
Me.tc1.Size = New System.Drawing.Size(648, 343)
Me.tc1.TabIndex = 0
'
'ImageList1
'
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
Me.ImageList1.Images.SetKeyName(0, "Code_ClassCS.ico")
Me.ImageList1.Images.SetKeyName(1, "Code_ClassVB.ico")
Me.ImageList1.Images.SetKeyName(2, "Code_CodeFileCS.ico")
Me.ImageList1.Images.SetKeyName(3, "Code_CodeFileVB.ico")
Me.ImageList1.Images.SetKeyName(4, "Code_Component.ico")
Me.ImageList1.Images.SetKeyName(5, "Code_WebService.ico")
Me.ImageList1.Images.SetKeyName(6, "Utility_VBScript.ico")
Me.ImageList1.Images.SetKeyName(7, "UtilityText.ico")
Me.ImageList1.Images.SetKeyName(8, "VSProject_genericproject.ico")
Me.ImageList1.Images.SetKeyName(9, "Web_GlobalAppClass.ico")
Me.ImageList1.Images.SetKeyName(10, "Web_HTML.ico")
Me.ImageList1.Images.SetKeyName(11, "Web_StyleSheet.ico")
Me.ImageList1.Images.SetKeyName(12, "Web_WebConfig.ico")
Me.ImageList1.Images.SetKeyName(13, "Web_XML.ico")
Me.ImageList1.Images.SetKeyName(14, "Web_XSLT.ico")
'
'tabBrowser
'
Me.tabBrowser.Controls.Add(Me.Browser)
Me.tabBrowser.Location = New System.Drawing.Point(4, 4)
Me.tabBrowser.Name = "tabBrowser"
Me.tabBrowser.Padding = New System.Windows.Forms.Padding(3)
Me.tabBrowser.Size = New System.Drawing.Size(654, 349)
Me.tabBrowser.TabIndex = 1
Me.tabBrowser.Text = "Browser"
Me.tabBrowser.UseVisualStyleBackColor = True
'
'Browser
'
Me.Browser.Dock = System.Windows.Forms.DockStyle.Fill
Me.Browser.Location = New System.Drawing.Point(3, 3)
Me.Browser.MinimumSize = New System.Drawing.Size(20, 20)
Me.Browser.Name = "Browser"
Me.Browser.Size = New System.Drawing.Size(648, 343)
Me.Browser.TabIndex = 0
'
'MenuStrip1
'
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FileToolStripMenuItem, Me.EditToolStripMenuItem, Me.ToolsToolStripMenuItem, Me.HelpToolStripMenuItem})
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip1.Name = "MenuStrip1"
Me.MenuStrip1.Size = New System.Drawing.Size(862, 24)
Me.MenuStrip1.TabIndex = 1
Me.MenuStrip1.Text = "MenuStrip1"
'
'FileToolStripMenuItem
'
Me.FileToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.fileNew, Me.fileOpen, Me.toolStripSeparator, Me.fileSave, Me.fileSaveAs, Me.toolStripSeparator1, Me.PrintToolStripMenuItem, Me.filePrint, Me.filePageSetup, Me.fileQuickPrint, Me.toolStripSeparator2, Me.ExitToolStripMenuItem})
Me.FileToolStripMenuItem.Name = "FileToolStripMenuItem"
Me.FileToolStripMenuItem.Size = New System.Drawing.Size(37, 20)
Me.FileToolStripMenuItem.Text = "&File"
'
'fileNew
'
Me.fileNew.Image = CType(resources.GetObject("fileNew.Image"), System.Drawing.Image)
Me.fileNew.ImageTransparentColor = System.Drawing.Color.Magenta
Me.fileNew.Name = "fileNew"
Me.fileNew.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.N), System.Windows.Forms.Keys)
Me.fileNew.Size = New System.Drawing.Size(146, 22)
Me.fileNew.Text = "&New"
'
'fileOpen
'
Me.fileOpen.Image = CType(resources.GetObject("fileOpen.Image"), System.Drawing.Image)
Me.fileOpen.ImageTransparentColor = System.Drawing.Color.Magenta
Me.fileOpen.Name = "fileOpen"
Me.fileOpen.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.O), System.Windows.Forms.Keys)
Me.fileOpen.Size = New System.Drawing.Size(146, 22)
Me.fileOpen.Text = "&Open"
'
'toolStripSeparator
'
Me.toolStripSeparator.Name = "toolStripSeparator"
Me.toolStripSeparator.Size = New System.Drawing.Size(143, 6)
'
'fileSave
'
Me.fileSave.Image = CType(resources.GetObject("fileSave.Image"), System.Drawing.Image)
Me.fileSave.ImageTransparentColor = System.Drawing.Color.Magenta
Me.fileSave.Name = "fileSave"
Me.fileSave.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.S), System.Windows.Forms.Keys)
Me.fileSave.Size = New System.Drawing.Size(146, 22)
Me.fileSave.Text = "&Save"
'
'fileSaveAs
'
Me.fileSaveAs.Name = "fileSaveAs"
Me.fileSaveAs.Size = New System.Drawing.Size(146, 22)
Me.fileSaveAs.Text = "Save &As"
'
'toolStripSeparator1
'
Me.toolStripSeparator1.Name = "toolStripSeparator1"
Me.toolStripSeparator1.Size = New System.Drawing.Size(143, 6)
'
'PrintToolStripMenuItem
'
Me.PrintToolStripMenuItem.Image = CType(resources.GetObject("PrintToolStripMenuItem.Image"), System.Drawing.Image)
Me.PrintToolStripMenuItem.ImageTransparentColor = System.Drawing.Color.Magenta
Me.PrintToolStripMenuItem.Name = "PrintToolStripMenuItem"
Me.PrintToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.P), System.Windows.Forms.Keys)
Me.PrintToolStripMenuItem.Size = New System.Drawing.Size(146, 22)
Me.PrintToolStripMenuItem.Text = "&Print"
'
'filePrint
'
Me.filePrint.Image = CType(resources.GetObject("filePrint.Image"), System.Drawing.Image)
Me.filePrint.ImageTransparentColor = System.Drawing.Color.Magenta
Me.filePrint.Name = "filePrint"
Me.filePrint.Size = New System.Drawing.Size(146, 22)
Me.filePrint.Text = "Print Pre&view"
'
'filePageSetup
'
Me.filePageSetup.Image = CType(resources.GetObject("filePageSetup.Image"), System.Drawing.Image)
Me.filePageSetup.Name = "filePageSetup"
Me.filePageSetup.Size = New System.Drawing.Size(146, 22)
Me.filePageSetup.Text = "Page Setup"
'
'fileQuickPrint
'
Me.fileQuickPrint.Name = "fileQuickPrint"
Me.fileQuickPrint.Size = New System.Drawing.Size(146, 22)
Me.fileQuickPrint.Text = "Quick Print"
'
'toolStripSeparator2
'
Me.toolStripSeparator2.Name = "toolStripSeparator2"
Me.toolStripSeparator2.Size = New System.Drawing.Size(143, 6)
'
'ExitToolStripMenuItem
'
Me.ExitToolStripMenuItem.Name = "ExitToolStripMenuItem"
Me.ExitToolStripMenuItem.Size = New System.Drawing.Size(146, 22)
Me.ExitToolStripMenuItem.Text = "E&xit"
'
'EditToolStripMenuItem
'
Me.EditToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.editUndo, Me.editRedo, Me.toolStripSeparator3, Me.editCut, Me.editCopy, Me.editPaste, Me.toolStripSeparator4, Me.editSelectAll})
Me.EditToolStripMenuItem.Name = "EditToolStripMenuItem"
Me.EditToolStripMenuItem.Size = New System.Drawing.Size(39, 20)
Me.EditToolStripMenuItem.Text = "&Edit"
'
'editUndo
'
Me.editUndo.Image = CType(resources.GetObject("editUndo.Image"), System.Drawing.Image)
Me.editUndo.Name = "editUndo"
Me.editUndo.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.Z), System.Windows.Forms.Keys)
Me.editUndo.Size = New System.Drawing.Size(144, 22)
Me.editUndo.Text = "&Undo"
'
'editRedo
'
Me.editRedo.Image = CType(resources.GetObject("editRedo.Image"), System.Drawing.Image)
Me.editRedo.Name = "editRedo"
Me.editRedo.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.Y), System.Windows.Forms.Keys)
Me.editRedo.Size = New System.Drawing.Size(144, 22)
Me.editRedo.Text = "&Redo"
'
'toolStripSeparator3
'
Me.toolStripSeparator3.Name = "toolStripSeparator3"
Me.toolStripSeparator3.Size = New System.Drawing.Size(141, 6)
'
'editCut
'
Me.editCut.Image = CType(resources.GetObject("editCut.Image"), System.Drawing.Image)
Me.editCut.ImageTransparentColor = System.Drawing.Color.Magenta
Me.editCut.Name = "editCut"
Me.editCut.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.X), System.Windows.Forms.Keys)
Me.editCut.Size = New System.Drawing.Size(144, 22)
Me.editCut.Text = "Cu&t"
'
'editCopy
'
Me.editCopy.Image = CType(resources.GetObject("editCopy.Image"), System.Drawing.Image)
Me.editCopy.ImageTransparentColor = System.Drawing.Color.Magenta
Me.editCopy.Name = "editCopy"
Me.editCopy.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.C), System.Windows.Forms.Keys)
Me.editCopy.Size = New System.Drawing.Size(144, 22)
Me.editCopy.Text = "&Copy"
'
'editPaste
'
Me.editPaste.Image = CType(resources.GetObject("editPaste.Image"), System.Drawing.Image)
Me.editPaste.ImageTransparentColor = System.Drawing.Color.Magenta
Me.editPaste.Name = "editPaste"
Me.editPaste.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.V), System.Windows.Forms.Keys)
Me.editPaste.Size = New System.Drawing.Size(144, 22)
Me.editPaste.Text = "&Paste"
'
'toolStripSeparator4
'
Me.toolStripSeparator4.Name = "toolStripSeparator4"
Me.toolStripSeparator4.Size = New System.Drawing.Size(141, 6)
'
'editSelectAll
'
Me.editSelectAll.Image = CType(resources.GetObject("editSelectAll.Image"), System.Drawing.Image)
Me.editSelectAll.Name = "editSelectAll"
Me.editSelectAll.Size = New System.Drawing.Size(144, 22)
Me.editSelectAll.Text = "Select &All"
'
'ToolsToolStripMenuItem
'
Me.ToolsToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.toolsBrowser, Me.ToolStripSeparator10, Me.CustomizeToolStripMenuItem, Me.OptionsToolStripMenuItem})
Me.ToolsToolStripMenuItem.Name = "ToolsToolStripMenuItem"
Me.ToolsToolStripMenuItem.Size = New System.Drawing.Size(48, 20)
Me.ToolsToolStripMenuItem.Text = "&Tools"
'
'toolsBrowser
'
Me.toolsBrowser.Image = CType(resources.GetObject("toolsBrowser.Image"), System.Drawing.Image)
Me.toolsBrowser.Name = "toolsBrowser"
Me.toolsBrowser.Size = New System.Drawing.Size(173, 22)
Me.toolsBrowser.Text = "Preview in Browser"
'
'ToolStripSeparator10
'
Me.ToolStripSeparator10.Name = "ToolStripSeparator10"
Me.ToolStripSeparator10.Size = New System.Drawing.Size(170, 6)
'
'CustomizeToolStripMenuItem
'
Me.CustomizeToolStripMenuItem.Name = "CustomizeToolStripMenuItem"
Me.CustomizeToolStripMenuItem.Size = New System.Drawing.Size(173, 22)
Me.CustomizeToolStripMenuItem.Text = "&Customize"
'
'OptionsToolStripMenuItem
'
Me.OptionsToolStripMenuItem.Name = "OptionsToolStripMenuItem"
Me.OptionsToolStripMenuItem.Size = New System.Drawing.Size(173, 22)
Me.OptionsToolStripMenuItem.Text = "&Options"
'
'HelpToolStripMenuItem
'
Me.HelpToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ContentsToolStripMenuItem, Me.IndexToolStripMenuItem, Me.SearchToolStripMenuItem, Me.toolStripSeparator5, Me.AboutToolStripMenuItem})
Me.HelpToolStripMenuItem.Name = "HelpToolStripMenuItem"
Me.HelpToolStripMenuItem.Size = New System.Drawing.Size(44, 20)
Me.HelpToolStripMenuItem.Text = "&Help"
'
'ContentsToolStripMenuItem
'
Me.ContentsToolStripMenuItem.Name = "ContentsToolStripMenuItem"
Me.ContentsToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
Me.ContentsToolStripMenuItem.Text = "&Contents"
'
'IndexToolStripMenuItem
'
Me.IndexToolStripMenuItem.Name = "IndexToolStripMenuItem"
Me.IndexToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
Me.IndexToolStripMenuItem.Text = "&Index"
'
'SearchToolStripMenuItem
'
Me.SearchToolStripMenuItem.Name = "SearchToolStripMenuItem"
Me.SearchToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
Me.SearchToolStripMenuItem.Text = "&Search"
'
'toolStripSeparator5
'
Me.toolStripSeparator5.Name = "toolStripSeparator5"
Me.toolStripSeparator5.Size = New System.Drawing.Size(119, 6)
'
'AboutToolStripMenuItem
'
Me.AboutToolStripMenuItem.Name = "AboutToolStripMenuItem"
Me.AboutToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
Me.AboutToolStripMenuItem.Text = "&About..."
'
'ToolStrip1
'
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.btnNew, Me.OpenToolStripButton, Me.SaveToolStripButton, Me.PrintToolStripButton, Me.toolStripSeparator6, Me.btnUndo, Me.btnRedo, Me.ToolStripSeparator12, Me.CutToolStripButton, Me.CopyToolStripButton, Me.PasteToolStripButton, Me.toolStripSeparator7, Me.btGo, Me.btAddBookmark, Me.btRemoveBookmark, Me.ToolStripSeparator11})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(862, 25)
Me.ToolStrip1.TabIndex = 2
Me.ToolStrip1.Text = "ToolStrip1"
'
'btnNew
'
Me.btnNew.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnNew.Image = CType(resources.GetObject("btnNew.Image"), System.Drawing.Image)
Me.btnNew.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnNew.Name = "btnNew"
Me.btnNew.Size = New System.Drawing.Size(23, 22)
Me.btnNew.Text = "&New"
'
'OpenToolStripButton
'
Me.OpenToolStripButton.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.OpenToolStripButton.Image = CType(resources.GetObject("OpenToolStripButton.Image"), System.Drawing.Image)
Me.OpenToolStripButton.ImageTransparentColor = System.Drawing.Color.Magenta
Me.OpenToolStripButton.Name = "OpenToolStripButton"
Me.OpenToolStripButton.Size = New System.Drawing.Size(23, 22)
Me.OpenToolStripButton.Text = "&Open"
'
'SaveToolStripButton
'
Me.SaveToolStripButton.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.SaveToolStripButton.Image = CType(resources.GetObject("SaveToolStripButton.Image"), System.Drawing.Image)
Me.SaveToolStripButton.ImageTransparentColor = System.Drawing.Color.Magenta
Me.SaveToolStripButton.Name = "SaveToolStripButton"
Me.SaveToolStripButton.Size = New System.Drawing.Size(23, 22)
Me.SaveToolStripButton.Text = "&Save"
'
'PrintToolStripButton
'
Me.PrintToolStripButton.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.PrintToolStripButton.Image = CType(resources.GetObject("PrintToolStripButton.Image"), System.Drawing.Image)
Me.PrintToolStripButton.ImageTransparentColor = System.Drawing.Color.Magenta
Me.PrintToolStripButton.Name = "PrintToolStripButton"
Me.PrintToolStripButton.Size = New System.Drawing.Size(23, 22)
Me.PrintToolStripButton.Text = "&Print"
'
'toolStripSeparator6
'
Me.toolStripSeparator6.Name = "toolStripSeparator6"
Me.toolStripSeparator6.Size = New System.Drawing.Size(6, 25)
'
'btnUndo
'
Me.btnUndo.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnUndo.Image = CType(resources.GetObject("btnUndo.Image"), System.Drawing.Image)
Me.btnUndo.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnUndo.Name = "btnUndo"
Me.btnUndo.Size = New System.Drawing.Size(23, 22)
Me.btnUndo.Text = "ToolStripButton1"
Me.btnUndo.ToolTipText = "Undo"
'
'btnRedo
'
Me.btnRedo.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnRedo.Image = CType(resources.GetObject("btnRedo.Image"), System.Drawing.Image)
Me.btnRedo.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnRedo.Name = "btnRedo"
Me.btnRedo.Size = New System.Drawing.Size(23, 22)
Me.btnRedo.Text = "ToolStripButton2"
Me.btnRedo.ToolTipText = "Redo"
'
'ToolStripSeparator12
'
Me.ToolStripSeparator12.Name = "ToolStripSeparator12"
Me.ToolStripSeparator12.Size = New System.Drawing.Size(6, 25)
'
'CutToolStripButton
'
Me.CutToolStripButton.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.CutToolStripButton.Image = CType(resources.GetObject("CutToolStripButton.Image"), System.Drawing.Image)
Me.CutToolStripButton.ImageTransparentColor = System.Drawing.Color.Magenta
Me.CutToolStripButton.Name = "CutToolStripButton"
Me.CutToolStripButton.Size = New System.Drawing.Size(23, 22)
Me.CutToolStripButton.Text = "C&ut"
'
'CopyToolStripButton
'
Me.CopyToolStripButton.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.CopyToolStripButton.Image = CType(resources.GetObject("CopyToolStripButton.Image"), System.Drawing.Image)
Me.CopyToolStripButton.ImageTransparentColor = System.Drawing.Color.Magenta
Me.CopyToolStripButton.Name = "CopyToolStripButton"
Me.CopyToolStripButton.Size = New System.Drawing.Size(23, 22)
Me.CopyToolStripButton.Text = "&Copy"
'
'PasteToolStripButton
'
Me.PasteToolStripButton.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.PasteToolStripButton.Image = CType(resources.GetObject("PasteToolStripButton.Image"), System.Drawing.Image)
Me.PasteToolStripButton.ImageTransparentColor = System.Drawing.Color.Magenta
Me.PasteToolStripButton.Name = "PasteToolStripButton"
Me.PasteToolStripButton.Size = New System.Drawing.Size(23, 22)
Me.PasteToolStripButton.Text = "&Paste"
'
'toolStripSeparator7
'
Me.toolStripSeparator7.Name = "toolStripSeparator7"
Me.toolStripSeparator7.Size = New System.Drawing.Size(6, 25)
'
'btGo
'
Me.btGo.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btGo.Image = CType(resources.GetObject("btGo.Image"), System.Drawing.Image)
Me.btGo.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btGo.Name = "btGo"
Me.btGo.Size = New System.Drawing.Size(29, 22)
Me.btGo.Text = "ToolStripDropDownButton1"
Me.btGo.ToolTipText = "Saved Bookmarks"
'
'btAddBookmark
'
Me.btAddBookmark.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btAddBookmark.Image = CType(resources.GetObject("btAddBookmark.Image"), System.Drawing.Image)
Me.btAddBookmark.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btAddBookmark.Name = "btAddBookmark"
Me.btAddBookmark.Size = New System.Drawing.Size(23, 22)
Me.btAddBookmark.Text = "ToolStripButton1"
Me.btAddBookmark.ToolTipText = "Add Selected Bookmark"
'
'btRemoveBookmark
'
Me.btRemoveBookmark.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btRemoveBookmark.Image = CType(resources.GetObject("btRemoveBookmark.Image"), System.Drawing.Image)
Me.btRemoveBookmark.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btRemoveBookmark.Name = "btRemoveBookmark"
Me.btRemoveBookmark.Size = New System.Drawing.Size(23, 22)
Me.btRemoveBookmark.Text = "ToolStripButton1"
'
'ToolStripSeparator11
'
Me.ToolStripSeparator11.Name = "ToolStripSeparator11"
Me.ToolStripSeparator11.Size = New System.Drawing.Size(6, 25)
'
'StatusStrip1
'
Me.StatusStrip1.Location = New System.Drawing.Point(0, 425)
Me.StatusStrip1.Name = "StatusStrip1"
Me.StatusStrip1.Size = New System.Drawing.Size(862, 22)
Me.StatusStrip1.TabIndex = 3
Me.StatusStrip1.Text = "StatusStrip1"
'
'CustomTabControl1
'
Me.CustomTabControl1.Alignment = System.Windows.Forms.TabAlignment.Bottom
Me.CustomTabControl1.Controls.Add(Me.TabPage2)
Me.CustomTabControl1.Controls.Add(Me.TabPage3)
Me.CustomTabControl1.DisplayStyle = System.Windows.Forms.TabStyle.VisualStudio
'
'
'
Me.CustomTabControl1.DisplayStyleProvider.BorderColor = System.Drawing.SystemColors.ControlDark
Me.CustomTabControl1.DisplayStyleProvider.BorderColorHot = System.Drawing.SystemColors.ControlDark
Me.CustomTabControl1.DisplayStyleProvider.BorderColorSelected = System.Drawing.Color.FromArgb(CType(CType(127, Byte), Integer), CType(CType(157, Byte), Integer), CType(CType(185, Byte), Integer))
Me.CustomTabControl1.DisplayStyleProvider.CloserColor = System.Drawing.Color.DarkGray
Me.CustomTabControl1.DisplayStyleProvider.FocusTrack = False
Me.CustomTabControl1.DisplayStyleProvider.HotTrack = True
Me.CustomTabControl1.DisplayStyleProvider.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.CustomTabControl1.DisplayStyleProvider.Opacity = 1.0!
Me.CustomTabControl1.DisplayStyleProvider.Overlap = 7
Me.CustomTabControl1.DisplayStyleProvider.Padding = New System.Drawing.Point(14, 1)
Me.CustomTabControl1.DisplayStyleProvider.ShowTabCloser = False
Me.CustomTabControl1.DisplayStyleProvider.TextColor = System.Drawing.SystemColors.ControlText
Me.CustomTabControl1.DisplayStyleProvider.TextColorDisabled = System.Drawing.SystemColors.ControlDark
Me.CustomTabControl1.DisplayStyleProvider.TextColorSelected = System.Drawing.SystemColors.ControlText
Me.CustomTabControl1.Dock = System.Windows.Forms.DockStyle.Left
Me.CustomTabControl1.HotTrack = True
Me.CustomTabControl1.Location = New System.Drawing.Point(0, 49)
Me.CustomTabControl1.Name = "CustomTabControl1"
Me.CustomTabControl1.SelectedIndex = 0
Me.CustomTabControl1.Size = New System.Drawing.Size(200, 376)
Me.CustomTabControl1.TabIndex = 4
'
'TabPage2
'
Me.TabPage2.Controls.Add(Me.DexTreeView1)
Me.TabPage2.Location = New System.Drawing.Point(4, 4)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(192, 351)
Me.TabPage2.TabIndex = 0
Me.TabPage2.Text = "Project Files"
Me.TabPage2.UseVisualStyleBackColor = True
'
'TabPage3
'
Me.TabPage3.Location = New System.Drawing.Point(4, 4)
Me.TabPage3.Name = "TabPage3"
Me.TabPage3.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage3.Size = New System.Drawing.Size(192, 351)
Me.TabPage3.TabIndex = 1
Me.TabPage3.Text = "HTML Code"
Me.TabPage3.UseVisualStyleBackColor = True
'
'cmMark2
'
Me.cmMark2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.Yellow, Me.Red, Me.Green, Me.ToolStripSeparator8, Me.Markline, Me.ToolStripSeparator9, Me.Clearmarked})
Me.cmMark2.Name = "cmMark2"
Me.cmMark2.Size = New System.Drawing.Size(154, 126)
'
'Yellow
'
Me.Yellow.Name = "Yellow"
Me.Yellow.Size = New System.Drawing.Size(153, 22)
Me.Yellow.Text = "Mark as Yellow"
'
'Red
'
Me.Red.Name = "Red"
Me.Red.Size = New System.Drawing.Size(153, 22)
Me.Red.Text = "Mark as Red"
'
'Green
'
Me.Green.Name = "Green"
Me.Green.Size = New System.Drawing.Size(153, 22)
Me.Green.Text = "Mark as Green"
'
'ToolStripSeparator8
'
Me.ToolStripSeparator8.Name = "ToolStripSeparator8"
Me.ToolStripSeparator8.Size = New System.Drawing.Size(150, 6)
'
'Markline
'
Me.Markline.Name = "Markline"
Me.Markline.Size = New System.Drawing.Size(153, 22)
Me.Markline.Text = "Mark Line"
'
'ToolStripSeparator9
'
Me.ToolStripSeparator9.Name = "ToolStripSeparator9"
Me.ToolStripSeparator9.Size = New System.Drawing.Size(150, 6)
'
'Clearmarked
'
Me.Clearmarked.Name = "Clearmarked"
Me.Clearmarked.Size = New System.Drawing.Size(153, 22)
Me.Clearmarked.Text = "Clear Marked"
'
'PrintDocument1
'
'
'dlgPrintPreview
'
Me.dlgPrintPreview.AutoScrollMargin = New System.Drawing.Size(0, 0)
Me.dlgPrintPreview.AutoScrollMinSize = New System.Drawing.Size(0, 0)
Me.dlgPrintPreview.ClientSize = New System.Drawing.Size(400, 300)
Me.dlgPrintPreview.Enabled = True
Me.dlgPrintPreview.Icon = CType(resources.GetObject("dlgPrintPreview.Icon"), System.Drawing.Icon)
Me.dlgPrintPreview.Name = "dlgPrintPreview"
Me.dlgPrintPreview.Visible = False
'
'DexTreeView1
'
Me.DexTreeView1.Dock = System.Windows.Forms.DockStyle.Fill
Me.DexTreeView1.Location = New System.Drawing.Point(3, 3)
Me.DexTreeView1.Name = "DexTreeView1"
Me.DexTreeView1.RootPath = "C:\Users\Dexter\Documents"
Me.DexTreeView1.Size = New System.Drawing.Size(186, 345)
Me.DexTreeView1.StartPath = DexEditor.Root.MyComputer
Me.DexTreeView1.TabIndex = 0
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(862, 447)
Me.Controls.Add(Me.tcMain)
Me.Controls.Add(Me.CustomTabControl1)
Me.Controls.Add(Me.StatusStrip1)
Me.Controls.Add(Me.ToolStrip1)
Me.Controls.Add(Me.MenuStrip1)
Me.MainMenuStrip = Me.MenuStrip1
Me.Name = "Form1"
Me.Text = "DexEditor"
Me.tcMain.ResumeLayout(False)
Me.tabEditor.ResumeLayout(False)
Me.tabBrowser.ResumeLayout(False)
Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout()
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.CustomTabControl1.ResumeLayout(False)
Me.TabPage2.ResumeLayout(False)
Me.cmMark2.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents tcMain As System.Windows.Forms.CustomTabControl
Friend WithEvents tabEditor As System.Windows.Forms.TabPage
Friend WithEvents tabBrowser As System.Windows.Forms.TabPage
Friend WithEvents tc1 As System.Windows.Forms.CustomTabControl
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
Friend WithEvents FileToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents fileNew As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents fileOpen As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents toolStripSeparator As System.Windows.Forms.ToolStripSeparator
Friend WithEvents fileSave As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents fileSaveAs As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents toolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents PrintToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents filePrint As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents toolStripSeparator2 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ExitToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents EditToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents editUndo As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents editRedo As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents toolStripSeparator3 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents editCut As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents editCopy As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents editPaste As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents toolStripSeparator4 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents editSelectAll As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolsToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents CustomizeToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents OptionsToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents HelpToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ContentsToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents IndexToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents SearchToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents toolStripSeparator5 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents AboutToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
Friend WithEvents btnNew As System.Windows.Forms.ToolStripButton
Friend WithEvents OpenToolStripButton As System.Windows.Forms.ToolStripButton
Friend WithEvents SaveToolStripButton As System.Windows.Forms.ToolStripButton
Friend WithEvents PrintToolStripButton As System.Windows.Forms.ToolStripButton
Friend WithEvents toolStripSeparator6 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents CutToolStripButton As System.Windows.Forms.ToolStripButton
Friend WithEvents CopyToolStripButton As System.Windows.Forms.ToolStripButton
Friend WithEvents PasteToolStripButton As System.Windows.Forms.ToolStripButton
Friend WithEvents toolStripSeparator7 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip
Friend WithEvents CustomTabControl1 As System.Windows.Forms.CustomTabControl
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
Friend WithEvents TabPage3 As System.Windows.Forms.TabPage
Friend WithEvents DexTreeView1 As DexEditor.DexTreeView
Friend WithEvents cmMark2 As System.Windows.Forms.ContextMenuStrip
Friend WithEvents Yellow As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents Red As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents Green As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripSeparator8 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents Markline As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripSeparator9 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents Clearmarked As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents btGo As System.Windows.Forms.ToolStripDropDownButton
Friend WithEvents btAddBookmark As System.Windows.Forms.ToolStripButton
Friend WithEvents btRemoveBookmark As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator11 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ofd1 As System.Windows.Forms.OpenFileDialog
Friend WithEvents sfd1 As System.Windows.Forms.SaveFileDialog
Friend WithEvents PrintDocument1 As System.Drawing.Printing.PrintDocument
Friend WithEvents dlgPrintPreview As System.Windows.Forms.PrintPreviewDialog
Friend WithEvents fileQuickPrint As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents filePageSetup As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents btnUndo As System.Windows.Forms.ToolStripButton
Friend WithEvents btnRedo As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator12 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents toolsBrowser As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripSeparator10 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents Browser As System.Windows.Forms.WebBrowser
End Class
[/Code]
|
|
|
|
|