IDE 3.0 TEST XI (OTHER OTHER UPDATE)

[Roberto Lopez]

Hello Maestro

First a lot of thanks for this quick advances.

Modified Turkish language file attached (contains other corrections than Msg. 283)

And a little point about saving preferences:

When confirmed Tools\Preferences\Module Editor or HMG folder option (other than languages) this message came :

You must restart HMG-IDE for language changes has effect.

Best Regards

--

Esgici

Thanks.

[luisvasquezcl]

efectivamente era ese el problema, pero es extraño ya que copie los archivos que venian en la distribución....
bueno, agregué el english.lng y funciono bien.
gracias.
Luis Vasquez

[Vanguarda]

Hi all,

At first, sorry my delay to response.

Thanks Master for this new release. The function "Copy To" work fine with spaces.
I did a little fix on line 283 of PtBR.LNG Please so kindly replace it.

I´m still testing....

My best regards,

PS: Sorry my bad english

[Roberto Lopez]

Hi all,

At first, sorry my delay to response.

Thanks Master for this new release. The function "Copy To" work fine with spaces.
I did a little fix on line 283 of PtBR.LNG Please so kindly replace it.

I´m still testing....

My best regards,

PS: Sorry my bad english

Thanks!

[mol]

I thought about quotes and backslash in path. It could be added by IDE - each paths may be enclosed in quotes - or have spaces or not.
Backslash could be added by IDE if this sign doesn't end path.
Thew problem with long message disppear

Regards, Marek

[mol]

I report report browser can be closed by ALT-F4. It causes error after...

[sudip]

Hello Master Roberto,
Thanks a lot.
I am testing after a few days. So, there may be something which I have missed
IMHO, it will be very good if we can convert old HMG projects (2.x.x) with IDE easily. Again, I don't find 'Add Form' in 'Project' menu.
Please correct me if I am wrong.
With best regards.
Sudip

[gfilatov]

Message #283 should be:
"Zakończ znakiem '\'. Zawrzyj w cudzysłowy, jeśli zawiera spacje."

This message doesn't fit in the available space (an InputBox label).
...

Hi Roberto,

I have a humble solution for aboved problem: this is a changeable InputBox window with autosized description label (and fixed minimal window's sizes).
Please be so kind to take a look for updated code:

Code: Select all

*-----------------------------------------------------------------------------*
Function InputBox ( cInputPrompt , cDialogCaption , cDefaultValue , nTimeout , cTimeoutValue , lMultiLine )
*-----------------------------------------------------------------------------*

	Local RetVal , mo

	DEFAULT cInputPrompt	TO ""
	DEFAULT cDialogCaption	TO ""
	DEFAULT cDefaultValue	TO ""

	RetVal := ''

	If ValType (lMultiLine) != 'U'
		If lMultiLine == .T.
			mo := 150
		Else
			mo := 0
		EndIf
	Else
		mo := 0
	EndIf

	DEFINE WINDOW _InputBox 		;
		AT 0,0 				;
		WIDTH 350 			;
		HEIGHT 115 + mo	+ GetTitleHeight() ;
		TITLE cDialogCaption  		;
		MODAL 				;
		ON SIZE _InputBoxAdjust()	;
		FONT 'Arial'			;
		SIZE 10

		ON KEY CONTROL+W ACTION ( _HMG_SYSDATA [ 257 ] := .F. , RetVal := _InputBox._TextBox.Value , _InputBox.Release ) 
		ON KEY ESCAPE ACTION ( _HMG_SYSDATA [ 257 ] := .T. , _InputBox.Release )

		@ 07,10 LABEL _Label		;
			VALUE cInputPrompt	;
			AUTOSIZE
// JK
                If ValType (lMultiLine) != 'U' .and. lMultiLine == .T.
                @ 30,10 EDITBOX _TextBox	;
			VALUE cDefaultValue	;
			HEIGHT 26 + mo		;
			WIDTH 320		
                else
		@ 30,10 TEXTBOX _TextBox	;
			VALUE cDefaultValue	;
			HEIGHT 26 + mo		;
			WIDTH 320		;
			ON ENTER ( _HMG_SYSDATA [ 257 ] := .F. , RetVal := _InputBox._TextBox.Value , _InputBox.Release )

                endif
// 
		@ 67+mo,120 BUTTON _Ok		;
			CAPTION if( Set ( _SET_LANGUAGE ) == 'ES', 'Aceptar' ,'Ok' )		;
			ACTION ( _HMG_SYSDATA [ 257 ] := .F. , RetVal := _InputBox._TextBox.Value , _InputBox.Release ) 

		@ 67+mo,230 BUTTON _Cancel		;
			CAPTION if( Set ( _SET_LANGUAGE ) == 'ES', 'Cancelar', 'Cancel'	);
			ACTION   ( _HMG_SYSDATA [ 257 ] := .T. , _InputBox.Release )

			If ValType (nTimeout) != 'U'

				If ValType (cTimeoutValue) != 'U'

					DEFINE TIMER _InputBox ;
					INTERVAL nTimeout ;
					ACTION  ( RetVal := cTimeoutValue , _InputBox.Release ) 

				Else

					DEFINE TIMER _InputBox ;
					INTERVAL nTimeout ;
					ACTION _InputBox.Release

				EndIf
	
			EndIf

	END WINDOW

	If _InputBox._Label.Width > 280
		_InputBox.Width := _InputBox._Label.Width + 35
	EndIf

	_InputBox._TextBox.SetFocus 

	CENTER WINDOW _InputBox

	ACTIVATE WINDOW _InputBox	

Return ( RetVal )
*-----------------------------------------------------------------------------*
Static Procedure _InputBoxAdjust()
*-----------------------------------------------------------------------------*
Local nWidth  := _InputBox.Width
Local nHeight := _InputBox.Height
Local nTitleH := GetTitleHeight()

	If nWidth < 350
		_InputBox.Width := 350
		Return
	EndIf

	If nHeight < 115 + nTitleH
		_InputBox.Height := 115 + nTitleH
		Return
	EndIf

	_InputBox._TextBox.Width  := nWidth  - 30
	_InputBox._TextBox.Height := nHeight - 89 - nTitleH

	_InputBox._Ok.Row         := nHeight - 48 - nTitleH
	_InputBox._Ok.Col         := nWidth  - 230

	_InputBox._Cancel.Row     := nHeight - 48 - nTitleH
	_InputBox._Cancel.Col     := nWidth  - 120

Return

[mol]

I think it's good idea to make Inputbox more flexible.

[Roberto Lopez]

I thought about quotes and backslash in path. It could be added by IDE - each paths may be enclosed in quotes - or have spaces or not.
Backslash could be added by IDE if this sign doesn't end path.
Thew problem with long message disppear

Regards, Marek

A good example of 'lateral thinking'

I've wondered about that, but I'm a lazy man