KiXforms Forum Index KiXforms
The Forum for the KiXforms Community
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 
 Quick Links 
Site News
Downloads
Documentation
Donations
Script Archive
Tracking Systems

Update - Kixforms Classic
Goto page Previous  1, 2, 3, 4, 5, 6  Next
 
Post new topic   Reply to topic    KiXforms Forum Index -> Discussion
View previous topic :: View next topic  
Author Message
pearly
KiXforms Aficionado
KiXforms Aficionado


Joined: 27 Jan 2004
Posts: 332

PostPosted: Fri May 05, 2006 10:49 pm    Post subject: Reply with quote

Les wrote:
Code:
$Time=@Time
$Time = Join(Split($Time,':'),'')
$Time ?


i like your code better, thanks Wink
Back to top
View user's profile Send private message
pearly
KiXforms Aficionado
KiXforms Aficionado


Joined: 27 Jan 2004
Posts: 332

PostPosted: Fri May 05, 2006 10:54 pm    Post subject: Reply with quote

Umm, Shawn. Did you intentionally put the KiXforms.NET chm in with the latest kf classic dev build?

file size before : 319kb

new file size : 980kb
Back to top
View user's profile Send private message
Shawn
KiXforms Developer
KiXforms Developer


Joined: 22 Feb 2003
Posts: 1983
Location: Canada

PostPosted: Fri May 05, 2006 11:16 pm    Post subject: Reply with quote

eek - lol - ok, been a long day - thanks.

k - fixed.
Back to top
View user's profile Send private message
krabourn
KiXforms Aficionado
KiXforms Aficionado


Joined: 05 Mar 2003
Posts: 273
Location: San Antonio. TX

PostPosted: Mon May 08, 2006 6:18 pm    Post subject: System.Application.DoEvents appears to be broke Reply with quote

System.Application.DoEvents appears to be broke. Buttons don't work, tabs are changing but not firing off events.

Code:
WHILE $frmWMA.Visible
   $Nul = Execute($System.Application.DoEvents())
LOOP


Form.DoEvents works.
Code:
WHILE $frmWMA.Visible
   $Nul = Execute($frmWMA.DoEvents())
LOOP


Is System.Application.DoEvents being depreciated? It has been too long. I forget why I changed and what the differences are at this point.

_________________
Kelly
Back to top
View user's profile Send private message Send e-mail MSN Messenger
Shawn
KiXforms Developer
KiXforms Developer


Joined: 22 Feb 2003
Posts: 1983
Location: Canada

PostPosted: Mon May 08, 2006 7:33 pm    Post subject: Reply with quote

I just posted a new dev. build - give it a try and advise. Will explain what happened to the Application object later tonight.
Back to top
View user's profile Send private message
krabourn
KiXforms Aficionado
KiXforms Aficionado


Joined: 05 Mar 2003
Posts: 273
Location: San Antonio. TX

PostPosted: Mon May 08, 2006 8:25 pm    Post subject: Reply with quote

Shawn

The ZIP file I download is bad.

_________________
Kelly
Back to top
View user's profile Send private message Send e-mail MSN Messenger
pearly
KiXforms Aficionado
KiXforms Aficionado


Joined: 27 Jan 2004
Posts: 332

PostPosted: Mon May 08, 2006 8:40 pm    Post subject: Reply with quote

krabourn wrote:
Shawn

The ZIP file I download is bad.


I can confirm that. I'm also getting an unexpected error when opening the zip file.
Back to top
View user's profile Send private message
Shawn
KiXforms Developer
KiXforms Developer


Joined: 22 Feb 2003
Posts: 1983
Location: Canada

PostPosted: Mon May 08, 2006 9:33 pm    Post subject: Reply with quote

k, try again.
Back to top
View user's profile Send private message
pearly
KiXforms Aficionado
KiXforms Aficionado


Joined: 27 Jan 2004
Posts: 332

PostPosted: Tue May 09, 2006 12:33 am    Post subject: Reply with quote

Is there any way to implement scroll feature within a multi-line textbox?

Here's an example : http://www.kixforms.com/cgi-bin/bts/bts.pl?action=add

From our very own website Wink
Back to top
View user's profile Send private message
Shawn
KiXforms Developer
KiXforms Developer


Joined: 22 Feb 2003
Posts: 1983
Location: Canada

PostPosted: Tue May 09, 2006 1:24 am    Post subject: Reply with quote

If I get your meaning, you can kinda already do that, here is a scriptlet:

