BlueGui - Problem with SetSel Commands in TextEdit Box

Author

Message

MSon

19

Years of Service

User Offline

Joined: 13th Jul 2004

Location: Earth, (I Think).

Posted: 18th Apr 2007 01:35

Link

Can anyone tell me why the code below does not work?

it should change the font and color of part of the text but it seems to do nothing.

+ Code Snippet

font1 = CreateFont("Courier New",10,0,0,0)
font2 = CreateFont("Courier New",10,1,0,0)

main = CreateGadgetFromWindow(mainWindow())
Edit = CreateEdit(10,10,500,500,1,Main)

Setgadgettext Edit," eee text rrrrrrrrrrrrrr text"

       SetSelStart Edit,5
       SetSelLen Edit,4
       SetSelFont Edit,font2,RGB(255,0,0)
       SetSelLen Edit,0


Do

Loop

Back to top

Profile PM Email Website

Alquerian

18

Years of Service

User Offline

Joined: 29th Mar 2006

Location: Reno Nevada

Posted: 18th Apr 2007 03:30

Link

Yeah, fixed it.

Use this instead:

+ Code Snippet

font1 = CreateFont("Courier New",10,0,0,0)
font2 = CreateFont("Courier New",10,1,0,0)

main = CreateGadgetFromWindow(mainWindow())
Edit = CreateRichEdit(10,10,500,500,Main)

Setgadgettext Edit," eee text rrrrrrrrrrrrrr text"

       SetSelStart Edit,5
       SetSelLen Edit,4
       SetSelFont Edit,font2,RGB(255,0,0)
       SetSelLen Edit,0

Do

Loop

Visit the Wip!

Back to top

Profile PM Email Website

MSon

19

Years of Service

User Offline

Joined: 13th Jul 2004

Location: Earth, (I Think).

Posted: 18th Apr 2007 10:41

Link

Thanks Alquerian, But it looks the same as the origional so what did you change?

Back to top

Profile PM Email Website

Alquerian

18

Years of Service

User Offline

Joined: 29th Mar 2006

Location: Reno Nevada

Posted: 18th Apr 2007 19:30

Link

I changed 'edit' to 'richedit' and removed one of the operands.

Visit the Wip!

Back to top

Profile PM Email Website

MSon

19

Years of Service

User Offline

Joined: 13th Jul 2004

Location: Earth, (I Think).

Posted: 19th Apr 2007 01:52 Edited at: 19th Apr 2007 01:57

Link

OK Then heres one for you

See the Picture?

I added Syntax highlighting to it, (I Loaded the Keywords Folder)
The coloring goes off 1 Space per line, I assume as DBPro having a problem with Returns, (return key)

To fix this I need to tell what line the Text is on
How can I do this as I cant find A command for it?
I Tried this

+ Code Snippet

  If Mid$(s$,Pos) = Chr$(28) Then Inc ReturnCount,1

But it dosnt seem to include Returns

Edit: The Coloring not showing too well in this picture
Black = Text
Blue = Command
Green = Numbers
Purple = Mathmatical Symbols
Red = Invalid, (Only includes Items Like Spaces?!,{}[]£%, Ect)

Attachments

Login to view attachments

Back to top

Profile PM Email Website

Alquerian

18

Years of Service

User Offline

Joined: 29th Mar 2006

Location: Reno Nevada

Posted: 19th Apr 2007 02:01

Link

Try checking for Chr$(13) or Chr$(10) as these are the linefeed and carriage return characters.

Visit the Wip!

Back to top

Profile PM Email Website

MSon

19

Years of Service

User Offline

Joined: 13th Jul 2004

Location: Earth, (I Think).

Posted: 19th Apr 2007 02:57 Edited at: 19th Apr 2007 03:03

Link

Thanks again

A Syntax Enable RichTextBox with only 2 required commands

+ Code Snippet

AddSyntaxEdit(x,y,w,h,LangFile$) : ` Step 1 - Create a SyntaxEdit Box
UpdateSyntaxEdit()               : ` Step 2 - Update the Syntax Checker

Still some work to do though

Question: I don't suppost theres anywhere I could get Keyword files like with DBPro, But for other Languages? VBScript, DarkScript, Ect, I could load them at the same time, IE Choose your language Dropbox
IE: Command=Paramiters=Help
or Command==

