Text running on columns

[myspacee]

Hello,

need a tool for job to count how many text i write and simulate effect on paper.

Is possible to jump on another column when reach bottom of previus one ?

And, On post image (modified), on avarage every columns contain 30 characters of text,

is possibile to set a limit for rows?

Thank you for any help,

m.

[water]

Yes, it is possible!

Seriously, we need more information before we can tell you if it is possible and how to do.

Can you post the code you have so far?

[myspacee]

Thank you for reply,

don't post code because is only a simple Koda example:

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 626, 449, 192, 114)
$Edit1 = GUICtrlCreateEdit("", 8, 16, 200, 409)
GUICtrlSetData(-1, "Edit1")
$Edit2 = GUICtrlCreateEdit("", 213, 16, 200, 409)
GUICtrlSetData(-1, "Edit1")
$Edit3 = GUICtrlCreateEdit("", 417, 16, 200, 409)
GUICtrlSetData(-1, "Edit1")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd

I take an image and modify it to better explain my idea. Have no sufficent skill to create my own...

This tool can semplify a lot way to work,

m.

[water]

What you try to do is not easy to code. I'm not sure the Edit control is the best solution. But as I have never done something similar myself I hope some other users jump in and add their knowledge.

[jdelaney]

Just throwing out an idea, probably a good to use a unicode text, so once a character limit is hit (you will have to find it, and consider word wraps/CR/LF/Tab that take up additional characters), then use a regexp to move the last word over to the other column, and shift focus as well

Edited November 29, 2012 by jdelaney

[kylomas]

myspacee,

Are you trying to flow the columns automatically as the user types (like a news letter)?

kylomas

[kylomas]

@jdelaney - why regexp to move the last word typed?

@myspacee - Rich text edit controls can be queried for the number of lines in the control. Following what jdelaney said, you can monitor the control and switch focus at some pre-set limit. I have no experience with this but would look at doing it this way. There is also an event handler that may be an option, you'll need to do some research / experimentation.

kylomas

[jdelaney]

regexp to move last word, so one word isn't split into two (if monitoring for character count)

Edited November 29, 2012 by jdelaney

[kylomas]

@jdelaney - of course, too much time spent on 6 word stories!

[kylomas]

myspacee,

Sorry, it looks like there is an outstanding problem with creating multiple rich edit controls within one window.

kylomas

[BrewManNH]

There is an easy fix for the RichEdit control issue.

Try this, open the GUIRichEdit.au3 file, navigate to the _GUICtrlRichEdit_Create function in it, and comment out the second line in the function.

; comment out or delete this line from the UDF
If Not _WinAPI_IsClassName($hWnd, $_GRE_sRTFClassName) Then Return SetError(1, 0, 0) ; Invalid Window handle for _GUICtrlRichEdit_Create 1st parameter
; replace it with this line instead
If Not IsHWnd($hWnd) Then Return SetError(1, 0, 0) ; Invalid Window handle for _GUICtrlRichEdit_Create 1st parameter

I just posted this in another thread where someone was having an issue with creating multiple RichEdit controls, this fixes it.

[kylomas]

@BremanNH - thanks, never used one of these so this thread interests me

edit: works perfectly

Edited November 29, 2012 by kylomas

[Mat]

Might be worth seeing whether microsofts richedit control actually implements the microsoft rtf specification. If it does then there is actually a snaking columns property for sections.

Search this page for "colsN" to see what I mean: http://msdn.microsoft.com/en-us/library/office/aa140283(v=office.10).aspx#rtfspec_19

[kylomas]

myspacee,

This will get you started. You figure out how to cross columns without splitting words, what to do when you run out of room and how to "simulate effect on paper" (whatever that means?).

The code is rough but you need something to do too!

