| View previous topic :: View next topic |
| Author |
Message |
Serge
Professional Member
Joined: 04 Mar 2002
Posts: 1480
Location: Australia
|
 Posted: Fri Jan 03, 2003 8:10 am Post subject: |
 |
|
the reason why these 2 lines are remmed is because the timer code that cnodnarb gave me was in the vds 3.x code and i wanted to check that i could implement the same changes into the vds 4.x code before deleting these 2 lines...and then i forgot to delete them when i found that i had implemented the code ok.
Interesting comment dr dread, the code works fine on my ME system - may be under xp or w2k, the api codes returned are different.
Would you like me to return the code to what i had as that involved no api calls and it should work just fine...
Pity it doesn't work because cnodnarb idea was great in that you could "press" the up button and see the character move up - as opposed to repeatedly clicking it.
Serge
_________________
|
|
| Back to top |
|
 |
Dr. Dread
Professional Member
Joined: 03 Aug 2001
Posts: 1065
Location: Copenhagen, Denmark
|
| Posted: Fri Jan 03, 2003 9:25 am Post subject: |
|
|
Perhaps you could do something like this instead, if API return codes are different on various systems:
| Code: |
%%check = @sendmsg(@win(~up_button),$0F2,0,0)
if @not(@equal(%%check,0))
dialog setpos,text1,@fsub(@dlgpos(text1,t),2),,,
end
|
Greetz
Dread
_________________
~~ Alcohol and calculus don't mix... Don't drink and derive! ~~
String.DLL * advanced string processing |
|
| Back to top |
|
|
Serge
Professional Member
Joined: 04 Mar 2002
Posts: 1480
Location: Australia
|
| Posted: Fri Jan 03, 2003 9:43 am Post subject: |
|
|
Interesting idea dr dread but as soon as i click on the up button, it starts moving up and i can't stop it anymore - may be it needs a bit of refining...
Serge
_________________
|
|
| Back to top |
|
|
Dr. Dread
Professional Member
Joined: 03 Aug 2001
Posts: 1065
Location: Copenhagen, Denmark
|
| Posted: Fri Jan 03, 2003 9:55 am Post subject: |
|
|
How about this one then:
| Code: |
%%check = @sendmsg(@win(~up_button),$0F2,0,0)
if @both(@not(@equal(%%check,0)),@not(@equal(%%check,8)))
dialog setpos,text1,@fsub(@dlgpos(text1,t),2),,,
end
|
Greetz
Dread
_________________
~~ Alcohol and calculus don't mix... Don't drink and derive! ~~
String.DLL * advanced string processing |
|
| Back to top |
|
|
Serge
Professional Member
Joined: 04 Mar 2002
Posts: 1480
Location: Australia
|
| Posted: Fri Jan 03, 2003 1:18 pm Post subject: |
|
|
well done, dr dread! this one works fine...except that...when you do a single click, it sometimes does not move up or down...but...otherwise it works just great 
i've included the amended code below,
| Code: |
%%title = >A Better Character Map
%%version = 1.00
%%date = January 2003
option scale, 96
option decimalsep,"."
Title %%title %%version, Copyright Serge M Botans %%date
DIALOG CREATE,%%title %%version,-1,0,700,540
DIALOG ADD,STATUS,STATUS1,
DIALOG ADD,LIST,LIST1,10,10,160,500,Font List,CLICK,SORTED
DIALOG ADD,LIST,LIST2,10,180,25,500,Font Size,CLICK
DIALOG ADD,BUTTON,UP_BUTTON,440,485,90,30,Move &Up
DIALOG ADD,BUTTON,DOWN_BUTTON,480,485,90,30,Move &Down
DIALOG ADD,BUTTON,CANCEL,440,605,90,30,&Quit
DIALOG ADD,TEXT,ABOUT_T,488,635,60,20,About,,HAND,CLICK
rem === lists the fonts in the windows font folder ===
if @equal(@name(@sysinfo(winver)),5)
LIST REGVALS,list1,LOCAL,Software\Microsoft\Windows NT\CurrentVersion\Fonts
elsif @equal(@name(@sysinfo(winver)),4)
LIST REGVALS,list1,LOCAL,Software\Microsoft\Windows\CurrentVersion\Fonts
end
rem === removes things like (true type) from listing
%i = 0
repeat
list seek, list1, %i
%%dummy = @item(list1)
%%dummy = @substr(%%dummy,1,@fsub(@pos((,%%dummy),1))
list put, list1, %%dummy
%i = @succ(%i)
until @equal(%i,@count(list1))
rem === adds font size to list 2 ===
%i = 6
repeat
list add, list2, %i
%i = @succ(%i)
until @equal(%i,44)
rem === displays first font on list and completes the display of the interface ===
list seek, list1, 0
list seek, list2, 10
dialog add,style,style1,@item(list1),16
dialog add,style,styles1,@item(list1),60
dialog set, status1, Current Font is @item(list1)
%%style_index = 1
%%start = yes
dialog disable, up_button
dialog disable, down_button
gosub draw_buttonsSUB
dialog show
%%start = no
:timer
%%check = @sendmsg(@win(~up_button),$0F2,0,0)
if @both(@not(@equal(%%check,0)),@not(@equal(%%check,8)))
dialog setpos,text1,@fsub(@dlgpos(text1,t),2),,,
end
%%check = @sendmsg(@win(~down_button),$0F2,0,0)
if @both(@not(@equal(%%check,0)),@not(@equal(%%check,8)))
dialog setpos,text1,@fadd(@dlgpos(text1,t),2),,,
end
:evloop
wait event,.1
%%event = @event()
if @greater(@pos(up,%%event),0)
goto %%event
elsif @greater(@pos(down,%%event),0)
goto %%event
elsif @greater(@pos(cancel,%%event),0)
goto %%event
elsif @greater(@pos(button,%%event),0)
%%dummy = @strdel(%%event,1,6)
%%dummy = @substr(%%dummy,1,@fsub(@pos(button,%%dummy),1))
if @equal(%%dummy,38)
dialog set, text1, &&
else
dialog set, text1, @chr(%%dummy)
end
dialog set, status1, Current Font is @item(list1) <> This is CHR(%%dummy) <> @chr(%%DUMMY) has been copied to the clipboard.
clipboard set, @chr(%%dummy)
%%move_flag = yes
dialog enable, up_button
dialog enable, down_button
else
goto %%event
end
goto evloop
:list2CLICK
:list1CLICK
%%style_index = @succ(%%style_index)
dialog disable, up_button
dialog disable, down_button
dialog add,style,style%%style_index,@item(list1),@item(list2)
dialog add,style,styles%%style_index,@item(list1),60
clipboard clear
dialog set,text1,
dialog set, status1, Current Font is @item(list1)
gosub draw_buttonsSUB
goto evloop
:up_buttonBUTTON
rem dialog setpos,text1,@fsub(@dlgpos(text1,t),2),,,
goto evloop
:down_buttonBUTTON
rem dialog setpos,text1,@fadd(@dlgpos(text1,t),2),,,
goto evloop
:about_tCLICK
%%about_1 = This program is free for you to use.
%%about_2 = E-Mail: sergeb"@"alphalink.com.au@CR()@CR()Web Site: www.alphalink.com.au/~sergeb
%%about_3 = Copyright © Serge M Botans@CR()Melbourne Australia@CR()%%date@CR()All Rights Reserved
info %%about_1@CR()@CR()%%about_2@CR()@CR()%%about_3
goto evloop
:Close
:cancelBUTTON
exit
:draw_buttonsSUB
rem === draws the buttons ===
%j = 2
%%y_position = 10
repeat
%i = 1
%%x_position = 185
repeat
%%x_position = @fadd(%%x_position,30)
%%button_index = @fadd(@fmul(%j,16),%i)
if @equal(%%start,no)
dialog remove, button%%button_index
end
DIALOG ADD,BUTTON,BUTTON%%button_index,%%y_position,%%x_position,30,30,@chr(@fadd(@fmul(%j,16),%i)),,style%%style_index
if @equal(%%button_index,38)
dialog set, button38, &&
end
%i = @succ(%i)
until @equal(%i,17)
%%y_position = @fadd(%%y_position,30)
%j = @succ(%j)
until @equal(%j,16)
dialog set, button256,
dialog disable, button256
if @equal(%%start,no)
dialog remove, text1
end
dialog add,text,text1,430,390,100,100,,,styles%%style_index
exit
|
Serge
_________________
|
|
| Back to top |
|
|
Rubes_sw
Valued Contributor
Joined: 11 Jun 2001
Posts: 625
Location: Northern Ireland
|
| Posted: Fri Jan 03, 2003 1:46 pm Post subject: |
|
|
How about adding the ability to click on the character and it will also show the @chr() (VDS Code) for it !
Nathan |
|
| Back to top |
|
|
cnodnarb
Professional Member
Joined: 11 Sep 2002
Posts: 763
Location: Eastman, GA
|
| Posted: Fri Jan 03, 2003 2:22 pm Post subject: |
|
|
Thanx Dr. Dread!! I have to go update a few projects now 
NodNarb |
|
| Back to top |
|
|
Serge
Professional Member
Joined: 04 Mar 2002
Posts: 1480
Location: Australia
|
| Posted: Fri Jan 03, 2003 10:22 pm Post subject: |
|
|
Hi Rubes_sw,
the @chr() value of a character is displayed in the status bar when you click on it (it is displayed as CHR() ) - and as an added feature, the character is itself automatically also copied to the clipboard when you click on it.
Is that what you were after - the CHR() bit in the status bar?
Serge
ps feel free to change to code to suit your needs if you want to...
_________________
|
|
| Back to top |
|
|
|
|
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You can attach files in this forum
You can download files in this forum
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
@vdsworld