hi,
i already find a forum that discussed about the spell check in oracle form and i got this syntax/code (below) , but i have a problem about it .. when for example I type like this :
hello
world
i'm Anne
after the spell check it will return to my textbox as this :
helloworldI'mAnne
can anyone help me how to return it in the same format after the spell check:
hello
world
I'm Anne
-------
-- this is the code
DECLARE
-- Declare the OLE object
application OLE2.OBJ_TYPE;
-- Declare handle to the OLE argument list
args OLE2.LIST_TYPE;
-- Declare a temporary local variable for returned text
sel_text long(30000);
BEGIN
-- Start WordBasic
application:=OLE2.CREATE_OBJ('Word.Basic');
-- Create a temporary document to do the spell check in
OLE2.INVOKE(application, 'FileNew');
-- Insert the text of field CONTROL.LONGFIELD into temporary document
args:=OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(args, :memo);
OLE2.INVOKE(application, 'Insert', args);
OLE2.DESTROY_ARGLIST(args);
-- Invoke the spell checker
OLE2.INVOKE(application, 'ToolsSpelling');
-- Return corrected text to Oracle Forms
OLE2.INVOKE(application, 'EditSelectAll');
sel_text :=OLE2.GET_CHAR_PROPERTY(application, 'Selection');
MESSAGE(sel_text);
MESSAGE(sel_text);
-- :memo is my textbox
:memo:= sel_text;
--Release the OLE object
OLE2.RELEASE_OBJ(application);
args := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG( args, 2 );
OLE2.INVOKE( application, 'FileClose', args );
OLE2.DESTROY_ARGLIST( args );
end;
thanks
jhoann
i already find a forum that discussed about the spell check in oracle form and i got this syntax/code (below) , but i have a problem about it .. when for example I type like this :
hello
world
i'm Anne
after the spell check it will return to my textbox as this :
helloworldI'mAnne
can anyone help me how to return it in the same format after the spell check:
hello
world
I'm Anne
-------
-- this is the code
DECLARE
-- Declare the OLE object
application OLE2.OBJ_TYPE;
-- Declare handle to the OLE argument list
args OLE2.LIST_TYPE;
-- Declare a temporary local variable for returned text
sel_text long(30000);
BEGIN
-- Start WordBasic
application:=OLE2.CREATE_OBJ('Word.Basic');
-- Create a temporary document to do the spell check in
OLE2.INVOKE(application, 'FileNew');
-- Insert the text of field CONTROL.LONGFIELD into temporary document
args:=OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(args, :memo);
OLE2.INVOKE(application, 'Insert', args);
OLE2.DESTROY_ARGLIST(args);
-- Invoke the spell checker
OLE2.INVOKE(application, 'ToolsSpelling');
-- Return corrected text to Oracle Forms
OLE2.INVOKE(application, 'EditSelectAll');
sel_text :=OLE2.GET_CHAR_PROPERTY(application, 'Selection');
MESSAGE(sel_text);
MESSAGE(sel_text);
-- :memo is my textbox
:memo:= sel_text;
--Release the OLE object
OLE2.RELEASE_OBJ(application);
args := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG( args, 2 );
OLE2.INVOKE( application, 'FileClose', args );
OLE2.DESTROY_ARGLIST( args );
end;
thanks
jhoann