Attachments

Login to view attachments

Back to top

Profile PM Email Website

Alquerian

18

Years of Service

User Offline

Joined: 29th Mar 2006

Location: Reno Nevada

Posted: 19th Apr 2007 07:49

Link

I do not know that one. Give Google a shot or ask Hyrichter, he may know.

Visit the Wip!

Back to top

Profile PM Email Website

MSon

19

Years of Service

User Offline

Joined: 13th Jul 2004

Location: Earth, (I Think).

Posted: 19th Apr 2007 21:44 Edited at: 19th Apr 2007 22:30

Link

I've added F1 Help like in DBPro as I can recognise a Keyword under the Selector, (Most of the time)

vbScript Constants as a Keyword File
Or most of them so far

vbBlack=Color Constant - Black=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbRed=Color Constant - Red=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbGreen=Color Constant - Green=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbYellow=Color Constant - Yellow=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbBlue=Color Constant - Blue=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbMagenta=Color Constant - Magenta=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbCyan=Color Constant - Cyan=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbWhite=Color Constant - White=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbCyan=Color Constant - Cyan=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbWhite=Color Constant - White=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbBinaryCompare=Comparison Constant - Perform a binary comparison=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbTextCompare=Comparison Constant - Perform a textual comparison=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbSunday=Date and Time Constant - Sunday=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbMonday=Date and Time Constant - Monday=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbTuesday=Date and Time Constant - Tuesday=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbWednesday=Date and Time Constant - Wednesday=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbThursday=Date and Time Constant - Thursday=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbFriday=Date and Time Constant - Friday=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbSaturday=Date and Time Constant - Saturday=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbUseSystemDayOfWeek=Date and Time Constant - Use the day of the week specified in your system settings for the first day of the week.=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbFirstJan1=Date and Time Constant - Use the week in which January 1 occurs (default).=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbFirstFourDays=Date and Time Constant - Use the first week that has at least four days in the new year.=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbFirstFullWeek=Date and Time Constant - Use the first full week of the year.=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbGeneralDate=Date Format Constant - Display a date and/or time. For real numbers, display a date and time. If there is no fractional part, display only a date. If there is no integer part, display time only. Date and time display is determined by your system settings.=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbLongDate=Date Format Constant - Display a date using the long date format specified in your computer's regional settings.=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbShortDate=Date Format Constant - Display a date using the short date format specified in your computer's regional settings.=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbLongTime=Date Format Constant - Display a time using the long time format specified in your computer's regional settings.=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbShortTime=Date Format Constant - Display a time using the short time format specified in your computer's regional settings.=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbObjectError=Misc Constant - UserDefined error numbers should be greater than this value, for example, "Err.Raise Number = vbObjectError + 1000"
vbOKOnly=MsgBox Constant - Display OK button only.=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbOKCancel=MsgBox Constant - Display OK and Cancel buttons.=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbAbortRetryIgnore=MsgBox Constant - Display Abort, Retry, and Ignore buttons.=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbYesNoCancel=MsgBox Constant - Display Yes, No, and Cancel buttons=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbYesNo=MsgBox Constant - Display Yes and No buttons=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbRetryCancel=MsgBox Constant - Display Retry and Cancel buttons=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbCritical=MsgBox Constant - Display Critical Message icon=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbQuestion=MsgBox Constant - Display Warning Query icon=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbExclamation=MsgBox Constant - Display Warning Message icon=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbInformation=MsgBox Constant - Display Information Message icon=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbDefaultButton1=MsgBox Constant - First button is the default=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbDefaultButton2=MsgBox Constant - Second button is the default=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbDefaultButton3=MsgBox Constant - Third button is the default=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbDefaultButton4=MsgBox Constant - Fourth button is the default=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbApplicationModal=MsgBox Constant - Application modal. The user must respond to the message box before continuing work in the current application=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbSystemModal=MsgBox Constant - System modal. On Win16 systems, all applications are suspended until the user responds to the message box. On Win32 systems, this constant provides an application modal message box that always remains on top of any other programs you may have running=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbOK=MsgBox Constant - OK button was clicked=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbCancel=MsgBox Constant - Cancel button was clicked=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbAbort=MsgBox Constant - Abort button was clicked=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbRetry=MsgBox Constant - Retry button was clicked=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbIgnore=MsgBox Constant - Ignore button was clicked=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbYes=MsgBox Constant - Yes button was clicked=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbNo=MsgBox Constant - No button was clicked=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbCr=String Constant - Carriage return=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
VbCrLf=String Constant - Carriage return–linefeed combination=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbFormFeed=String Constant - Form feed; not useful in Microsoft Windows=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbLf=String Constant - Line feed=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbNewLine=String Constant - Platform-specific newline character; whatever is appropriate for the platform=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbNullChar=String Constant - Character having the value 0=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbNullString=String Constant - Not the same as a zero-length string (""); used for calling external procedures=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbTab=String Constant - Horizontal tab=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbVerticalTab=String Constant - Vertical tab; not useful in Microsoft Windows=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp

