Tdk161
Valued Contributor
Joined: 08 Feb 2005
Posts: 399
Location: ITALY
|
 Posted: Sat Jul 25, 2009 3:02 am Post subject: Create editor [SOLVED] |
 |
|
Hi Forum,
I need to build a simply editor using vdsobj extension
I would like this editor festure:
- insert an image
- intert text with different colour an font
- possibility to change font or colour of a selected text
I started to write this
but some thing I unknow how to make 
this is my sorce code
| Code: | Title Editor
External VdsObj.dll
#Define Command,Object
#Define Function,Object
%%Bold =
%%Italic =
%%Sottolinea =
DIALOG CREATE,Editor,-1,0,528,312,ONTOP,CLASS Principale
Object Class,Principale
OBJECT ADD,COLORCOMBO,COLORCOMBO1,3,289,180,26,,CLICK,SHOWCUSTOMCOLOR
OBJECT ADD,FONTCOMBO,FONTCOMBO1,5,95,180,26,Arial,CLICK,SHOWSAMPLES
DIALOG ADD,BITBTN,Bold,8,8,24,24,#BLD.BMP
DIALOG ADD,BITBTN,Italic,9,33,24,24,#ITL.BMP
DIALOG ADD,BITBTN,Sottolineato,8,60,24,24,#UNDRLN.BMP
# DIALOG ADD,LINE,LINE1,32,9,497,249
OBJECT ADD,RICHEDIT,RICHEDIT1,32,9,497,249,,WRAP,SCROLL,TABS
# DIALOG ADD,COMBO,Font,5,95,180,26
# DIALOG ADD,COMBO,Colore,3,289,180,26
DIALOG ADD,BUTTON,Esci,288,439,64,24,Esci
OBJECT FORMAT,RICHEDIT1,SETFONT,Arial,18,DKBLUE
DIALOG SHOW
:Loop
Wait Event
%e = @Event()
Goto %e
:BoldButton
Object Focus,Richedit1
%T = @OBJECT(SELPOS,Richedit1,SE)
#Info %t
Object Focus,Richedit1
Parse "%I;%F",%t
If @equal(%I,0)@equal(%F,0)@Equal(%I,%F)
%I =@len(@object(dlgtext,richedit1))
%F =@len(@object(dlgtext,richedit1))
End
Object Focus,Richedit1
If %%Bold
OBJECT FORMAT,RICHEDIT1,CLIPBOARD,SELECT,%I,%F)
OBJECT FORMAT,RICHEDIT1,BOLD,OFF
Else
OBJECT FORMAT,RICHEDIT1,CLIPBOARD,SELECT,%I,%F)
OBJECT FORMAT,RICHEDIT1,BOLD,ON
End
%%Bold = @Not(%%Bold)
Object Focus,Richedit1
Goto Loop
:FontCombo1Click
:ColorCombo1Click
%F = @object(item,fontcombo1)
%C = @object(item,colorcombo1)
OBJECT FORMAT,RICHEDIT1,CLIPBOARD,SELECT,@len(@object(dlgtext,richedit1)),@len(@object(dlgtext,richedit1))
OBJECT FORMAT,RICHEDIT1,SETFONT,%F,14,%C
goto Loop
Object Focus,Richedit1
%T = @OBJECT(SELPOS,Richedit1,SE)
#Info %t
Object Focus,Richedit1
Parse "%I;%F",%t
If @equal(%I,0)@equal(%F,0)@Equal(%I,%F)
%I =@len(@object(dlgtext,richedit1))
%F =@len(@object(dlgtext,richedit1))
End
Object Focus,Richedit1
If %%Bold
OBJECT FORMAT,RICHEDIT1,CLIPBOARD,SELECT,%I,%F)
OBJECT FORMAT,RICHEDIT1,BOLD,OFF
Else
OBJECT FORMAT,RICHEDIT1,CLIPBOARD,SELECT,%I,%F)
OBJECT FORMAT,RICHEDIT1,BOLD,ON
End
%%Bold = @Not(%%Bold)
Object Focus,Richedit1
Goto Loop
:EsciButton
:Close
Object Remove,RichEdit1
Object Remove,ColorCombo1
Object Remove,FontCombo1
Stop |
Someone can help me please?
I need this editor to insert in a program I'm making
Many tnx in advance for any info or help
Last edited by Tdk161 on Sat Nov 13, 2010 3:48 pm; edited 1 time in total |
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
@vdsworld