Code:

Break On

$System = CreateObject("Kixtart.System")

$Form = $System.Form()
$Form.Text = "Form1"
$Form.Size = 400,400
$Form.FontSize = 12

$TextBox = $Form.Controls.Add("TextBox")
$TextBox.Size = 200,200
$TextBox.MultiLine = 2
$TextBox.Center
$Textbox.Text = PoemText()
$TextBox.TextAlign = 2
$TextBox.SelectionStart = 0
$TextBox.SelectionLength = 0
$TextBox.BackColor = "Black"
$TextBox.ForeColor = "PaleGreen"

$Timer = $System.Timer
$Timer.Interval = 500
$Timer.OnTick = "Timer_Tick()"

$Form.Center
$Form.Show
$Timer.Start

While $Form.Visible
 $= Execute($System.Application.DoEvents())
Loop

Exit 0

Function Timer_Tick()

 $TextBox.SelectionStart = $TextBox.SelectionStart + InStr(SubStr($TextBox.Text,$TextBox.SelectionStart+1),@CRLF)
 $TextBox.ScrollToCaret

EndFunction

Function PoemText()
$PoemText = '
The Unicorns Ride

Over your rainbow
A unicorn flew,
He was sent to find me...
He said by you.
"Climb aboard", he whispered,
"We must go for a ride..."
And into a portal of light
We rode inside.
The sky was so blue,
The fields so green,
With each explosion of light
Was a wonderful scene.
So happy we seem
And always together,
There was no end to your dream,
It just went on forever.
Then the unicorn said
"I have one more surprise..."
So we took off quickly
And pierced the sky.
Then I saw you sleeping
And dreaming in your bed...
I caressed your hair gently
And kissed you on your head.
The unicorn interrupted...
"I must now get you home,
But now that you have seen her dream,
May you never feel alone."
My heart is feeling heavy,
A fire burns inside.
Thank you so much my darling
For the unicorns ride.

- Eric R. Hughes -
'
$PoemText = Join(Split($PoemText,CHR(10)),@CRLF)

EndFunction
Back to top
View user's profile Send private message
pearly
KiXforms Aficionado
KiXforms Aficionado


Joined: 27 Jan 2004
Posts: 332

PostPosted: Tue May 09, 2006 1:34 am    Post subject: Reply with quote

Yes, currently I have to put focus on the multi-textbox and drag the mouse down. However, is there any way to implement a vertical scrollbar?

I never knew about OnTick event, cool ! Very Happy
Back to top
View user's profile Send private message
Shawn
KiXforms Developer
KiXforms Developer


Joined: 22 Feb 2003
Posts: 1983
Location: Canada

PostPosted: Tue May 09, 2006 1:39 am    Post subject: Reply with quote

This should work:

$TextBox.ScrollBars = "Vertical"

or this:

$TextBox.ScrollBars = "Both"
Back to top
View user's profile Send private message
pearly
KiXforms Aficionado
KiXforms Aficionado


Joined: 27 Jan 2004
Posts: 332

PostPosted: Tue May 09, 2006 2:06 am    Post subject: Reply with quote

Shawn wrote:
This should work:

$TextBox.ScrollBars = "Vertical"

or this:

$TextBox.ScrollBars = "Both"


Wow, I continue to learn things everyday. Thanks!
Back to top
View user's profile Send private message
Shawn
KiXforms Developer
KiXforms Developer


Joined: 22 Feb 2003
Posts: 1983
Location: Canada

PostPosted: Tue May 09, 2006 2:13 am    Post subject: Reply with quote

You prolly will have to set WordWrap=0 to get the horizontal scrollbar to appear.
Back to top
View user's profile Send private message
krabourn
KiXforms Aficionado
KiXforms Aficionado


Joined: 05 Mar 2003
Posts: 273
Location: San Antonio. TX

PostPosted: Tue May 09, 2006 1:04 pm    Post subject: System.Application.DoEvents Reply with quote

System.Application.DoEvents is working now.

Thanks!

_________________
Kelly
Back to top
View user's profile Send private message Send e-mail MSN Messenger
Display posts from previous:   
Post new topic   Reply to topic    KiXforms Forum Index -> Discussion All times are GMT
Goto page Previous  1, 2, 3, 4, 5, 6  Next
Page 3 of 6

 
Jump to:  
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 cannot attach files in this forum
You can download files in this forum


Powered by phpBB © 2001, 2005 phpBB Group