vbUseDefault=Tristate Constants - Use default from computer's regional settings
vbTrue=Tristate Constants - True
vbFalse=Tristate Constants - False

+ Code Snippet

vbBlack=Color Constant - Black=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbRed=Color Constant - Red=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbGreen=Color Constant - Green=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbYellow=Color Constant - Yellow=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbBlue=Color Constant - Blue=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbMagenta=Color Constant - Magenta=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbCyan=Color Constant - Cyan=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbWhite=Color Constant - White=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbCyan=Color Constant - Cyan=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbWhite=Color Constant - White=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbBinaryCompare=Comparison Constant - Perform a binary comparison=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbTextCompare=Comparison Constant - Perform a textual comparison=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbSunday=Date and Time Constant - Sunday=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbMonday=Date and Time Constant - Monday=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbTuesday=Date and Time Constant - Tuesday=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbWednesday=Date and Time Constant - Wednesday=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbThursday=Date and Time Constant - Thursday=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbFriday=Date and Time Constant - Friday=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbSaturday=Date and Time Constant - Saturday=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbUseSystemDayOfWeek=Date and Time Constant - Use the day of the week specified in your system settings for the first day of the week.=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbFirstJan1=Date and Time Constant - Use the week in which January 1 occurs (default).=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbFirstFourDays=Date and Time Constant - Use the first week that has at least four days in the new year.=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbFirstFullWeek=Date and Time Constant - Use the first full week of the year.=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbGeneralDate=Date Format Constant - Display a date and/or time. For real numbers, display a date and time. If there is no fractional part, display only a date. If there is no integer part, display time only. Date and time display is determined by your system settings.=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbLongDate=Date Format Constant - Display a date using the long date format specified in your computer's regional settings.=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbShortDate=Date Format Constant - Display a date using the short date format specified in your computer's regional settings.=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbLongTime=Date Format Constant - Display a time using the long time format specified in your computer's regional settings.=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbShortTime=Date Format Constant - Display a time using the short time format specified in your computer's regional settings.=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbObjectError=Misc Constant - UserDefined error numbers should be greater than this value, for example, "Err.Raise Number = vbObjectError + 1000"
vbOKOnly=MsgBox Constant - Display OK button only.=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbOKCancel=MsgBox Constant - Display OK and Cancel buttons.=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbAbortRetryIgnore=MsgBox Constant - Display Abort, Retry, and Ignore buttons.=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbYesNoCancel=MsgBox Constant - Display Yes, No, and Cancel buttons=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbYesNo=MsgBox Constant - Display Yes and No buttons=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbRetryCancel=MsgBox Constant - Display Retry and Cancel buttons=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbCritical=MsgBox Constant - Display Critical Message icon=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbQuestion=MsgBox Constant - Display Warning Query icon=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbExclamation=MsgBox Constant - Display Warning Message icon=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbInformation=MsgBox Constant - Display Information Message icon=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbDefaultButton1=MsgBox Constant - First button is the default=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbDefaultButton2=MsgBox Constant - Second button is the default=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbDefaultButton3=MsgBox Constant - Third button is the default=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbDefaultButton4=MsgBox Constant - Fourth button is the default=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbApplicationModal=MsgBox Constant - Application modal. The user must respond to the message box before continuing work in the current application=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbSystemModal=MsgBox Constant - System modal. On Win16 systems, all applications are suspended until the user responds to the message box. On Win32 systems, this constant provides an application modal message box that always remains on top of any other programs you may have running=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbOK=MsgBox Constant - OK button was clicked=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbCancel=MsgBox Constant - Cancel button was clicked=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbAbort=MsgBox Constant - Abort button was clicked=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbRetry=MsgBox Constant - Retry button was clicked=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbIgnore=MsgBox Constant - Ignore button was clicked=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbYes=MsgBox Constant - Yes button was clicked=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbNo=MsgBox Constant - No button was clicked=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbCr=String Constant - Carriage return=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
VbCrLf=String Constant - Carriage return–linefeed combination=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbFormFeed=String Constant - Form feed; not useful in Microsoft Windows=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbLf=String Constant - Line feed=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbNewLine=String Constant - Platform-specific newline character; whatever is appropriate for the platform=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbNullChar=String Constant - Character having the value 0=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbNullString=String Constant - Not the same as a zero-length string (""); used for calling external procedures=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbTab=String Constant - Horizontal tab=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp
vbVerticalTab=String Constant - Vertical tab; not useful in Microsoft Windows=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/067ea711-1196-4ff2-90d3-6e0199168b5a.asp