#Include <GUIConstants.au3>
#Include <EditConstants.au3>
#Include <WindowsConstants.au3>
local $gui010 = GUICreate(@scriptfullpath,910,700)
local $col010  =  GUICtrlCreateedit('', 10, 30, 290, 600, $es_wantreturn)
local $col020  =  GUICtrlCreateedit('',310, 30, 290, 600, $es_wantreturn)
local $col030  =  GUICtrlCreateedit('',610, 30, 290, 600, $es_wantreturn)
local $lbl010  =  GUICtrlCreatelabel('',10, 650, 290, 30, $es_wantreturn)
     GUIRegisterMsg($WM_COMMAND, 'WM_COMMAND')
     GUISetState()
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
Func WM_COMMAND($hWnd, $iMsg, $wParam, $lParam)
    local $ctrl = BitAND($wParam, 0xFFFF)
 local $nmsg = BitShift($wParam, 16)
 Switch $nmsg
  Case $EN_change
   ;
   ; This notification happens after every char.  Might be used to make sure that words are not split across columns.
   ;
        Case $EN_maxtext
   switch $ctrl
    ;
    ; the controls are hardcoded.  For greater flexability put them in an array and use +/- navigation
    ;
    case $col010
     guictrlsetstate($col020,$gui_focus)
    case $col020
     guictrlsetstate($col030,$gui_focus)
    case $col030
     guictrlsetdata($lbl010,'No More Room To Type')
   endswitch
    EndSwitch
    Return $GUI_RUNDEFMSG
EndFunc

kylomas

[kylomas]

I'm not sure what just happenned, the forum went "gomer-ific" on me when I tried to post. The following is the code

#Include <GUIConstants.au3>
#Include <EditConstants.au3>
#Include <WindowsConstants.au3>
local $gui010 = GUICreate(@scriptfullpath,910,700)
local $col010  =  GUICtrlCreateedit('', 10, 30, 290, 600, $es_wantreturn)
local $col020  =  GUICtrlCreateedit('',310, 30, 290, 600, $es_wantreturn)
local $col030  =  GUICtrlCreateedit('',610, 30, 290, 600, $es_wantreturn)
local $lbl010  =  GUICtrlCreatelabel('',10, 650, 290, 30, $es_wantreturn)
     GUIRegisterMsg($WM_COMMAND, 'WM_COMMAND')
     GUISetState()
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
Func WM_COMMAND($hWnd, $iMsg, $wParam, $lParam)
    local $ctrl = BitAND($wParam, 0xFFFF)
 local $nmsg = BitShift($wParam, 16)
 Switch $nmsg
  Case $EN_change
   ;
   ; This notification happens after every char.  Might be used to make sure that words are not split across columns.
   ;
        Case $EN_maxtext
   switch $ctrl
    ;
    ; the controls are hardcoded.  For greater flexability put them in an array and use +/- navigation
    ;
    case $col010
     guictrlsetstate($col020,$gui_focus)
    case $col020
     guictrlsetstate($col030,$gui_focus)
    case $col030
     guictrlsetdata($lbl010,'No More Room To Type')
   endswitch
    EndSwitch
    Return $GUI_RUNDEFMSG
EndFunc

[Mat]

Looks like someone has been fiddling with the code boxes and forgotten to close an element somewhere

[kylomas]

@mat - I'm sure that I put in a closing code box, if that's what you mean.

kylomas

[Mat]

@mat - I'm sure that I put in a closing code box, if that's what you mean.

kylomas

It's not a problem you should be able to close... But I can't seem to reproduce it now. I tried to copy the code and it worked fine: http://www.autoitscript.com/forum/topic/98043-test-thread/page__st__300#entry1034913

I meant that the html is missing an end tag for the code box, so eats the next few elements

Edit: I think perhaps you were posting while the greaters powers were adding an expand button, and they have now rolled back the changes? Your AutoIt box has one, which wasn't there in older posts, and isn't there now.

Edited November 30, 2012 by Mat

[kylomas]

@mat - I still cannot see the code that I posted...where did you get it?

[Mat]

@mat - I still cannot see the code that I posted...where did you get it?

Replying to your post It looks messed up over here as well.