Jochen
|
| (KiX Supporter) |
| 2002-12-04 09:33 AM |
|
KiXforms - PostPrep 0.9 (Preview)
|
Hi all,
Here is my actual project (by now it just opens any Textfile in the first TextBox)
code:To be implemented :;PostPrep 1.0
; KIXTART 4.12 (WKiX32)
; KIXFORMS build 37
; AUTHOR Jochen Polster
break on
$ReqFormsBuild = 36
$Version = "1.0"
Global $SourceText[0]
$frm = createobject("Kixtart.Form")
if val($frm.Build) < $ReqFormsBuild
$ = messagebox('This Script requires Kixforms build ' + $ReqFormsBuild,'Version check',4112)
Quit()
endif
$frm.Size = 640,480
$frm.Caption = "UBB Postprep " + $Version
$frm.Icon = "SHELL32.dll;2"
$frm.Center
$txtSource = $frm.TextBox
$txtSource.Left = 5
$txtSource.Top = 5
$txtSource.Right = $frm.ClientWidth - 100
$txtSource.Bottom = $frm.ClientHeight / 2 - 3
$txtSource.ScrollBars = 3
$txtSource.FontName = "Courier New"
$txtSource.FontSize = 8
$txtSource.MultiLine = 1
$rtfTarget = $frm.RichTextBox
$rtfTarget.Left = 5
$rtfTarget.Top = 5 + $txtSource.Bottom
$rtfTarget.Right = $frm.ClientWidth - 100
$rtfTarget.Bottom = $frm.ClientHeight - 5
$btnOpen = $frm.Button
$btnOpen.Caption = "Open..."
$btnOpen.Left = $rtfTarget.Right + 10
$btnOpen.Top = 5
$btnOpen.Width = 80
$btnOpen.Height = 25
$btnOpen.OnClick = "btnOpen_Click()"
$frm.Show
while $frm.Visible
$ = execute($frm.DoEvents)
loop
function btnOpen_Click()
dim $FileName, $nl
$FileName = $frm.FileOpenDialog("Open", "", "", "", 0)
if $FileName
$ = open(1,$Filename,2)
if not @error
$frm.BeginUpdate
redim $SourceText[0]
$SourceText[0] = readline(1)
$txtSource.Text = "" + $SourceText[0]
while @error = 0
redim preserve $SourceText[ubound($SourceText)+1]
$SourceText[ubound($SourceText)] = $nl
$txtSource.Text = $txtSource.Text + @crlf + $SourceText[ubound($SourceText)]
$nl = readline(1)
loop
$ = close(1)
$frm.EndUpdate
endif
endif
endfunction
-> Convert to html 'code' with preferred colors for Keywords
-> Custom color choosable for different groups of words
Issues by now :
-> it adds an aditional crlf after the first line
J.
[ 06. December 2002, 11:41: Message edited by: jpols ]
|
Shawn
|
| (KiX Supporter) |
| 2002-12-04 01:55 PM |
|
|
Re: KiXforms - PostPrep 0.9 (Preview)
|
Brilliant. I for one would really like to see this project completed. Think both Jooel and Erik have some template code for parsing the Kixtart scripting language. Would be a great headstart.
|
Jochen
|
| (KiX Supporter) |
| 2002-12-04 02:18 PM |
|
|
|
Re: KiXforms - PostPrep 0.9 (Preview)
|
Will have a look on it ... but think I use my own gray matter
![[Big Grin]](images/icons/grin.gif){kind=icon}
Well, when it comes to html formatted output I am thankfull for any hint
![[Eek!]](images/icons/shocked.gif){kind=icon}
see the mess on scripts forum here : http://www.kixtart.org/board/ultimatebb.php?ubb=get_topic;f=2;t=004021
|
Lonkero
|
| (KiX Master Guru) |
| 2002-12-04 03:54 PM |
|
Re: KiXforms - PostPrep 0.9 (Preview)
|
you will get when you ask.
|
Lonkero
|
| (KiX Master Guru) |
| 2002-12-04 04:46 PM |
|
Re: KiXforms - PostPrep 0.9 (Preview)
|
j, if you go for keywords, i would like to have them too
![[Wink]](images/icons/wink.gif){kind=icon}
then, html conversion is no big deal but headache can be found in special chars like:
$convert=";","&","+","€","£","‚","ƒ","„","…","ˆ","‰","™","®","©","Ø"," ","°","±","²","³","´","µ","·","¸","¹","º","¼","½","¾","¿","ß","÷"
well, it depends though, checker must convert, but it actually cracks boards internal processing...
if you check codeparser (posted somethink like month ago), there is all you need to convert.
mm... ofcourse you will then have the additional headache about your special code.
[ 04. December 2002, 16:57: Message edited by: Lonkero ]
|
Jochen
|
| (KiX Supporter) |
| 2002-12-04 04:47 PM |
|
|
Re: KiXforms - PostPrep 0.9 (Preview)
|
Thanx,
will get back to you tomorrow ...
|
Jochen
|
| (KiX Supporter) |
| 2002-12-04 04:54 PM |
|
|
|
Re: KiXforms - PostPrep 0.9 (Preview)
|
Btw.
Me Jochen, Jens is Sealeopard ... me Stuttgart, Jens Boston
| Sealeopard |
| (KiX Master) |
| 2002-12-04 04:55 PM |
|
|
Re: KiXforms - PostPrep 0.9 (Preview)
|
Me been in Stuttgart once
|
Jochen
|
| (KiX Supporter) |
| 2002-12-05 09:20 AM |
|
|
|
Re: KiXforms - PostPrep 0.9 (Preview)
|
Nice little Town that is .. Stuttgart I mean
Ummm ... actually, to come back to topic I am in Color Hell !!!
Means that I want to incorporate a PictureBox filled with small Rectangles in different (increasing RGB) colors ....
All what I can get is a really interesting but useless graphics effect
![[Roll Eyes]](images/icons/rolleyes.gif){kind=icon}
Help ... please :
code:btw. : afterwards it should be no problem to pick the Color with 'Point'break on
$frmDialog1 = createobject("Kixtart.Form")
$frmDialog1.Size = 300,250
$frmDialog1.Caption = "Select Colors"
$picChoice = $frmDialog1.PictureBox("",5,60,285,160)
$picChoice.DrawWidth = 2 ;pixels
$picChoice.FillStyle = 1 ; solid
$cR = &00
$cG = &00
$cB = &00
$c = cint($cR) + cint($cG) + cint($cB)
for $i = 0 to $picChoice.ClientWidth step 2
for $j = 0 to $picChoice.ClientHeight step 2
$picChoice.ForeColor = $c
$picChoice.FillColor = $c
$picChoice.Rectangle($i,$j,2,2)
$cR = $cR + &01
$cG = $cG + &0001
$cB = $cB + &000001
$c = cint($cR) + cint($cG) + cint($cB)
next
next
$frmDialog1.Show
while $frmDialog1.Visible
$ = execute($frmDialog1.DoEvents)
loop
[ 05. December 2002, 09:21: Message edited by: jpols ]
|
Jochen
|
| (KiX Supporter) |
| 2002-12-05 10:06 AM |
|
|
Re: KiXforms - PostPrep 0.9 (Preview)
|
ROFL !!!
its getting better :
code:break on
$frmDialog1 = createobject("Kixtart.Form")
$frmDialog1.Size = 300,250
$frmDialog1.Caption = "Select Colors"
$picChoice = $frmDialog1.PictureBox("",5,60,285,160)
$picChoice.DrawWidth = 2 ;pixels
$picChoice.FillStyle = 1 ; solid
$cR = &00
$cG = &00
$cB = &00
$c = $cR + $cG + $cB
for $i = 0 to $picChoice.ClientWidth step 10
for $j = 0 to $picChoice.ClientHeight step 10
$picChoice.ForeColor = $c
$picChoice.FillColor = $c
$picChoice.Rectangle($i,$j,10,10)
$cR = $cR + ( 256 * ($picChoice.ClientWidth + $picChoice.ClientHeight) )
$cG = $cG + ( 256 * ($picChoice.ClientWidth + $picChoice.ClientHeight) )
$cB = $cB + ( 256 * ($picChoice.ClientWidth + $picChoice.ClientHeight) )
$c = $cR + $cG + $cB
next
next
$frmDialog1.Show
while $frmDialog1.Visible
$ = execute($frmDialog1.DoEvents)
loop
|
Lonkero
|
| (KiX Master Guru) |
| 2002-12-05 10:28 AM |
|
Re: KiXforms - PostPrep 0.9 (Preview)
|
the logic just is screwed up.
couldn't get further than this with your script base:
code:should it be re-written?$frmDialog1 = createobject("Kixtart.Form")
$frmDialog1.Size = 300,250
$frmDialog1.Caption = "Select Colors"
$picChoice = $frmDialog1.PictureBox("",5,60,285,160)
$picChoice.DrawWidth = 2 ;pixels
$picChoice.FillStyle = 1 ; solid
$color = 0
for $i = 0 to $picChoice.ClientWidth step 2
for $j = 0 to $picChoice.ClientHeight step 2
$picChoice.forecolor=$color
$picChoice.FillColor = $picChoice.ForeColor
$picChoice.Rectangle($i,$j,2,2)
$color=1506+$color
next
next
$frmDialog1.Show
while $frmDialog1.Visible
$ = execute($frmDialog1.DoEvents)
loop
anyway, didn't test that your getting-better code yet so dunno.
and, btw, you don't need any break ons as there is only wkix code.
|
Jochen
|
| (KiX Supporter) |
| 2002-12-05 10:55 AM |
|
|
|
Re: KiXforms - PostPrep 0.9 (Preview)
|
Got a bit farther :
code:Now to make it more colors than Black - to Red !dim $Steps
$frmDialog1 = createobject("Kixtart.Form")
$frmDialog1.Size = 300,250
$frmDialog1.Caption = "Select Colors"
$picChoice = $frmDialog1.PictureBox("",5,60,279,160)
$picChoice.DrawWidth = 2 ;pixels
$picChoice.FillStyle = 1 ; solid
$picChoice.BorderStyle = 0
$cR = &00
$cG = &00
$cB = &00
$c = $cR + $cG + $cB
$Steps = 84
for $i = 4 to $picChoice.ClientHeight step 23
for $j = 4 to $picChoice.ClientWidth step 23
$picChoice.ForeColor = $c
$picChoice.FillColor = $c
$picChoice.Rectangle($j,$i,19,19)
select
case $i + $j < $steps / 3
$cR = $cR + ( 255 / 84 )
case $i + $j > $steps / 3
$cG = $cG + ( 255 / 84 )
case $i + $j > $steps / 3 * 2
$cB = $cB + ( 255 / 84 )
endselect
$n = $n + 1
$c = $cR + $cG + $cB
next
next
$frmDialog1.Show
while $frmDialog1.Visible
$ = execute($frmDialog1.DoEvents)
loop
|
Lonkero
|
| (KiX Master Guru) |
| 2002-12-05 11:40 AM |
|
Re: KiXforms - PostPrep 0.9 (Preview)
|
heh, you must check out this ghaos theory:
code:$frmDialog1 = createobject("Kixtart.Form")
$frmDialog1.Size = 300,250
$frmDialog1.Caption = "Select Colors"
$picChoice = $frmDialog1.PictureBox(,5,60,285,160)
$picChoice.DrawWidth = 5 ;pixels
$picChoice.FillStyle = 1 ; solid
for $r=0 to 255 step 20
for $g=0 to 255 step 20
for $b=0 to 255 step 20
$color=$color+""+$r+","+$g+","+$b+" "
next
next
next
$color=split($color)
"Colors done" ?
get $
$counter=0
for $i = 0 to $picChoice.ClientWidth step 5
for $j = 0 to $picChoice.ClientHeight step 5
$picChoice.forecolor=split($color[$counter],",")
$picChoice.Rectangle($i,$j,5,5)
$counter=$counter+1
next
next
$frmDialog1.Show
while $frmDialog1.Visible
$ = execute($frmDialog1.DoEvents)
loop
|
Jochen
|
| (KiX Supporter) |
| 2002-12-05 11:59 AM |
|
|
|
Re: KiXforms - PostPrep 0.9 (Preview)
|
Very messy !!!
Roflmao ...
Full story so far (without Wordfile.ini so you might want to comment the lines at the beginning from if exist($Wordfile) to its endif !)
code:;PostPrep 1.0
; KIXTART 4.12 (WKiX32)
; KIXFORMS build 37
; AUTHOR Jochen Polster
break on
$ReqFormsBuild = 36
$Version = "1.0"
$Wordfile = @scriptdir + '\Wordfile.ini'
$Kix = substr(@kix,1,4)
Global $SourceText[0],$Colors[6]
$Sections = "Comments","Strings","Numbers","Commands","Functions","Macros","Operators"
;if exist($Wordfile)
; for $i = 0 to 6
; $Colors[$i] = readprofilestring($Wordfile,$Sections[$i],"Color")
; next
; $Commands = split(readprofilestring($Wordfile,"Commands", "words"),',')
; $Functions = split(readprofilestring($Wordfile,"Functions","words"),',')
; $Macros = split(readprofilestring($Wordfile,"Macros", "words"),',')
; $Operators = split(readprofilestring($Wordfile,"Operators","words"),',')
; if not ubound($commands)
; or not ubound($functions)
; or not ubound($macros)
; or not ubound($Operators)
; or not ubound($Colors)
; $ = messagebox('This Script requires a wordfile ','Unexpected Error',4112)
; quit()
; endif
;else
; $ = messagebox('This Script requires a wordfile ','Unexpected Error',4112)
; quit()
;endif
$frm = createobject("Kixtart.Form")
if val($frm.Build) < $ReqFormsBuild
$ = messagebox('This Script requires Kixforms build ' + $ReqFormsBuild,'Version check',4112)
quit()
endif
$frm.Size = 640,500
$frm.Caption = "UBB Postprep " + $Version
$frm.Icon = "SHELL32.dll;2"
$frm.Center
$lblPowered = $frm.Label("Powered by", $frm.ClientWidth-90,$frm.ClientHeight-100,90,20)
$lblPowered.FontName = "Comic sans MS"
$lblPowered.FontBold = 1
$lblPowered.FontSize = 10
$lblPowered.ForeColor = Kixtart
$lblBuild = $frm.Label("KiXtart " + $kix + @crlf
+ "and KiXforms" + @crlf + " build " + $frm.Build,
$frm.ClientWidth-90,$frm.ClientHeight-80,90,60)
$lblBuild.FontName = "Comic sans MS"
$lblBuild.FontBold = 1
$lblBuild.FontSize = 7
$lblBuild.ForeColor = Kixtart
$txtSource = $frm.TextBox
$txtSource.Left = 5
$txtSource.Top = 5
$txtSource.Right = $frm.ClientWidth - 100
$txtSource.Bottom = $frm.ClientHeight / 2 - 3
$txtSource.ScrollBars = 3
$txtSource.FontName = "Courier New"
$txtSource.FontSize = 8
$txtSource.MultiLine = 1
$txtTarget = $frm.TextBox
$txtTarget.Left = 5
$txtTarget.Top = 5 + $txtSource.Bottom
$txtTarget.Right = $frm.ClientWidth - 100
$txtTarget.Bottom = $frm.ClientHeight - 20
$txtTarget.ScrollBars = 3
$txtTarget.FontName = "Courier New"
$txtTarget.FontSize = 8
$txtTarget.MultiLine = 1
$lblStatus1 = $frm.Label("",5,$frm.ClientHeight-17,$frm.ClientWidth/3*2,15)
$lblStatus1.BorderStyle = 5
$lblStatus2 = $frm.Label("",$lblStatus1.Right+3,$frm.ClientHeight-17,$frm.ClientWidth/3-10,15)
$lblStatus2.BorderStyle = 5
$prg = $lblStatus2.ProgressBar
$prg.Size = $frm.ClientWidth/3-10,13
$prg.Style = 1
$prg.BorderStyle = 0
$prg.Value = 0
$btnOpen = $frm.Button
$btnOpen.Caption = "Open..."
$btnOpen.Left = $txtTarget.Right + 10
$btnOpen.Top = 5
$btnOpen.Width = 80
$btnOpen.Height = 25
$btnOpen.BorderStyle = 5
$btnOpen.OnClick = "btnOpen_Click()"
$btnColor = $frm.Button
$btnColor.Caption = "Set Colors..."
$btnColor.Left = $txtTarget.Right + 10
$btnColor.Top = $btnOpen.Bottom + 2
$btnColor.Width = 80
$btnColor.Height = 25
$btnColor.BorderStyle = 5
$btnColor.OnClick = "btnColor_Click()"
$btnConvert = $frm.Button
$btnConvert.Caption = "Convert"
$btnConvert.Left = $txtTarget.Right + 10
$btnConvert.Top = $btnColor.Bottom + 2
$btnConvert.Width = 80
$btnConvert.Height = 25
$btnConvert.BorderStyle = 5
$btnConvert.OnClick = "btnConvert_Click()"
$frm.Show
while $frm.Visible
$ = execute($frm.DoEvents)
loop
function btnOpen_Click()
dim $FileName, $nl
$FileName = $frm.FileOpenDialog("Open File ...", "", "", "KiX Files|*.kix;*.udf;*.k2k|All Files|*.*", 1)
if $FileName
$ = open(1,$Filename,2)
if not @error
dim $count
$txtSource.Text = ""
redim $SourceText[0]
$count = 1
$frm.MousePointer = 11
$txtSource.BeginUpdate
$SourceText[0] = readline(1)
$txtSource.Text = "" + $SourceText[0]
while @error = 0
redim preserve $SourceText[ubound($SourceText)+1]
$SourceText[ubound($SourceText)] = $nl
$txtSource.Text = $txtSource.Text + @crlf + $SourceText[ubound($SourceText)]
$nl = readline(1)
loop
$ = close(1)
$txtSource.EndUpdate
$frm.MousePointer = 0
endif
endif
endfunction
function btnColor_Click()
dim $frmDialog1, $cR, $cG, $cB, $c, $steps
$frmDialog1 = createobject("Kixtart.Form")
$frmDialog1.Size = 300,254
$frmDialog1.Caption = "Set Colors"
$cboStrings = $frmDialog1.ComboBox
$cboStrings.List = "Comments","Strings","Numbers","Commands","Functions","Macros","Operators"
$cboStrings.Location = 5,5
$cboStrings.ListIndex = 0
$chkBold = $frmDialog1.CheckBox("Bold",5,30,50,15)
$picChoice = $frmDialog1.PictureBox("",8,60,279,160)
$picChoice.DrawWidth = 2 ;pixels
$picChoice.FillStyle = 1 ; solid
$picChoice.BorderStyle = 0
$cR = &00
$cG = &00
$cB = &00
$c = $cR + $cG + $cB
$Steps = 84
for $i = 4 to $picChoice.ClientHeight step 23
for $j = 4 to $picChoice.ClientWidth step 23
$picChoice.ForeColor = $c
$picChoice.FillColor = $c
$picChoice.Rectangle($j,$i,19,19)
select
case $i + $j < $steps / 3
$cR = $cR + ( 255 / 84 )
case $i + $j > $steps / 3
$cG = $cG + ( 255 / 84 )
case $i + $j > $steps / 3 * 2
$cB = $cB + ( 255 / 84 )
endselect
$c = $cR + $cG + $cB
next
next
$frmDialog1.Show
while $frmDialog1.Visible
$ = execute($frmDialog1.DoEvents)
loop
endfunction
function btnConvert_Click()
$txtTarget.BeginUpdate
$txtTarget.EndUpdate
endfunction
[ 05. December 2002, 13:20: Message edited by: jpols ]
|
Lonkero
|
| (KiX Master Guru) |
| 2002-12-05 11:59 AM |
|
Re: KiXforms - PostPrep 0.9 (Preview)
|
giving up.
got a logonscript to work on.
code:I really don't know what logics kixforms uses for this.$frmDialog1 = createobject("Kixtart.Form")
$frmDialog1.Size = 300,250
$frmDialog1.Caption = "Select Colors"
$picChoice = $frmDialog1.PictureBox(,5,60,285,160)
$picChoice.DrawWidth = 2 ;pixels
$picChoice.FillStyle = 1 ; solid
$counter=0
dim $color[18757]
for $r=0 to (255*255*255) step 884 $color[$counter]=$r $counter=$counter+1 next
"Colors done" ?
get $
$counter=0
for $i = 0 to $picChoice.ClientWidth step 2
for $j = 0 to $picChoice.ClientHeight step 2
$picChoice.forecolor=$color[$counter]
$picChoice.Rectangle($i,$j,2,2)
$counter=$counter+1
next
next
$frmDialog1.Show
while $frmDialog1.Visible
$ = execute($frmDialog1.DoEvents)
loop
| Chris S. |
| (MM club member) |
| 2002-12-05 03:03 PM |
|
|
Re: KiXforms - PostPrep 0.9 (Preview)
|
Are you, perhaps, trying to do this...
code:Reference: Color Dialog Boxbreak on cls
$ComDlg = CreateObject("MSComDlg.CommonDialog")
$ComDlg.ShowColor
? "Color selected " + $ComDlg.Color
get $
|
Jochen
|
| (KiX Supporter) |
| 2002-12-05 03:21 PM |
|
|
|
Re: KiXforms - PostPrep 0.9 (Preview)
|
You are killing me !!!
Hmmm ... it doesn't work on NT 4 machines (W2k ok)
Shawn ? Can we have Common dialogs built in kixforms
?[ 05. December 2002, 15:24: Message edited by: jpols ]
| Chris S. |
| (MM club member) |
| 2002-12-05 03:35 PM |
|
|
Re: KiXforms - PostPrep 0.9 (Preview)
|
I agree. The Font Dialog could come in handy too, I'm sure.
|
Jochen
|
| (KiX Supporter) |
| 2002-12-05 03:46 PM |
|
|
|
Re: KiXforms - PostPrep 0.9 (Preview)
|
Thanx Chris for making me stumble over this !
In the mean time I get more closer results :
(But still the RGB business is try & error for me
)code:break on
dim $frmDialog1, $cR, $cG, $cB, $c, $steps, $h
$frmDialog1 = createobject("Kixtart.Form")
$frmDialog1.Size = 300,244
$frmDialog1.Caption = "Set Colors"
$cboStrings = $frmDialog1.ComboBox
$cboStrings.List = "Comments","Strings","Numbers","Commands","Functions","Macros","Operators"
$cboStrings.Location = 5,5
$cboStrings.ListIndex = 0
$chkBold = $frmDialog1.CheckBox("Bold",120,9,50,15)
$btnClose = $frmDialog1.Button("Close",$frmDialog1.ClientWidth-89,5,80,25)
$btnClose.OnClick = "$$frmDialog1.Hide"
$btnClose.Cancel = 1
$picChoice = $frmDialog1.PictureBox("",8,50,279,160)
$picChoice.DrawWidth = 2 ;pixels
$picChoice.FillStyle = 1 ; solid
$picChoice.BorderStyle = 0
$cR = 0
$cG = 0
$cB = 0
$Steps = 84
for $i = 4 to $picChoice.ClientHeight step 23
for $j = 4 to $picChoice.ClientWidth step 23
$c = "" + dectohex($cR) + dectohex($cG) + dectohex($cB)
if len(dectohex($cR)) = 1 $c = "0" + $c endif
if len(dectohex($cG)) = 1 $c = substr($c,1,2)+"0"+substr($c,3,len($c)) endif
if len(dectohex($cB)) = 1 $c = substr($c,1,4)+"0"+substr($c,5,len($c)) endif
$c ?
$ = execute("$$picChoice.ForeColor = &$c")
$ = execute("$$picChoice.FillColor = &$c")
$picChoice.Rectangle($j,$i,19,19)
select
case $h < $Steps / 3
$cR = $cR + ( 255 / 28 )
case ($h > $Steps / 3) and ($h < $steps / 3 * 2)
$cG = $cG + ( 255 / 28 )
case $h > $Steps / 3 * 2
$cB = $cB + ( 255 / 28 )
endselect
$h = $h + 1
next
next
;$frm.Enabled = 0
$frmDialog1.Show
while $frmDialog1.Visible
$ = execute($frmDialog1.DoEvents)
loop
| Chris S. |
| (MM club member) |
| 2002-12-05 03:59 PM |
|
|
|
Re: KiXforms - PostPrep 0.9 (Preview)
|
Perhaps this will help you along a little more. Add these lines to your code...
code:$picChoice.OnClick = "fnClickColor()"
.
.
.
Function fnClickColor()
$picChoice.MouseX " "
$picChoice.MouseY ?
EndFunction
|
Jochen
|
| (KiX Supporter) |
| 2002-12-05 04:10 PM |
|
|
|
Re: KiXforms - PostPrep 0.9 (Preview)
|
I might also do :
code:which returns the color (in a strange way though)$picChoice.OnClick = "$$picChoice.Point($$picChoice.MouseX,$$picChoice.MouseY) ?"
... Will go home now and see what I can do with it
(Got a color table that fits in my (personal) Highlighting scheme in the mean time)
|
Shawn
|
| (KiX Supporter) |
| 2002-12-05 04:23 PM |
|
|
|
Re: KiXforms - PostPrep 0.9 (Preview)
|
Heres a method for generating a quick palette - ripped from KiXtart PiXaso Paint:
code:-ShawnBreak On
$frmDialog1 = createobject("Kixtart.Form")
$frmDialog1.Size = 490,160
$frmDialog1.Caption = "Select Colors"
$picChoice = $frmDialog1.PictureBox(,5,30,473,88)
$picChoice.DrawWidth = 1 ; pixels
$picChoice.FillStyle = 1 ; solid
For $b = 0 to 255 Step 51
For $g = 0 to 255 Step 51
For $r = 0 to 255 Step 51
$$picChoice.FillColor = ($b*256*256)+($g*256)+$r
$$picChoice.Rectangle($Left,$Top,14,15)
$Left = $Left + 13
if $Left = 468
$Left = 0
$Top = $Top + 14
EndIf
Next
Next
Next
$frmDialog1.Center
$frmDialog1.Show
while $frmDialog1.Visible
$ = execute($frmDialog1.DoEvents)
loop
Exit 1
|
Shawn
|
| (KiX Supporter) |
| 2002-12-05 04:37 PM |
|
|
|
Re: KiXforms - PostPrep 0.9 (Preview)
|
hmmm ... just printed off an read this entire thread - maybe the palette issue is a dead one ? In regards to the common dialogs - the plan is to support every single one - there a new major forms class (in the works) called Kixtart.Dialogs that will support all the dialogs as seperate stand-alone objects (instead of having them as simply method calls off the form) - this will provide much flexibility in setting all the numerous options for the dialogs. Just off the top of my head, will implement:
FontDialog
PrintDialog
OpenFileDialog
SaveFileDialog
BrowseForFolderDialog
BrowseNetworkDialog
ColorDialog
CopyFileDialog (FileOperationDialog)
theres a PrintPreview dialog if memory serves, don't think that can be integrated to easily in Kixtart - not sure. Can't think of any I,ve missed.
|
Jochen
|
| (KiX Supporter) |
| 2002-12-05 08:55 PM |
|
|
Re: KiXforms - PostPrep 0.9 (Preview)
|
Very Cool Shawn !!!
Hmmm .. me knewed that as we talked about it last week IIRC ...
However, knowing that there will be a way, here is the latest preview :
code:TODO :;PostPrep 1.0 (Preview)
; KIXTART 4.12 (WKiX32)
; KIXFORMS build 37
; AUTHOR Jochen Polster
break on
$ReqFormsBuild = 36
$Version = "1.0"
$Wordfile = @scriptdir + '\Wordfile.ini'
$Kix = substr(@kix,1,4)
Global $SourceText[0],$Colors[6]
$Sections = "Comments","Strings","Numbers","Commands","Functions","Macros","Operators"
;if exist($Wordfile)
; for $i = 0 to 6
; $Colors[$i] = readprofilestring($Wordfile,$Sections[$i],"Color")
; next
; $Commands = split(readprofilestring($Wordfile,"Commands", "words"),',')
; $Functions = split(readprofilestring($Wordfile,"Functions","words"),',')
; $Macros = split(readprofilestring($Wordfile,"Macros", "words"),',')
; $Operators = split(readprofilestring($Wordfile,"Operators","words"),',')
; if not ubound($commands)
; or not ubound($functions)
; or not ubound($macros)
; or not ubound($Operators)
; or not ubound($Colors)
; $ = messagebox('This Script requires a wordfile ','Unexpected Error',4112)
; quit()
; endif
;else
; $ = messagebox('This Script requires a wordfile ','Unexpected Error',4112)
; quit()
;endif
$frm = createobject("Kixtart.Form")
if val($frm.Build) < $ReqFormsBuild
$ = messagebox('This Script requires Kixforms build ' + $ReqFormsBuild,'Version check',4112)
quit()
endif
$frm.Size = 800,620
$frm.Caption = "UBB Postprep " + $Version
$frm.Icon = "SHELL32.dll;2"
$frm.Center
$lblPowered = $frm.Label("Powered by", $frm.ClientWidth-90,$frm.ClientHeight-100,90,20)
$lblPowered.FontName = "Comic sans MS"
$lblPowered.FontBold = 1
$lblPowered.FontSize = 11
$lblPowered.ForeColor = Kixtart
$lblBuild = $frm.Label(" KiXtart " + $kix + @crlf
+ " and" + @crlf + " KiXforms build " + $frm.Build,
$frm.ClientWidth-90,$frm.ClientHeight-75,90,60)
$lblBuild.FontName = "Comic sans MS"
$lblBuild.FontBold = 1
$lblBuild.FontSize = 7
$lblBuild.ForeColor = Kixtart
$txtSource = $frm.TextBox
$txtSource.Left = 5
$txtSource.Top = 5
$txtSource.Right = $frm.ClientWidth - 100
$txtSource.Bottom = $frm.ClientHeight / 2 - 3
$txtSource.ScrollBars = 3
$txtSource.FontName = "Courier New"
$txtSource.FontSize = 8
$txtSource.MultiLine = 1
$txtTarget = $frm.TextBox
$txtTarget.Left = 5
$txtTarget.Top = 5 + $txtSource.Bottom
$txtTarget.Right = $frm.ClientWidth - 100
$txtTarget.Bottom = $frm.ClientHeight - 20
$txtTarget.ScrollBars = 3
$txtTarget.FontName = "Courier New"
$txtTarget.FontSize = 8
$txtTarget.MultiLine = 1
$lblStatus1 = $frm.Label("",5,$frm.ClientHeight-17,$frm.ClientWidth/3*2,15)
$lblStatus1.BorderStyle = 5
$lblStatus2 = $frm.Label("",$lblStatus1.Right+3,$frm.ClientHeight-17,$frm.ClientWidth/3-10,15)
$lblStatus2.BorderStyle = 5
$prg = $lblStatus2.ProgressBar
$prg.Size = $frm.ClientWidth/3-10,13
$prg.Style = 1
$prg.BorderStyle = 0
$prg.Value = 0
$btnOpen = $frm.Button
$btnOpen.Caption = "Open..."
$btnOpen.Left = $txtTarget.Right + 10
$btnOpen.Top = 5
$btnOpen.Width = 80
$btnOpen.Height = 25
$btnOpen.BorderStyle = 5
$btnOpen.OnClick = "btnOpen_Click()"
$btnColor = $frm.Button
$btnColor.Caption = "Set Colors..."
$btnColor.Left = $txtTarget.Right + 10
$btnColor.Top = $btnOpen.Bottom + 2
$btnColor.Width = 80
$btnColor.Height = 25
$btnColor.BorderStyle = 5
$btnColor.OnClick = "btnColor_Click()"
dim $Top
$Top = $btnColor.Bottom + 10
for $i = 0 to ubound($Sections)
$ = execute("$$txtFormat$i = $$frm.TextBox($$Sections[$i],$$txtTarget.Right+10,$Top,80,20)")
$ = execute("$$txtFormat$i.Caption = $$Sections[$i]")
$ = execute("$$txtFormat$i.ForeColor = val(readprofilestring($Wordfile,$$Sections[$i],'Color'))")
$ = execute("$$txtFormat$i.FontBold = val(readprofilestring($Wordfile,$$Sections[$i],'Bold'))")
$ = execute("$$Top = $$txtFormat$i.Bottom + 7")
next
$btnConvert = $frm.Button
$btnConvert.Caption = "Convert"
$btnConvert.Left = $txtTarget.Right + 10
$btnConvert.Top = $txtFormat6.Bottom + 45
$btnConvert.Width = 80
$btnConvert.Height = 25
$btnConvert.BorderStyle = 5
$btnConvert.OnClick = "btnConvert_Click()"
$btnConvert.Enabled = 0
$frm.Show
while $frm.Visible
$ = execute($frm.DoEvents)
loop
function btnColor_Click()
dim $frmDialog1, $cR, $cG, $cB, $c, $steps, $h, $index
$index = 0
$frmDialog1 = createobject("Kixtart.Form")
$frmDialog1.Size = 300,244
$frmDialog1.Caption = "Set Colors"
$frmDialog1.Location = $frm.Right - $frmDialog1.ClientWidth - 107 , $frm.Top + $btnColor.Bottom
$cboStrings = $frmDialog1.ComboBox
$cboStrings.List = "Comments","Strings","Numbers","Commands","Functions","Macros","Operators"
$cboStrings.Location = 5,5
$cboStrings.ListIndex = 0
$cboStrings.Style = 1
$cboStrings.OnClick = "$$index = cboStrings_OnCLick($$cboStrings.ListIndex)"
$chkBold = $frmDialog1.CheckBox("Bold",120,9,50,15)
$chkBold.OnClick = "chkBold_Click($$index)"
$btnClose = $frmDialog1.Button("Close",$frmDialog1.ClientWidth-89,5,80,25)
$btnClose.OnClick = "$$frmDialog1.Hide"
$btnClose.Cancel = 1
$picChoice = $frmDialog1.PictureBox("",8,50,279,160)
$picChoice.DrawWidth = 2 ;pixels
$picChoice.FillStyle = 1 ;solid
$picChoice.BorderStyle = 0
$picChoice.OnClick = "Color_Change($$index)"
$cR = 64
$cG = 64
$cB = 64
$Steps = 84
for $i = 4 to $picChoice.ClientHeight step 23
for $j = 4 to $picChoice.ClientWidth step 23
$c = "" + dectohex($cR) + dectohex($cG) + dectohex($cB)
if $cR < 16 $c = "0" + $c endif
if $cG < 16 $c = substr($c,1,2)+"0"+substr($c,3,len($c)) endif
if $cB < 16 $c = substr($c,1,4)+"0"+substr($c,4,len($c)) endif
$c = substr($c,1,6)
$ = execute("$$picChoice.ForeColor = &$c")
$ = execute("$$picChoice.FillColor = &$c")
$picChoice.Rectangle($j,$i,19,19)
select
case $h < $Steps / 3
$cR = $cR + ( 255 / 28 )
case $h > $Steps / 3 and $h < $steps / 3 * 2
$cR = 64 $cB = 64
$cG = $cG + ( 255 / 28 )
case $h > $Steps / 3 * 2
$cG = 64 $cR = 255
$cB = $cB + ( 255 / 28 )
endselect
$h = $h + 1
next
next
$frm.Enabled = 0
$frmDialog1.Show
while $frmDialog1.Visible
$ = execute($frmDialog1.DoEvents)
loop
$frm.Enabled = 1
endfunction
function btnConvert_Click()
$txtTarget.BeginUpdate
$txtTarget.EndUpdate
endfunction
function btnOpen_Click()
dim $FileName, $nl
$FileName = $frm.FileOpenDialog("Open File ...", "", "", "KiX Files|*.kix;*.udf;*.k2k|All Files|*.*", 1)
if $FileName
$ = open(1,$Filename,2)
if not @error
dim $count
$txtSource.Text = ""
redim $SourceText[0]
$frm.MousePointer = 11
$txtSource.BeginUpdate
$SourceText[0] = readline(1)
$txtSource.Text = "" + $SourceText[0]
while @error = 0
redim preserve $SourceText[ubound($SourceText)+1]
$SourceText[ubound($SourceText)] = $nl
$txtSource.Text = $txtSource.Text + @crlf + $SourceText[ubound($SourceText)]
$nl = readline(1)
loop
$ = close(1)
$txtSource.EndUpdate
$frm.MousePointer = 0
$btnConvert.Enabled = 1
$lblStatus1.Caption = " " + $FileName
endif
endif
endfunction
function cboStrings_OnClick($i)
dim $y
$index = $i
$ = execute("if $$txtFormat$index.FontBold $$y = 1 endif")
if $y
$chkBold.Value = 1
else
$chkBold.Value = 0
endif
$cboStrings_OnClick = $i
endfunction
function chkBold_Click($i)
if $chkBold.Value
$ = execute("$$txtFormat$i.FontBold = 1")
$ = writeprofilestring($WordFile,$Sections[$i],"Bold",1)
else
$ = execute("$$txtFormat$i.FontBold = 0")
$ = writeprofilestring($WordFile,$Sections[$i],"Bold",0)
endif
endfunction
function Color_Change($i)
dim $Choice
$Choice = $picChoice.Point($picChoice.MouseX,$picChoice.MouseY)
$ = execute("$$txtFormat$i.ForeColor = $Choice")
$ = writeprofilestring($WordFile,$Sections[$i],"Color",$Choice)
endfunction
-> (maybe) a Listview subform to maintain Keywords
-> The convert thingie of course !
-> Select / Copy buttons for TargetTestBox
J.
|
Jochen
|
| (KiX Supporter) |
| 2002-12-05 09:11 PM |
|
|
|
Re: KiXforms - PostPrep 0.9 (Preview)
|
I think I use the palette snippet you posted before Shawn !
I was searching for that specific Script but didn't found it amongst the 30 folders of kixforms releases
Very cool !
|
Shawn
|
| (KiX Supporter) |
| 2002-12-05 09:24 PM |
|
|
|
Re: KiXforms - PostPrep 0.9 (Preview)
|
Very slick - one of the things I've already
played with - and that you might keep in mind
for a future enhancement - is to use BBPostPrep
as a BBCode downloader as well. Using the
RichTextBox control, one can preserve all the BB
formatting and save the script to file without
having to copy/paste into wordpad than notepad.
I haven't fleshed out RichTextBox as much as I
would liked to (have) (lol) but the goal is to
make RichTextBox 100% property/method compatible
with TextBox ... should be able to just drop the
RichTextBox into the script with a single line
change. Look for that in build (39) in that I
wanted to tackle systray in Build 38.
|
Jochen
|
| (KiX Supporter) |
| 2002-12-05 09:29 PM |
|
|
|
Re: KiXforms - PostPrep 0.9 (Preview)
|
Will keep in mind ... Wah things just getting better; Here the Updated Version (Preview still) :
code:;PostPrep 1.0
; KIXTART 4.12 (WKiX32)
; KIXFORMS build 37
; AUTHOR Jochen Polster
break on
$ReqFormsBuild = 36
$Version = "1.0"
$Wordfile = @scriptdir + '\Wordfile.ini'
$Kix = substr(@kix,1,4)
Global $SourceText[0],$Colors[6]
$Sections = "Comments","Strings","Numbers","Commands","Functions","Macros","Operators"
;if exist($Wordfile)
; for $i = 0 to 6
; $Colors[$i] = readprofilestring($Wordfile,$Sections[$i],"Color")
; next
; $Commands = split(readprofilestring($Wordfile,"Commands", "words"),',')
; $Functions = split(readprofilestring($Wordfile,"Functions","words"),',')
; $Macros = split(readprofilestring($Wordfile,"Macros", "words"),',')
; $Operators = split(readprofilestring($Wordfile,"Operators","words"),',')
; if not ubound($commands)
; or not ubound($functions)
; or not ubound($macros)
; or not ubound($Operators)
; or not ubound($Colors)
; $ = messagebox('This Script requires a wordfile ','Unexpected Error',4112)
; quit()
; endif
;else
; $ = messagebox('This Script requires a wordfile ','Unexpected Error',4112)
; quit()
;endif
$frm = createobject("Kixtart.Form")
if val($frm.Build) < $ReqFormsBuild
$ = messagebox('This Script requires Kixforms build ' + $ReqFormsBuild,'Version check',4112)
quit()
endif
$frm.Size = 800,620
$frm.Caption = "UBB Postprep " + $Version
$frm.Icon = "SHELL32.dll;2"
$frm.Center
$lblPowered = $frm.Label("Powered by", $frm.ClientWidth-90,$frm.ClientHeight-100,90,20)
$lblPowered.FontName = "Comic sans MS"
$lblPowered.FontBold = 1
$lblPowered.FontSize = 11
$lblPowered.ForeColor = Kixtart
$lblBuild = $frm.Label(" KiXtart " + $kix + @crlf
+ " and" + @crlf + " KiXforms build " + $frm.Build,
$frm.ClientWidth-90,$frm.ClientHeight-75,90,60)
$lblBuild.FontName = "Comic sans MS"
$lblBuild.FontBold = 1
$lblBuild.FontSize = 7
$lblBuild.ForeColor = Kixtart
$txtSource = $frm.TextBox
$txtSource.Left = 5
$txtSource.Top = 5
$txtSource.Right = $frm.ClientWidth - 100
$txtSource.Bottom = $frm.ClientHeight / 2 - 3
$txtSource.ScrollBars = 3
$txtSource.FontName = "Courier New"
$txtSource.FontSize = 8
$txtSource.MultiLine = 1
$txtTarget = $frm.TextBox
$txtTarget.Left = 5
$txtTarget.Top = 5 + $txtSource.Bottom
$txtTarget.Right = $frm.ClientWidth - 100
$txtTarget.Bottom = $frm.ClientHeight - 20
$txtTarget.ScrollBars = 3
$txtTarget.FontName = "Courier New"
$txtTarget.FontSize = 8
$txtTarget.MultiLine = 1
$lblStatus1 = $frm.Label("",5,$frm.ClientHeight-17,$frm.ClientWidth/3*2,15)
$lblStatus1.BorderStyle = 5
$lblStatus2 = $frm.Label("",$lblStatus1.Right+3,$frm.ClientHeight-17,$frm.ClientWidth/3-10,15)
$lblStatus2.BorderStyle = 5
$prg = $lblStatus2.ProgressBar
$prg.Size = $frm.ClientWidth/3-10,13
$prg.Style = 1
$prg.BorderStyle = 0
$prg.Value = 0
$btnOpen = $frm.Button
$btnOpen.Caption = "Open..."
$btnOpen.Left = $txtTarget.Right + 10
$btnOpen.Top = 5
$btnOpen.Width = 80
$btnOpen.Height = 25
$btnOpen.BorderStyle = 5
$btnOpen.OnClick = "btnOpen_Click()"
$btnColor = $frm.Button
$btnColor.Caption = "Set Colors..."
$btnColor.Left = $txtTarget.Right + 10
$btnColor.Top = $btnOpen.Bottom + 2
$btnColor.Width = 80
$btnColor.Height = 25
$btnColor.BorderStyle = 5
$btnColor.OnClick = "btnColor_Click()"
dim $Top
$Top = $btnColor.Bottom + 10
for $i = 0 to ubound($Sections)
$ = execute("$$txtFormat$i = $$frm.TextBox($$Sections[$i],$$txtTarget.Right+10,$Top,80,20)")
$ = execute("$$txtFormat$i.Caption = $$Sections[$i]")
$ = execute("$$txtFormat$i.ForeColor = val(readprofilestring($Wordfile,$$Sections[$i],'Color'))")
$ = execute("$$txtFormat$i.FontBold = val(readprofilestring($Wordfile,$$Sections[$i],'Bold'))")
$ = execute("$$Top = $$txtFormat$i.Bottom + 7")
next
$btnConvert = $frm.Button
$btnConvert.Caption = "Convert"
$btnConvert.Left = $txtTarget.Right + 10
$btnConvert.Top = $txtFormat6.Bottom + 45
$btnConvert.Width = 80
$btnConvert.Height = 25
$btnConvert.BorderStyle = 5
$btnConvert.OnClick = "btnConvert_Click()"
$btnConvert.Enabled = 0
$frm.Show
while $frm.Visible
$ = execute($frm.DoEvents)
loop
function btnColor_Click()
dim $frmDialog1, $Left, $Top, $index
$index = 0
$frmDialog1 = createobject("Kixtart.Form")
$frmDialog1.Size = 254,240
$frmDialog1.Caption = "Set Colors"
$frmDialog1.Location = $frm.Right - $frmDialog1.ClientWidth - 107 , $frm.Top + $btnColor.Bottom
$cboStrings = $frmDialog1.ComboBox
$cboStrings.List = "Comments","Strings","Numbers","Commands","Functions","Macros","Operators"
$cboStrings.Location = 5,7
$cboStrings.ListIndex = 0
$cboStrings.Style = 1
$cboStrings.OnClick = "$$index = cboStrings_OnCLick($$cboStrings.ListIndex)"
$chkBold = $frmDialog1.CheckBox("Bold",115,11,50,15)
$chkBold.OnClick = "chkBold_Click($$index)"
$btnClose = $frmDialog1.Button("Close",$frmDialog1.ClientWidth-83,7,75,22)
$btnClose.OnClick = "$$frmDialog1.Hide"
$btnClose.Cancel = 1
$picChoice = $frmDialog1.PictureBox(,5,40,239,185)
$picChoice.DrawWidth = 1 ;pixels
$picChoice.FillStyle = 1 ;solid
$picChoice.BorderStyle = 0
$picChoice.OnClick = "Color_Change($$index)"
for $b = 0 to 255 step 51
for $g = 0 to 255 step 51
for $r = 0 to 255 step 51
$picChoice.FillColor = ($b*256*256)+($g*256)+$r
$picChoice.Rectangle($Left,$Top,14,15)
$Left = $Left + 13
if $Left = 234
$Left = 0
$Top = $Top + 14
endif
next
next
next
$frm.Enabled = 0
$frmDialog1.Show
while $frmDialog1.Visible
$ = execute($frmDialog1.DoEvents)
loop
$frm.Enabled = 1
endfunction
function btnConvert_Click()
$txtTarget.BeginUpdate
$txtTarget.EndUpdate
endfunction
function btnOpen_Click()
dim $FileName, $nl
$FileName = $frm.FileOpenDialog("Open File ...", "", "", "KiX Files|*.kix;*.udf;*.k2k|All Files|*.*", 1)
if $FileName
$ = open(1,$Filename,2)
if not @error
dim $count
$txtSource.Text = ""
redim $SourceText[0]
$frm.MousePointer = 11
$txtSource.BeginUpdate
$SourceText[0] = readline(1)
$txtSource.Text = "" + $SourceText[0]
while @error = 0
redim preserve $SourceText[ubound($SourceText)+1]
$SourceText[ubound($SourceText)] = $nl
$txtSource.Text = $txtSource.Text + @crlf + $SourceText[ubound($SourceText)]
$nl = readline(1)
loop
$ = close(1)
$txtSource.EndUpdate
$frm.MousePointer = 0
$btnConvert.Enabled = 1
$lblStatus1.Caption = " " + $FileName
endif
endif
endfunction
function cboStrings_OnClick($i)
dim $y
$index = $i
$ = execute("if $$txtFormat$index.FontBold $$y = 1 endif")
if $y
$chkBold.Value = 1
else
$chkBold.Value = 0
endif
$cboStrings_OnClick = $i
endfunction
function chkBold_Click($i)
if $chkBold.Value
$ = execute("$$txtFormat$i.FontBold = 1")
$ = writeprofilestring($WordFile,$Sections[$i],"Bold",1)
else
$ = execute("$$txtFormat$i.FontBold = 0")
$ = writeprofilestring($WordFile,$Sections[$i],"Bold",0)
endif
endfunction
function Color_Change($i)
dim $Choice
$Choice = $picChoice.Point($picChoice.MouseX,$picChoice.MouseY)
$ = execute("$$txtFormat$i.ForeColor = $Choice")
$ = writeprofilestring($WordFile,$Sections[$i],"Color",$Choice)
endfunction
|
Jochen
|
| (KiX Supporter) |
| 2002-12-05 09:31 PM |
|
|
|
Re: KiXforms - PostPrep 0.9 (Preview)
|
{edit}
Whoopsie .. it said Server connection was reset, so I tried to repost
![[Embarrassed]](images/icons/blush.gif){kind=icon}
[ 05. December 2002, 21:33: Message edited by: jpols ]
|
Shawn
|
| (KiX Supporter) |
| 2002-12-05 09:35 PM |
|
|
|
Re: KiXforms - PostPrep 0.9 (Preview)
|
Might want to allow for a cancel button on the ColorDialog. Or maybe cancel changes through clicking the [x] box in title bar ?
|
Jochen
|
| (KiX Supporter) |
| 2002-12-05 09:36 PM |
|
|
|
Re: KiXforms - PostPrep 0.9 (Preview)
|
If you watch the processing closely you will see that the changes are immediately made on the main form
|
Shawn
|
| (KiX Supporter) |
| 2002-12-05 09:40 PM |
|
|
|
Re: KiXforms - PostPrep 0.9 (Preview)
|
Yeah - saw that - slick stuff but what happens if I change my mind and also happened to forgot the exact color hue that I had before - just saying would be nice to cancel out of the change and have the app restore my previous saved settings.
|
Shawn
|
| (KiX Supporter) |
| 2002-12-05 09:52 PM |
|
|
|
Re: KiXforms - PostPrep 0.9 (Preview)
|
Just throwing out ideas here Captain - I know
this script isn't finished yet or anything.
But to be honest - this is one script I would
really, really like to see happen ... I've been
longing for a customized (kixtart) HTML syntax
colorizer for a long time - like postprep but
better - getting real excited about this.
Might want to set the color textboxes into the
VeryLocked state (Locked=2) ... and maybe turn
TabStops off. Dont see any need for the user to
be poking around in those fields, yeah ?
Other thing - can you try and see if you can
somehow get Kixforms scripts themselves to pass
through the UBB filter checking thats done. Last
thing I've known - forms scripts get kicked out
when not posted between code tags - think
specifically because the OnClick event looks
suspiciously like a BODY ONCLICK in HTML.
|
Jochen
|
| (KiX Supporter) |
| 2002-12-05 10:06 PM |
|
|
|
Re: KiXforms - PostPrep 0.9 (Preview)
|
k,
TabStop = 0
Locked = 2
are done ...
for the Cancel Color setting :
Am really lazy in remodelling the thing (And this would be not only to implement another 'apply' and 'cancel' button) BUT, I am thinking of a way to get the 'colorbox' marked for each single Keyword ... so changing your mind would be easy
Ah, and expect this thing to work at the weekend ... If nothing comes between me and my Keyboard
{edit}
Uh , yes ... nearly forgot to mention :
would it be usefull to wrap the output in code tags just to be sure that kixforms scripts won't be denied ?
[ 05. December 2002, 22:08: Message edited by: jpols ]
|
Jochen
|
| (KiX Supporter) |
| 2002-12-06 08:38 AM |
|
|
Re: KiXforms - PostPrep 0.9 (Preview)
|
Status update :
-> already have a button (Yes, only the button
) to maintain Keyword lists -> will support a save as (html) to save the output
-> added a button Copy (output) ... Not sure if I can send output text to clipboard ..
By now I am in String_Manipulation_Hell
But thats also as maybe
[ 06. December 2002, 08:52: Message edited by: jpols ]
| Crazy Eddie |
| (Starting to like KiXtart) |
| 2002-12-26 08:11 PM |
|
|
Re: KiXforms - PostPrep 0.9 (Preview)
|
Shawn / JPols -
Is there a method that is available to copy data to the Clipboard?
Using Kix4.12 / KixForms 2.1.2.36
Thanks in Advance!
Eddie
|
Jochen
|
| (KiX Supporter) |
| 2002-12-26 08:59 PM |
|
|
|
Re: KiXforms - PostPrep 0.9 (Preview)
|
Eddie,
no ... not yet (but I think there will be)
By now I have just planned to change this into a SELECT button that just do a 'select all' operation on the second textbox like :
$btnSelect.On_Click = "$$txtOutput.SelStart = -1 ;delete the _ in On_Click
)hth
Jochen