vbUseDefault=Tristate Constants - Use default from computer's regional settings
vbTrue=Tristate Constants - True
vbFalse=Tristate Constants - False

I'm realy not looking forward to doing Every Command as will take a while.

Format Of Keyword Item
Keyword=HelpText=HelpFile
Discription
Keyword = Guess
HelpText = Info to place in Statusbar when Selector (Carot) is over it
HelpFile = Links to the Keywords Associated MSDN Page

I've got a few questions if anyone knows the answers
If I copy and paste a large amount of code in the RichTextBox, The Syntax updates from the first edited line to the end, But this can take a while - it only happens when I change a large amount of the RichText Contents, IE: Cut,Paste,Load

Q1. Can this be stopped or Speeded up?
Q2. if not how best to Freeze the RichTextBox so it does not Visually update until Completed?
Q3. Who's Hyrichter?

I don't have this problem when keying in text to a large document as it only updates the line the Selector is on
Problem Only when I Cut,Paste,Load

Edit

The buttons don't do anythink yet, But you get the idea
and dont judge it too harshley as i've only had blue about a week

Ho yes, Got RemStart/RemEnd to work

Attachments

Login to view attachments

Back to top

Profile PM Email Website

Alquerian

18

Years of Service

User Offline

Joined: 29th Mar 2006

Location: Reno Nevada

Posted: 20th Apr 2007 00:28

Link

I couldn't answer your first 2 questions without becoming familiar with your code, however "Q3. Who's Hyrichter?" can be found here:

http://forum.thegamecreators.com/?m=forum_view&t=78701&b=8

I think his name is actually Hyrem Richter, he is the developer of CodeSurge, the best IDE currently available for DBP (IMHO).

Visit the Wip!

Back to top

Profile PM Email Website

MSon

19

Years of Service

User Offline

Joined: 13th Jul 2004

Location: Earth, (I Think).

Posted: 20th Apr 2007 00:51

Link

Chears, Will look now

PS: answered question 2 myself

SetAutoUpdate Edit,0
This disables AutoRepainting the Gadget until you have made all the neccesary changes.
Pasteing up to 10 lines happens within a second or 2
Use to take about 10 seconds, could use speeding up a little more if possible though

Back to top

Profile PM Email Website

MSon

19

Years of Service

User Offline

Joined: 13th Jul 2004

Location: Earth, (I Think).

Posted: 20th Apr 2007 23:40 Edited at: 20th Apr 2007 23:57

Link

That IDE look cool

Makes mine look a bit naff

I'm working on the Syntax Checker and IDE Seperatly for now, as theres only 1 Command I need to Call to add Syntax Coloring

AddSyntaxToRichEdit(GadgetNum,Lang)

I know theres already too many IDE's for DarkBasic out there, But its a good way to learn the Blue Commands

Question
When i check for window resizing, It does not recognize it until you release the mouse button
How can I correct this?

Quote: "If EventType() = GADGET_SIZING and EventSource() = Main Then RedrawWindow()"

