Family Historian User Group

Code: Select all

; ============ Start section where these key combinations only work within FHv7 popout windows with ahk_class #32770.
; Note FH popouts are difficult to control.
#IfWinActive, ahk_class #32770

; -------------------------------------------------------------------------------
; In Text boxes - paste unformatted text
; Note popout box changes depending on paste source, hence the 6 x "p" which should always land on Paste Unformatted Text.
^+V::Send {Click, , Right}pppppp{Enter}    ;shortcut ctrl+shift+V

; -------------------------------------------------------------------------------
; 
; ACTION - In the Note/Text from source etc box popout from Property Box, 
;          convert existing Rich Text to Plain Text.
;
; THIS IS TO EMULATE:
; - In the Note/Text from source etc box
; - ctrl+A > ctrl+C > delete (Copy all the note to clipboard and delete original)
; - ctrl+alt+double click to edit the rich text
; - untick the Rich Text box > OK to exit rich text box;
; - Paste unformatted text, which should remove all the rich text features
; - Open Rich Text popout to check "Rich Text" tick box is NOT ticked.
;
; INSTRUCTIONS (once setup very quick)
; - Ensure the OK button in the "Rich Text Editor" popout via "ctrl+shift+double click" lies within the underlying text box.
;       (resize and/or drag as required - once there it should stay there for the FH session)
; - Ensure the Note/Text from source etc box is the ACTIVE window and the mouse position is within it.
;       (simply click mouse anywhere in the box and do not move the mouse)
; - Use the shortcut ctrl+shift+U
; - It should end up displaying the Rich Text popout titled "Note", 
;       you can check the "Rich Text" tick box is NOT ticked,
;       if it still is, see LIMITATIONS below.
; - Esc or Cancel to finish
;
; LIMITATIONS
; - certain "modern characters (I suspect not ANSI) are not converted to unformatted text
;          these need to be manually altered/deleted, then try again.
; - The "Rich Text" tick box is click ON/OFF so in some circumstances may end up ticked, 
;          so, just do manual click to finish.

^+U::   ;shortcut ctrl+shift+U
ControlFocus, RICHEDIT50W1 , ahk_class #32770
Send ^a^c{del}                                   ; - ctrl+A > ctrl+C > delete (Copy all the note to clipboard and delete original)
Send {LAlt Down}{LControl Down}{Click, , Left}{Click, , Left}{LAlt Up}{LControl Up}     ; ctrl+alt+double click to edit the rich text

ControlFocus, Button1 , ahk_class #32770        ; select Rich Text button
send {space}                                    ; space to flip tick on Rich text button NOTE IT FLIPS
send !O                                         ; select button OK
send +{F10}                                     ; R click menu

;       Note popout box changes depending on paste source, hence the 6 x "p" which should always land on Paste Unformatted Text.
Send {Click, , Right}pppppp{Enter}

Send {LAlt Down}{LControl Down}{Click, , Left}{Click, , Left}{LAlt Up}{LControl Up}  ; back to Rich Text popout to check "Rich Text" tick box is NOT ticked
Return

#IfWinActive  ;  ========== end of FHv7 ahk_class #32770 popout windows ===========================================

Code: Select all

local dialog = iup.dialog{vboxForm; resize = 'YES', minbox = 'NO', maxbox = 'NO', border = 'NO',
	title = 'Rich Text Tabulation'}

Code: Select all

	Options.Specified.Size = size
	Options.Custom.Size = size

Code: Select all

	local tag = iup.GetText('Enter custom Rich Text tag', Options.Custom.Title or '')