Attachments

Login to view attachments

Back to top

Profile PM Email Website

Sven B

19

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 21st Apr 2007 09:48 Edited at: 21st Apr 2007 09:49

Link

This doesn't happen when you use setGadgetAlign because then it is handled automatically.

You see, I think this is a DBPro problem. When DBPro detects any other activity on the window except in the window itself (like moving and rescaling the window), DBP temporarely "pauzes" the program. This means all the commands like GADGET_SIZING and GADGET_SIZE, return their data right after you rescaled your window.
So, if you rescale your window with like 10 units, all 10 commands will be returned afterwards...

It's the programmer's life:
Have a problem, solve the problem, and have a new problem to solve.

Back to top

Profile PM Email

MSon

19

Years of Service

User Offline

Joined: 13th Jul 2004

Location: Earth, (I Think).

Posted: 22nd Apr 2007 12:49 Edited at: 22nd Apr 2007 12:51

Link

Thanks Sven, Will try now

PS: I installed the Vista Transformation Pack 6, So I assume my IDE will wook like this in Vista

Attachments

Login to view attachments

Back to top

Profile PM Email Website

Xolatron

18

Years of Service

User Offline

Joined: 12th Mar 2006

Location: The Star Forge Language: DBpro

Posted: 9th Jun 2007 03:35

Link

That looks nice, MSon.

I use these functions to replace setSelStart and setSelLen (back from when I was working on IonRay IDE)

function getSelStartA(editHandle as integer)
  returnval as dword
  returnval = getSelStart(editHandle)+getRichEditLineNum(editHandle)-1
endfunction returnval

function getSelLenA(editHandle as integer)
  returnval as dword
  returnval = getSelLen(editHandle)+getRichEditEndSelLineNum(editHandle)-getRichEditLineNum(editHandle)
endfunction returnval

function setSelStartA(editHandle as integer,selectStart as dword)
  setSelStart editHandle,selectStart-getRichEditLineFromPos(editHandle,selectStart)+1
endfunction

function setSelLenA(editHandle as integer,selectLen as dword)
  setSelLen editHandle,selectLen-getRichEditLineFromPos(editHandle,getSelStart(editHandle)+selectLen)+getRichEditLineNum(editHandle)
endfunction

function getRichEditLineNum(richEditHandle as integer)
  linenum as dword
  linenum = call dll(user32num,"SendMessageA",windowHandle(richEditHandle),0x436,0,getSelStart(richEditHandle))
  linenum = linenum+1
endfunction linenum

function getRichEditEndSelLineNum(richEditHandle as integer)
  linenum as dword
  linenum = call dll(user32num,"SendMessageA",windowHandle(richEditHandle),0x436,0,getSelStart(richEditHandle)+getSelLen(richEditHandle))
  linenum = linenum+1
endfunction linenum

function getRichEditLineFromPos(richEditHandle as integer,pos as dword)
  linenum as dword
  linenum = call dll(user32num,"SendMessageA",windowHandle(richEditHandle),0x436,0,pos)
  linenum = linenum+1
endfunction linenum

function setRichEditBuffer(richEditHandle as integer,buffer as dword)
  lresult as dword
  lresult = call dll(user32num,"SendMessageA",windowHandle(richEditHandle),0x435,0,buffer)
endfunction

function setRichEditUndos(richEditHandle as integer,undos as dword)
  lresult as dword
  lresult = call dll(user32num,"SendMessageA",windowHandle(richEditHandle),0x452,undos,0)
endfunction

function getTextModified(richEditHandle as integer)
  lresult as dword
  lresult = call dll(user32num,"SendMessageA",windowHandle(richEditHandle),0xB8,0,0)
endfunction lresult

function setTextModified(richEditHandle as integer,modified as boolean)
  lresult as dword
  lresult = call dll(user32num,"SendMessageA",windowHandle(richEditHandle),0xB9,modified,0)
endfunction

function setRichEditMode(richEditHandle as integer,multipleUndos as boolean,allowUnicodeSet as boolean)
  rem There must be no text in the edit box for this to work!!!
  lresult as dword
  lresult = call dll(user32num,"SendMessageA",windowHandle(richEditHandle),0xB9,20+4*multipleUndos+16*allowUnicodeSet,0)
endfunction

function getEditTopLineNum(editHandle as integer)
  linenum as dword
  linenum = call dll(user32num,"SendMessageA",windowHandle(editHandle),0xCE,0,0)
  linenum = linenum+1
endfunction linenum

function getEditNumLines(editHandle as integer)
  numlines as dword
  numlines = call dll(user32num,"SendMessageA",windowHandle(editHandle),0xBA,0,0)
endfunction numlines

+ Code Snippet

function getSelStartA(editHandle as integer)
  returnval as dword
  returnval = getSelStart(editHandle)+getRichEditLineNum(editHandle)-1
endfunction returnval

function getSelLenA(editHandle as integer)
  returnval as dword
  returnval = getSelLen(editHandle)+getRichEditEndSelLineNum(editHandle)-getRichEditLineNum(editHandle)
endfunction returnval

function setSelStartA(editHandle as integer,selectStart as dword)
  setSelStart editHandle,selectStart-getRichEditLineFromPos(editHandle,selectStart)+1
endfunction

function setSelLenA(editHandle as integer,selectLen as dword)
  setSelLen editHandle,selectLen-getRichEditLineFromPos(editHandle,getSelStart(editHandle)+selectLen)+getRichEditLineNum(editHandle)
endfunction

function getRichEditLineNum(richEditHandle as integer)
  linenum as dword
  linenum = call dll(user32num,"SendMessageA",windowHandle(richEditHandle),0x436,0,getSelStart(richEditHandle))
  linenum = linenum+1
endfunction linenum

function getRichEditEndSelLineNum(richEditHandle as integer)
  linenum as dword
  linenum = call dll(user32num,"SendMessageA",windowHandle(richEditHandle),0x436,0,getSelStart(richEditHandle)+getSelLen(richEditHandle))
  linenum = linenum+1
endfunction linenum

function getRichEditLineFromPos(richEditHandle as integer,pos as dword)
  linenum as dword
  linenum = call dll(user32num,"SendMessageA",windowHandle(richEditHandle),0x436,0,pos)
  linenum = linenum+1
endfunction linenum

function setRichEditBuffer(richEditHandle as integer,buffer as dword)
  lresult as dword
  lresult = call dll(user32num,"SendMessageA",windowHandle(richEditHandle),0x435,0,buffer)
endfunction

function setRichEditUndos(richEditHandle as integer,undos as dword)
  lresult as dword
  lresult = call dll(user32num,"SendMessageA",windowHandle(richEditHandle),0x452,undos,0)
endfunction

function getTextModified(richEditHandle as integer)
  lresult as dword
  lresult = call dll(user32num,"SendMessageA",windowHandle(richEditHandle),0xB8,0,0)
endfunction lresult

function setTextModified(richEditHandle as integer,modified as boolean)
  lresult as dword
  lresult = call dll(user32num,"SendMessageA",windowHandle(richEditHandle),0xB9,modified,0)
endfunction

function setRichEditMode(richEditHandle as integer,multipleUndos as boolean,allowUnicodeSet as boolean)
  rem There must be no text in the edit box for this to work!!!
  lresult as dword
  lresult = call dll(user32num,"SendMessageA",windowHandle(richEditHandle),0xB9,20+4*multipleUndos+16*allowUnicodeSet,0)
endfunction

function getEditTopLineNum(editHandle as integer)
  linenum as dword
  linenum = call dll(user32num,"SendMessageA",windowHandle(editHandle),0xCE,0,0)
  linenum = linenum+1
endfunction linenum

function getEditNumLines(editHandle as integer)
  numlines as dword
  numlines = call dll(user32num,"SendMessageA",windowHandle(editHandle),0xBA,0,0)
endfunction numlines

There are some other RichEdit functions in there. If you want to use them, or anything else from IonRay (The source is at http://forum.thegamecreators.com/?m=forum_view&b=8&t=57888&p=0 [although I had made some changes since that last official release]) feel free to take it.

Also, is there a WIP for your editor yet, or if not will there be one?

-Xol

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DLL Talk / BlueGui - Problem with SetSel Commands in TextEdit Box

Attachments

Attachments

Attachments

Attachments

Attachments