#92969 - 2003-09-25 01:42 PM
PostPrep 1.0.3.2 -> Fixed build now remembers last size
Jochen
KiX Supporter
Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
Sorry for that, but somehow this feature got lost in the last release http://www.kixhelp.com/jooel/PostPrep_1.0.3.2.zip ; UBB PostPrep 1.0.3.2 (Engine 1.1.0 beta 3)
; ----------------------------------------------------------------------------------------------
; MINIMUM REQUIREMENTS
;
; KIXTART 4.20 (WKiX32)
; KIXFORMS 2.3.0 Beta 3 (build 41)
; ----------------------------------------------------------------------------------------------
; AUTHORs
; Jochen Polster - Form, Controls, Design, Codestarter
; Jooel Nieminen - Conversion Engine !
; ----------------------------------------------------------------------------------------------
; ACKNOWLEDGEMENTS
; Shawn Tassie (for Kixforms of course!)
; Richard Howarth (for pointing out the < br>-tag Issue)
; All KiXtart Enthusiasts for which we wrote this
; ----------------------------------------------------------------------------------------------
; VERSION HISTORY
;
; 1.0.3.2 - 09/25/2003 Form now remembers last size (somehow lost in 1.0.3.1)
; http://www.kixtart.org/cgi-bin/ultimatebb.cgi?ubb=get_topic&f=13&t=000687
; 1.0.3.1 - 09/25/2003 Fixed to reflect changed Anchor Properties, new engine added
; http://www.kixtart.org/board/ultimatebb.php?ubb=get_topic;f=13;t=000686
;
; 1.0.3 - 03/17/2003 Form now resizable
; http://www.kixtart.org/board/ultimatebb.php?ubb=get_topic;f=13;t=000568
;
; 1.0.2 - 03/10/2003 replaced Buttons with ToolButtons
; http://www.kixtart.org/board/ultimatebb.php?ubb=get_topic;f=13;t=000562
;
; 1.0.1 - 01/28/2003 bug-fixes to conversion engine, optional WordWrap added
; http://www.kixtart.org/board/ultimatebb.php?ubb=get_topic;f=13;t=000512
;
; 1.0 - 01/27/2003 Initial worthwhile release
; http://www.kixtart.org/board/ultimatebb.php?ubb=get_topic;f=13;t=000510
;
; 0.9 A - different very buggy Alpha releases not worth to mention
;
; 0.9 P - Preview Version(s) discussed on kixtart.org Bulletin board
; http://www.kixtart.org/board/ultimatebb.php?ubb=get_topic;f=13;t=000426
; ----------------------------------------------------------------------------------------------
break on
$ = setascii ("on" )
$ReqForms = 41
$Version = "1.0.3.2"
$Wordfile = @scriptdir + '\Wordfile.ini'
$Kix = substr (@kix ,1 ,4 )
if $Kix < "4.20"
$ = messagebox ('This Script requires at least KiXtart 4.20 ' ,'Version Check' ,4112 )
quit ()
endif
Global $SourceText [0 ], $TargetText [0 ], $Colors [7 ], $PathOpen , $PathSave , $ShowStatistics , $wrap
$Sections = "Comments" ,"Strings" ,"Numbers" ,"Commands" ,"Functions" ,"Macros" ,"Operators" ,"Variables"
if exist ($Wordfile )
for $i = 0 to 7
$Colors [$i ] = readprofilestring ($Wordfile ,$Sections [$i ],"Color" )
next
$CTable = split (readprofilestring ($Wordfile ,"ColorTable" ,"Colors" ),',' )
$Commands = split (readprofilestring ($Wordfile ,"Commands" , "words" ),',' )
$Functions = split (readprofilestring ($Wordfile ,"Functions" , "words" ),',' )
$PathOpen = readprofilestring ($Wordfile ,"Global" ,"PathOpen" )
$PathSave = readprofilestring ($Wordfile ,"Global" ,"PathSave" )
$ShowStatistics = val (readprofilestring ($Wordfile ,"Global" ,"ShowStats" ))
$wrap = val (readprofilestring ($Wordfile ,"Global" ,"WordWrap" ))
$LastSize = split (readprofilestring ($Wordfile ,"Global" ,"FormSize" ),',' )
if not ubound ($Commands )
or not ubound ($Functions )
or not ubound ($Colors )
$ = messagebox ('This Script requires a consistent wordfile' ,'File check' ,4112 )
quit ()
endif
else
$ = messagebox ('This Script requires a wordfile ' ,'File missing' ,4112 )
quit ()
endif
$frm = createobject ("Kixtart.Form" )
if val ($frm.Build ) < $ReqForms
$ = messagebox ('This Script requires Kixforms build ' + $ReqForms ,'Version check' ,4112 )
quit ()
endif
$frm.Size = 810 ,620
$frm.Caption = "UBB Postprep " + $Version
$frm.Icon = @scriptdir + "\Kix.ico"
$frm.Resizable = 1
$frm.MaxButton = 1
$frm.MinimumSize = 700 ,620
$frm.SizeGripStyle = 1
$frm.ClipChildren = 1
$lblPowered = $frm.Label ("Powered by" , $frm.ClientWidth -98 ,$frm.ClientHeight -115 ,90 ,20 )
$lblPowered.FontName = "Comic sans MS"
$lblPowered.FontBold = 1
$lblPowered.FontSize = 11
$lblPowered.ForeColor = Kixtart
$lblPowered.Anchor = 2 +8
$lblBuild = $frm.Label (" KiXtart " + $kix + @crlf
+ " and" + @crlf + " KiXforms build " + $frm.Build ,
$frm.ClientWidth -98 ,$frm.ClientHeight -90 ,90 ,40 )
$lblBuild.FontName = "Comic sans MS"
$lblBuild.FontBold = 1
$lblBuild.FontSize = 7
$lblBuild.ForeColor = Kixtart
$lblBuild.Anchor = 2 +8
$hypBoard = $frm.HyperLink ("Bulletin Board" ,$frm.ClientWidth -87 , $frm.ClientHeight -45 , 100 , 25 )
$hypBoard.Value = "http://www.kixtart.org/cgi-bin/ultimatebb.cgi?Category=1"
$hypBoard.ToolTip = $hypBoard.Value
$hypBoard.Anchor = 2 +8
$txtSource = $frm.TextBox (,3 ,5 )
$txtSource.Right = $frm.ClientWidth -110
$txtSource.Bottom = $frm.ClientHeight /2 -3
$txtSource.ScrollBars = 3
$txtSource.AcceptsTab = 1
$txtSource.FontName = "Courier New"
$txtSource.FontSize = 8
$txtSource.MultiLine = 1
$txtSource.Anchor = 1 +2 +4 +8
$txtSource.OnChange = "TextSource_Change()"
$txtTarget = $frm.TextBox (,3 ,5 + $txtSource.Bottom )
$txtTarget.Right = $frm.ClientWidth - 110
$txtTarget.Bottom = $frm.ClientHeight - 20
$txtTarget.ScrollBars = 3
$txtTarget.FontName = "Courier New"
$txtTarget.FontSize = 8
$txtTarget.MultiLine = 1
$txtTarget.Anchor = 2 +4 +8
$lblStatus1 = $frm.Label ("" ,3 ,$frm.ClientHeight -17 ,$frm.ClientWidth /3 *2 ,16 )
$lblStatus1.BorderStyle = 5
$lblStatus1.Anchor = 2 +4 +8
$lblStatus2 = $frm.Label ("" ,$lblStatus1.Right +3 ,$frm.ClientHeight -17 ,$frm.ClientWidth /3 -6 ,16 )
$lblStatus2.BorderStyle = 5
$lblStatus2.Anchor = 2 +8
$prg = $lblStatus2.ProgressBar
$prg.Size = $frm.ClientWidth /3 -8 ,13
$prg.Style = 1
$prg.BorderStyle = 0
$prg.Value = 0
$prg.ForeColor = DarkBlue
$prg.Visible = 0
$btnOpen = btn_Create ($frm ,"Open..." ,$txtTarget.Right +9 ,5 ,92 ,25 ,1 ,5 ,"btnOpen_Click()" ,1 ,"1+8" )
$btnClear = btn_Create ($frm ,"Clear" ,$txtTarget.Right +9 ,$btnOpen.Bottom ,92 ,25 ,44 ,5 ,"btnClear_Click()" ,0 ,"1+8" )
$btnKeyWords = btn_Create ($frm ,"Keywords..." ,$txtTarget.Right +9 ,$btnClear.Bottom ,92 ,25 ,41 ,5 ,"btnKeyWords_Click()" ,1 ,"1+8" )
$btnColor = btn_Create ($frm ,"Set Colors..." ,$txtTarget.Right +9 ,$btnKeyWords.Bottom ,92 ,25 ,17 ,5 ,"btnColor_Click()" ,1 ,"1+8" )
$fraFormat = $frm.GroupBox ("Convert:" ,$txtTarget.Right +9 ,$btnColor.Bottom +5 ,92 ,239 )
$fraFormat.Anchor = 1 +8
dim $Top
$Top = 17
for $i = 0 to ubound ($Sections )
$ = execute ("$$txtFormat$i = $$fraFormat.TextBox($$Sections[$i],6,$Top,80,20)" )
$ = execute ("$$txtFormat$i.Caption = $$Sections[$i]" )
$ = execute ("$$txtFormat$i.ForeColor = &" +readprofilestring ($Wordfile ,$Sections [$i ],'Color' ))
$ = execute ("$$txtFormat$i.FontBold = -" +val (readprofilestring ($Wordfile ,$Sections [$i ],'Bold' )))
$ = execute ("$$txtFormat$i.Locked = 2" )
$ = execute ("$$txtFormat$i.TabStop = 0" )
$ = execute ("$$Top = $$txtFormat$i.Bottom + 3" )
next
$chkShowStats = $fraFormat.CheckBox ("Statistics" ,6 , $txtFormat7.Bottom +4 ,80 ,15 )
$chkShowStats.Value = $ShowStatistics
$chkShowStats.onclic k = "chkShowStats_CLick($$chkShowStats.Value)"
$chkWordWrap = $fraFormat.CheckBox ("Borders" ,6 , $chkShowStats.Bottom +2 ,80 ,15 )
$chkWordWrap.Value = $wrap
$chkWordWrap.onclic k = "chkWordWrap_CLick($$chkWordWrap.Value)"
$btnConvert = btn_Create ($frm ,"Convert" ,$txtTarget.Right +9 ,$fraFormat.Bottom +10 ,92 ,25 ,36 ,5 ,"btnConvert_Click()" ,0 ,"1+8" )
$btnPreview = btn_Create ($frm ,"Preview" ,$txtTarget.Right +9 ,$btnConvert.Bottom ,92 ,25 ,43 ,5 ,"btnPreview_Click($$txtTarget.text)" ,0 ,"1+8" )
$btnCopy = btn_Create ($frm ,"Copy All" ,$txtTarget.Right +9 ,$btnPreview.Bottom ,92 ,25 ,7 ,5 ,"btnCopy_Click()" ,0 ,"1+8" )
$btnSave = btn_Create ($frm ,"Save As..." ,$txtTarget.Right +9 ,$btnCopy.Bottom ,92 ,25 ,3 ,5 ,"btnSave_Click()" ,0 ,"1+8" )
if vartype ($LastSize ) > 8192 and ubound ($LastSize ) > 0
if val ($LastSize [0 ]) > 810 and val ($LastSize [1 ]) > 620
$frm.Size = val ($LastSize [0 ]),val ($LastSize [1 ])
endif
endif
$txtSource.SetFocus
$frm.Center
$frm.Show
while $frm.Visible
$ = execute ($frm.DoEvents )
loop
$ = writeprofilestring ($Wordfile ,"Global" ,"FormSize" ,"" + $frm.ClientWidth + "," + $frm.ClientHeight )
function btn_Create ($ob ,$z1 ,$z2 ,$z3 ,$z4 ,$z5 ,$z6 ,$z7 ,$z8 ,$z9 ,$z10 )
dim $ ,$!
$ = "$$"
$! = execute ('$$btn_Create=$$ob.ToolButton("$z1",$z2,$z3,$z4,$z5)
$$btn_Create.Icon=$z6
$$btn_Create.BorderStyle=$z7
$$btn_Create.onclic k="$$z8"
$$btn_Create.Enabled=$z9
$$btn_Create.Anchor=$z10
' )
endfunction
function btnAdd_Click ()
$frmAdd = createobject ("Kixtart.Form" )
$frmAdd.Caption = "Add " + $cboSel.Text
$frmAdd.Size = 200 ,100
$frmAdd.Location = $frm.Right -400 ,$frm.Top +142
$frmAdd.SysMenu = 0
$txtAdd = $frmAdd.TextBox ("" ,13 ,10 ,150 ,20 )
$txtAdd.OnChange = "if $$txtAdd.Text < > '' and ascan($$" +$cboSel.Text +",$$txtAdd.Text)=-1 $$btnOk.Enabled=1 else $$btnOk.Enabled=0 endif"
$btnOk = $frmAdd.Button ("OK" ,$frmAdd.ClientWidth /2 -83 ,$frmAdd.ClientHeight -30 ,80 ,25 )
$btnOk.BorderStyle = 5
$btnOk.Enabled = 0
$btnOk.onclic k = "$$=$$lvw.Items.Add($$txtAdd.Text)
redim $$" +$cboSel.Text +"[0]
for $$i=1 to $$lvw.Items.Count redim preserve $$" +$cboSel.Text +"[$$i-1] $$" +$cboSel.Text +"[$$i-1]=$$lvw.Items($$i-1).Text next
$$=writeprofilestring($$Wordfile,$$cboSel.Text,'Words',join($$" +$cboSel.Text +",','))
for each $$item in $$lvw.SelectedItems $$Item.Selected = 0 next
$$txtAdd.SetFocus $$txtAdd.Text=''"
$btnEx = $frmAdd.Button ("Exit" ,$frmAdd.CLientWidth /2 +3 ,$frmAdd.ClientHeight -30 ,80 ,25 )
$btnEx.BorderStyle = 5
$btnEx.Cancel = 1
$btnEx.onclic k = "$$frmAdd=0"
$frmAdd.Show
$txtAdd.SetFocus
while $frmAdd.Visible
$ = execute ($frmAdd.DoEvents )
loop
endfunction
function btnClear_Click ()
$txtSource.Text = ''
$txtTarget.Text = ''
$lblStatus1.Text = ''
$btnSave.Enabled = 0
$btnCopy.Enabled = 0
$btnClear.Enabled = 0
$btnConvert.Enabled = 0
$btnPreview.Enabled = 0
endfunction
function btnColor_Click ()
dim $Left , $Top , $index
$index = 0 $Left = 7 $Top = 19
$frmDialog1 = createobject ("Kixtart.Form" )
$frmDialog1.Size = 245 ,233
$frmDialog1.Caption = "Set Colors"
$frmDialog1.Location = $frm.Right - $frmDialog1.ClientWidth - 120 , $frm.Top + $btnColor.Bottom - 2
$frmDialog1.ForeColor = MediumBlue
$frmDialog1.DrawWidth = 2
$frmDialog1.SysMenu = 0
$cboStrings = $frmDialog1.ComboBox
$cboStrings.List = $Sections
$cboStrings.Location = 5 ,8
$cboStrings.ListIndex = 0
$cboStrings.Style = 1
$cboStrings.Default = 1
$cboStrings.onclic k = "$$index = cboStrings_CLick($$Index,$$cboStrings.ListIndex)"
$chkBold = $frmDialog1.CheckBox ("Bold" ,112 ,11 ,50 ,15 )
$chkBold.onclic k = "chkBold_Click($$index)"
$chkBold.Value = val (readprofilestring ($Wordfile ,$Sections [0 ],"Bold" ))
$btnClose1 = $frmDialog1.Button ("Close" ,$frmDialog1.ClientWidth -75 ,7 ,70 ,25 )
$btnClose1.BorderStyle = 5
$btnClose1.Cancel = 1
$btnClose1.onclic k = "$$frmDialog1=0"
$fraColor = $frmDialog1.Frame ("Colors:" ,5 ,40 ,230 ,163 )
for $i = 0 to ubound ($CTable )
$ = execute ("$$lblColor$i = $$fraColor.Label('',$Left,$Top,20,18)" )
$ = execute ("$$lblColor$i.BorderStyle = 2" )
$ = execute ("$$lblColor$i.BackColor = &" + $CTable [$i ])
$ = execute ("$$lblColor$i.onclic k = 'Color_Change($$$$index,$i)'" )
$Left = $Left + 28
if $Left = 231
$Left = 7
$Top = $Top + 24
endif
next
$e = ascan ($CTable , $Colors [$index ])
$ = execute ("$$frmDialog1.Rectangle($$lblColor$e.Left+3,$$lblColor$e.Top+38,24,22)" )
$frm.Enabled = 0
$frmDialog1.Show
while $frmDialog1.Visible
$ = execute ($frmDialog1.DoEvents )
loop
$frm.Enabled = 1
endfunction
function btnConvert_Click ()
dim $StartTime , $EndTime , $HColors [7 ], $out , $i ,$fb
$txtSource.Locked = 2
$frm.MousePointer = 11
$prg.Visible = 1
$btnOpen.Enabled = 0
$btnKeyWords.Enabled = 0
$btnColor.Enabled = 0
$btnPreview.Enabled = 0
$btnCopy.Enabled = 0
$btnSave.Enabled = 0
$btnClear.Enabled = 0
for $i = 0 to ubound ($Colors )
$HColors [$i ] = right ($Colors [$i ],2 ) + substr ($Colors [$i ],3 ,2 ) + left ($Colors [$i ],2 )
$ = execute ("$$fb=''+$$fb+$$txtFormat$i.FontBold+' '" )
next
$fb =split (left ($fb ,len ($fb )-1 ))
$StartTime = @time + ':' + @msecs
$out = kix2htm ($txtSource.Text ,$HColors ,$fb ,$Functions ,$Commands ,$wrap )
$EndTime = @time + ':' + @msecs
$txtTarget.Text = $out [0 ]
$txtSource.Locked = 0
$frm.MousePointer = 0
$prg.Value = 0
$btnCopy.Enabled = 1
$btnPreview.Enabled = 1
$btnSave.Enabled = 1
$btnClear.Enabled = 1
$btnOpen.Enabled = 1
$btnKeyWords.Enabled = 1
$btnColor.Enabled = 1
$prg.Visible = 0
if $ShowStatistics
$ = ShowStats (DeltaTime ($StartTime , $EndTime ), $out [3 ], $out [4 ], $out [2 ], $out [1 ])
endif
endfunction
function btnCopy_Click ()
$txtTarget.SelStart = 0
$txtTarget.SelLength = -1
$txtTarget.Copy
endfunction
function btnDel_Click ()
dim $
if $lvw.SelectedItems.Count > 0 and $lvw.FocusedItem.Selected
$lvw.SelectedItems.clear
$ = execute ("redim $$" +$cboSel.Text +"[0]" )
for $i = 1 to $lvw.Items.Count
$ =execute ("redim preserve $$" +$cboSel.Text +"[$$i-1] $$" +$cboSel.Text +"[$$i-1]=$$lvw.Items($$i-1).Text" )
next
$ = execute ("$$=writeprofilestring($$Wordfile,$$cboSel.Text,'Words',join($$" +$cboSel.Text +",','))" )
endif
endfunction
function btnKeyWords_Click ()
dim $frmDialog2
$frm.Enabled = 0
$frmDialog2 = createobject ("Kixtart.form" )
$frmDialog2.Size = 400 ,380
$frmDialog2.Caption = "Maintain Keywords"
$frmDialog2.Location = $frm.Right -$frmDialog2.ClientWidth -120 ,$frm.Top +$btnKeyWords.Bottom -2
$frmDialog2.SysMenu = 0
$cboSel = $frmDialog2.ComboBox
$cboSel.List = "Commands" ,"Functions"
$cboSel.Location = 5 ,8
$cboSel.ListIndex = 0
$cboSel.Style = 1
$cboSel.onclic k = "cboSel_Click()"
$btnAdd = $frmDialog2.Button ("Add Keywords..." ,$cboSel.Right +5 ,5 ,95 ,25 )
$btnAdd.BorderStyle = 5
$btnAdd.onclic k = "btnAdd_Click()"
$btnDel = $frmDialog2.Button ("Delete Selected" ,$btnAdd.Right +5 ,5 ,95 ,25 )
$btnDel.BorderStyle = 5
$btnDel.onclic k = "btnDel_Click()"
$btnClose2 = $frmDialog2.Button ("Close" ,$frmDialog2.ClientWidth -75 ,5 ,70 ,25 )
$btnClose2.BorderStyle = 5
$btnClose2.Cancel = 1
$btnClose2.onclic k = "$$frmDialog2=0"
$lvw = $frmDialog2.ListView ()
$lvw.Left = 5
$lvw.Top = 35
$lvw.Right = $frmDialog2.ClientWidth -5
$lvw.Bottom = $frmDialog2.ClientHeight -5
$lvw.View = 3
$lvw.Gridlines = True
$lvw.MultiSelect = True
$lvw.Sorted = 1
for $i = 0 to ubound ($Commands )
$ = $lvw.Items.Add ($Commands [$i ])
next
for each $Item in $lvw.SelectedItems
$Item.Selected = 0
next
$frmDialog2.Show
while $frmDialog2.Visible
$ =execute ($frmDialog2.DoEvents )
loop
$frm.Enabled = 1
endfunction
function btnOpen_Click ()
dim $FileName , $nl
$FileName = $frm.FileOpenDialog ("Open" ,$PathOpen ,, "KiX Files|*.kix;*.udf;*.k2k;*.udf|All Files|*.*" ,1 )
if $FileName
$ = open (1 ,$Filename ,2 )
if not @error
$PathOpen = substr ($FileName ,1 ,instrrev ($FileName ,'\' )-1 )
$ = writeprofilestring ($Wordfile ,"Global" ,"PathOpen" ,$PathOpen )
$frm.MousePointer = 11
$lblStatus1.Caption = ""
$btnCopy.Enabled = 0
$btnSave.Enabled = 0
$btnClear.Enabled = 1
$txtTarget.Text = ""
$txtSource.Text = ""
$txtSource.BeginUpdate
dim $in
$nl = readline (1 )
while @error = 0
$in = $in + $nl + @crlf
$nl = readline (1 )
loop
$in = substr ($in ,1 ,instrrev ($in ,@crlf )-1 )
$ = close (1 )
$txtSource.Text = $in
$txtSource.EndUpdate
$frm.MousePointer = 0
$lblStatus1.Caption = " " + $FileName
if $txtSource.Text
$btnConvert.Enabled = 1
else
$btnConvert.Enabled = 0
endif
endif
endif
endfunction
function btnPreview_Click ($data )
dim $ie ,$doc ,$f ,$t ,$m
$ie = createobject ("internetexplorer.application" )
$ie.addressbar =0
$ie.menubar =0
$ie.toolbar =0
$ie.statusbar =0
$ie.navigate ("about:blank" )
$doc = $ie.document
$doc.write ("< html>< head>< title>PostPrep Preview< /title>< /head>" +join (split ($data ,@crlf ),"< br>" )+"< /html>" )
$ie.visible =1
if $frm.
while setfocus ("PostPrep Preview" ) sleep 0.01 loop
$frm.show (2 )
while $ie.visible sleep 0.04 loop
$frm.show (1 )
endfunction
function btnSave_Click ()
dim $file , $Output
$file = $frm.FileSaveDialog ("Save As" ,$PathSave ,, "HTML Files|*.html" ,0 )
if $file
$PathSave = substr ($File ,1 ,instrrev ($File ,'\' )-1 )
$ = writeprofilestring ($Wordfile ,"Global" ,"PathSave" ,$PathSave )
if not right ($file ,5 ) = '.html'
$file = $file + '.html'
endif
if exist ($file )
del $file
endif
$Output = join (split ($txtTarget.Text ,@crlf ),"< br>" )
$ = open (1 ,$file ,5 )
$ = writeline (1 ,$Output )
$ = close (1 )
endif
endfunction
function cboSel_Click ()
$lvw.BeginUpdate
for each $item in $lvw.Items
$item.Remove
next
$ = execute ("for each $$item in $$" +$cboSel.Text +" $$ = $$lvw.Items.Add($$item) next" )
for each $Item in $lvw.SelectedItems
$Item.Selected = 0
next
$lvw.EndUpdate
endfunction
function cboStrings_Click ($index ,$i )
dim $y , $c
$frmDialog1.ForeColor = $frmDialog1.BackColor
$e = ascan ($CTable , $Colors [$index ])
$ = execute ("$$frmDialog1.Rectangle($$lblColor$e.Left+3,$$lblColor$e.Top+38,24,22)" )
$ = execute ("if $$txtFormat$i.FontBold $$y = 1 endif" )
_________________________
Top
#92972 - 2003-09-25 02:20 PM
Re: PostPrep 1.0.3.2 -> Fixed build now remembers last size
Kdyer
KiX Supporter
Registered: 2001-01-03
Posts: 6241
Loc: Tigard, OR
Thank you! Looks much better. Kent
Top
#92975 - 2003-09-25 02:45 PM
Re: PostPrep 1.0.3.2 -> Fixed build now remembers last size
Howard Bullock
KiX Supporter
Registered: 2000-09-15
Posts: 5809
Loc: Harrisburg, PA USA
Now only if this could be applied to bbChecker
Top
#92977 - 2003-09-25 02:55 PM
Re: PostPrep 1.0.3.2 -> Fixed build now remembers last size
Jochen
KiX Supporter
Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
Actually this was quite trivial (Gawd ! I don't want to post this as 1.0.3.3 ) This will start in last screen position (see it as 'private build' ) :; UBB PostPrep 1.0.3.2 (Engine 1.1.0 beta 3)
; ----------------------------------------------------------------------------------------------
; MINIMUM REQUIREMENTS
;
; KIXTART 4.20 (WKiX32)
; KIXFORMS 2.3.0 Beta 3 (build 41)
; ----------------------------------------------------------------------------------------------
; AUTHORs
; Jochen Polster - Form, Controls, Design, Codestarter
; Jooel Nieminen - Conversion Engine !
; ----------------------------------------------------------------------------------------------
; ACKNOWLEDGEMENTS
; Shawn Tassie (for Kixforms of course!)
; Richard Howarth (for pointing out the < br>-tag Issue)
; All KiXtart Enthusiasts for which we wrote this
; ----------------------------------------------------------------------------------------------
; VERSION HISTORY
;
; 1.0.3.2 - 09/25/2003 Form now remembers last size (somehow lost in 1.0.3.1)
; http://www.kixtart.org/cgi-bin/ultimatebb.cgi?ubb=get_topic&f=13&t=000687
; 1.0.3.1 - 09/25/2003 Fixed to reflect changed Anchor Properties, new engine added
; http://www.kixtart.org/board/ultimatebb.php?ubb=get_topic;f=13;t=000686
;
; 1.0.3 - 03/17/2003 Form now resizable
; http://www.kixtart.org/board/ultimatebb.php?ubb=get_topic;f=13;t=000568
;
; 1.0.2 - 03/10/2003 replaced Buttons with ToolButtons
; http://www.kixtart.org/board/ultimatebb.php?ubb=get_topic;f=13;t=000562
;
; 1.0.1 - 01/28/2003 bug-fixes to conversion engine, optional WordWrap added
; http://www.kixtart.org/board/ultimatebb.php?ubb=get_topic;f=13;t=000512
;
; 1.0 - 01/27/2003 Initial worthwhile release
; http://www.kixtart.org/board/ultimatebb.php?ubb=get_topic;f=13;t=000510
;
; 0.9 A - different very buggy Alpha releases not worth to mention
;
; 0.9 P - Preview Version(s) discussed on kixtart.org Bulletin board
; http://www.kixtart.org/board/ultimatebb.php?ubb=get_topic;f=13;t=000426
; ----------------------------------------------------------------------------------------------
break on
$ = setascii ("on" )
$ReqForms = 41
$Version = "1.0.3.2"
$Wordfile = @scriptdir + '\Wordfile.ini'
$Kix = substr (@kix ,1 ,4 )
if $Kix < "4.20"
$ = messagebox ('This Script requires at least KiXtart 4.20 ' ,'Version Check' ,4112 )
quit ()
endif
Global $SourceText [0 ], $TargetText [0 ], $Colors [7 ], $PathOpen , $PathSave , $ShowStatistics , $wrap
$Sections = "Comments" ,"Strings" ,"Numbers" ,"Commands" ,"Functions" ,"Macros" ,"Operators" ,"Variables"
if exist ($Wordfile )
for $i = 0 to 7
$Colors [$i ] = readprofilestring ($Wordfile ,$Sections [$i ],"Color" )
next
$CTable = split (readprofilestring ($Wordfile ,"ColorTable" ,"Colors" ),',' )
$Commands = split (readprofilestring ($Wordfile ,"Commands" , "words" ),',' )
$Functions = split (readprofilestring ($Wordfile ,"Functions" , "words" ),',' )
$PathOpen = readprofilestring ($Wordfile ,"Global" ,"PathOpen" )
$PathSave = readprofilestring ($Wordfile ,"Global" ,"PathSave" )
$ShowStatistics = val (readprofilestring ($Wordfile ,"Global" ,"ShowStats" ))
$wrap = val (readprofilestring ($Wordfile ,"Global" ,"WordWrap" ))
$LastSize = split (readprofilestring ($Wordfile ,"Global" ,"FormSize" ),',' )
$LastLocation = split (readprofilestring ($Wordfile ,"Global" ,"FormLocation" ),',' )
if not ubound ($Commands )
or not ubound ($Functions )
or not ubound ($Colors )
$ = messagebox ('This Script requires a consistent wordfile' ,'File check' ,4112 )
quit ()
endif
else
$ = messagebox ('This Script requires a wordfile ' ,'File missing' ,4112 )
quit ()
endif
$frm = createobject ("Kixtart.Form" )
if val ($frm.Build ) < $ReqForms
$ = messagebox ('This Script requires Kixforms build ' + $ReqForms ,'Version check' ,4112 )
quit ()
endif
$frm.Size = 810 ,620
$frm.Caption = "UBB Postprep " + $Version
$frm.Icon = @scriptdir + "\Kix.ico"
$frm.Resizable = 1
$frm.MaxButton = 1
$frm.MinimumSize = 700 ,620
$frm.SizeGripStyle = 1
$frm.ClipChildren = 1
$lblPowered = $frm.Label ("Powered by" , $frm.ClientWidth -98 ,$frm.ClientHeight -115 ,90 ,20 )
$lblPowered.FontName = "Comic sans MS"
$lblPowered.FontBold = 1
$lblPowered.FontSize = 11
$lblPowered.ForeColor = Kixtart
$lblPowered.Anchor = 2 +8
$lblBuild = $frm.Label (" KiXtart " + $kix + @crlf
+ " and" + @crlf + " KiXforms build " + $frm.Build ,
$frm.ClientWidth -98 ,$frm.ClientHeight -90 ,90 ,40 )
$lblBuild.FontName = "Comic sans MS"
$lblBuild.FontBold = 1
$lblBuild.FontSize = 7
$lblBuild.ForeColor = Kixtart
$lblBuild.Anchor = 2 +8
$hypBoard = $frm.HyperLink ("Bulletin Board" ,$frm.ClientWidth -87 , $frm.ClientHeight -45 , 100 , 25 )
$hypBoard.Value = "http://www.kixtart.org/cgi-bin/ultimatebb.cgi?Category=1"
$hypBoard.ToolTip = $hypBoard.Value
$hypBoard.Anchor = 2 +8
$txtSource = $frm.TextBox (,3 ,5 )
$txtSource.Right = $frm.ClientWidth -110
$txtSource.Bottom = $frm.ClientHeight /2 -3
$txtSource.ScrollBars = 3
$txtSource.AcceptsTab = 1
$txtSource.FontName = "Courier New"
$txtSource.FontSize = 8
$txtSource.MultiLine = 1
$txtSource.Anchor = 1 +2 +4 +8
$txtSource.OnChange = "TextSource_Change()"
$txtTarget = $frm.TextBox (,3 ,5 + $txtSource.Bottom )
$txtTarget.Right = $frm.ClientWidth - 110
$txtTarget.Bottom = $frm.ClientHeight - 20
$txtTarget.ScrollBars = 3
$txtTarget.FontName = "Courier New"
$txtTarget.FontSize = 8
$txtTarget.MultiLine = 1
$txtTarget.Anchor = 2 +4 +8
$lblStatus1 = $frm.Label ("" ,3 ,$frm.ClientHeight -17 ,$frm.ClientWidth /3 *2 ,16 )
$lblStatus1.BorderStyle = 5
$lblStatus1.Anchor = 2 +4 +8
$lblStatus2 = $frm.Label ("" ,$lblStatus1.Right +3 ,$frm.ClientHeight -17 ,$frm.ClientWidth /3 -6 ,16 )
$lblStatus2.BorderStyle = 5
$lblStatus2.Anchor = 2 +8
$prg = $lblStatus2.ProgressBar
$prg.Size = $frm.ClientWidth /3 -8 ,13
$prg.Style = 1
$prg.BorderStyle = 0
$prg.Value = 0
$prg.ForeColor = DarkBlue
$prg.Visible = 0
$btnOpen = btn_Create ($frm ,"Open..." ,$txtTarget.Right +9 ,5 ,92 ,25 ,1 ,5 ,"btnOpen_Click()" ,1 ,"1+8" )
$btnClear = btn_Create ($frm ,"Clear" ,$txtTarget.Right +9 ,$btnOpen.Bottom ,92 ,25 ,44 ,5 ,"btnClear_Click()" ,0 ,"1+8" )
$btnKeyWords = btn_Create ($frm ,"Keywords..." ,$txtTarget.Right +9 ,$btnClear.Bottom ,92 ,25 ,41 ,5 ,"btnKeyWords_Click()" ,1 ,"1+8" )
$btnColor = btn_Create ($frm ,"Set Colors..." ,$txtTarget.Right +9 ,$btnKeyWords.Bottom ,92 ,25 ,17 ,5 ,"btnColor_Click()" ,1 ,"1+8" )
$fraFormat = $frm.GroupBox ("Convert:" ,$txtTarget.Right +9 ,$btnColor.Bottom +5 ,92 ,239 )
$fraFormat.Anchor = 1 +8
dim $Top
$Top = 17
for $i = 0 to ubound ($Sections )
$ = execute ("$$txtFormat$i = $$fraFormat.TextBox($$Sections[$i],6,$Top,80,20)" )
$ = execute ("$$txtFormat$i.Caption = $$Sections[$i]" )
$ = execute ("$$txtFormat$i.ForeColor = &" +readprofilestring ($Wordfile ,$Sections [$i ],'Color' ))
$ = execute ("$$txtFormat$i.FontBold = -" +val (readprofilestring ($Wordfile ,$Sections [$i ],'Bold' )))
$ = execute ("$$txtFormat$i.Locked = 2" )
$ = execute ("$$txtFormat$i.TabStop = 0" )
$ = execute ("$$Top = $$txtFormat$i.Bottom + 3" )
next
$chkShowStats = $fraFormat.CheckBox ("Statistics" ,6 , $txtFormat7.Bottom +4 ,80 ,15 )
$chkShowStats.Value = $ShowStatistics
$chkShowStats.onclic k = "chkShowStats_CLick($$chkShowStats.Value)"
$chkWordWrap = $fraFormat.CheckBox ("Borders" ,6 , $chkShowStats.Bottom +2 ,80 ,15 )
$chkWordWrap.Value = $wrap
$chkWordWrap.onclic k = "chkWordWrap_CLick($$chkWordWrap.Value)"
$btnConvert = btn_Create ($frm ,"Convert" ,$txtTarget.Right +9 ,$fraFormat.Bottom +10 ,92 ,25 ,36 ,5 ,"btnConvert_Click()" ,0 ,"1+8" )
$btnPreview = btn_Create ($frm ,"Preview" ,$txtTarget.Right +9 ,$btnConvert.Bottom ,92 ,25 ,43 ,5 ,"btnPreview_Click($$txtTarget.text)" ,0 ,"1+8" )
$btnCopy = btn_Create ($frm ,"Copy All" ,$txtTarget.Right +9 ,$btnPreview.Bottom ,92 ,25 ,7 ,5 ,"btnCopy_Click()" ,0 ,"1+8" )
$btnSave = btn_Create ($frm ,"Save As..." ,$txtTarget.Right +9 ,$btnCopy.Bottom ,92 ,25 ,3 ,5 ,"btnSave_Click()" ,0 ,"1+8" )
if vartype ($LastSize ) > 8192 and ubound ($LastSize ) > 0
if val ($LastSize [0 ]) > 810 and val ($LastSize [1 ]) > 620
$frm.Size = val ($LastSize [0 ]),val ($LastSize [1 ])
endif
endif
$txtSource.SetFocus
if vartype ($LastLocation ) > 8192 and ubound ($LastLocation ) > 0
$frm.Location = val ($LastLocation [0 ]),val ($LastLocation [1 ])
else
$frm.Center
endif
$frm.Show
while $frm.Visible
$ = execute ($frm.DoEvents )
loop
$ = writeprofilestring ($Wordfile ,"Global" ,"FormSize" ,"" + $frm.ClientWidth + "," + $frm.ClientHeight )
$ = writeprofilestring ($Wordfile ,"Global" ,"FormLocation" ,"" + $frm.Left + "," + $frm.Top )
function btn_Create ($ob ,$z1 ,$z2 ,$z3 ,$z4 ,$z5 ,$z6 ,$z7 ,$z8 ,$z9 ,$z10 )
dim $ ,$!
$ = "$$"
$! = execute ('$$btn_Create=$$ob.ToolButton("$z1",$z2,$z3,$z4,$z5)
$$btn_Create.Icon=$z6
$$btn_Create.BorderStyle=$z7
$$btn_Create.onclic k="$$z8"
$$btn_Create.Enabled=$z9
$$btn_Create.Anchor=$z10
' )
endfunction
function btnAdd_Click ()
$frmAdd = createobject ("Kixtart.Form" )
$frmAdd.Caption = "Add " + $cboSel.Text
$frmAdd.Size = 200 ,100
$frmAdd.Location = $frm.Right -400 ,$frm.Top +142
$frmAdd.SysMenu = 0
$txtAdd = $frmAdd.TextBox ("" ,13 ,10 ,150 ,20 )
$txtAdd.OnChange = "if $$txtAdd.Text < > '' and ascan($$" +$cboSel.Text +",$$txtAdd.Text)=-1 $$btnOk.Enabled=1 else $$btnOk.Enabled=0 endif"
$btnOk = $frmAdd.Button ("OK" ,$frmAdd.ClientWidth /2 -83 ,$frmAdd.ClientHeight -30 ,80 ,25 )
$btnOk.BorderStyle = 5
$btnOk.Enabled = 0
$btnOk.onclic k = "$$=$$lvw.Items.Add($$txtAdd.Text)
redim $$" +$cboSel.Text +"[0]
for $$i=1 to $$lvw.Items.Count redim preserve $$" +$cboSel.Text +"[$$i-1] $$" +$cboSel.Text +"[$$i-1]=$$lvw.Items($$i-1).Text next
$$=writeprofilestring($$Wordfile,$$cboSel.Text,'Words',join($$" +$cboSel.Text +",','))
for each $$item in $$lvw.SelectedItems $$Item.Selected = 0 next
$$txtAdd.SetFocus $$txtAdd.Text=''"
$btnEx = $frmAdd.Button ("Exit" ,$frmAdd.CLientWidth /2 +3 ,$frmAdd.ClientHeight -30 ,80 ,25 )
$btnEx.BorderStyle = 5
$btnEx.Cancel = 1
$btnEx.onclic k = "$$frmAdd=0"
$frmAdd.Show
$txtAdd.SetFocus
while $frmAdd.Visible
$ = execute ($frmAdd.DoEvents )
loop
endfunction
function btnClear_Click ()
$txtSource.Text = ''
$txtTarget.Text = ''
$lblStatus1.Text = ''
$btnSave.Enabled = 0
$btnCopy.Enabled = 0
$btnClear.Enabled = 0
$btnConvert.Enabled = 0
$btnPreview.Enabled = 0
endfunction
function btnColor_Click ()
dim $Left , $Top , $index
$index = 0 $Left = 7 $Top = 19
$frmDialog1 = createobject ("Kixtart.Form" )
$frmDialog1.Size = 245 ,233
$frmDialog1.Caption = "Set Colors"
$frmDialog1.Location = $frm.Right - $frmDialog1.ClientWidth - 120 , $frm.Top + $btnColor.Bottom - 2
$frmDialog1.ForeColor = MediumBlue
$frmDialog1.DrawWidth = 2
$frmDialog1.SysMenu = 0
$cboStrings = $frmDialog1.ComboBox
$cboStrings.List = $Sections
$cboStrings.Location = 5 ,8
$cboStrings.ListIndex = 0
$cboStrings.Style = 1
$cboStrings.Default = 1
$cboStrings.onclic k = "$$index = cboStrings_CLick($$Index,$$cboStrings.ListIndex)"
$chkBold = $frmDialog1.CheckBox ("Bold" ,112 ,11 ,50 ,15 )
$chkBold.onclic k = "chkBold_Click($$index)"
$chkBold.Value = val (readprofilestring ($Wordfile ,$Sections [0 ],"Bold" ))
$btnClose1 = $frmDialog1.Button ("Close" ,$frmDialog1.ClientWidth -75 ,7 ,70 ,25 )
$btnClose1.BorderStyle = 5
$btnClose1.Cancel = 1
$btnClose1.onclic k = "$$frmDialog1=0"
$fraColor = $frmDialog1.Frame ("Colors:" ,5 ,40 ,230 ,163 )
for $i = 0 to ubound ($CTable )
$ = execute ("$$lblColor$i = $$fraColor.Label('',$Left,$Top,20,18)" )
$ = execute ("$$lblColor$i.BorderStyle = 2" )
$ = execute ("$$lblColor$i.BackColor = &" + $CTable [$i ])
$ = execute ("$$lblColor$i.onclic k = 'Color_Change($$$$index,$i)'" )
$Left = $Left + 28
if $Left = 231
$Left = 7
$Top = $Top + 24
endif
next
$e = ascan ($CTable , $Colors [$index ])
$ = execute ("$$frmDialog1.Rectangle($$lblColor$e.Left+3,$$lblColor$e.Top+38,24,22)" )
$frm.Enabled = 0
$frmDialog1.Show
while $frmDialog1.Visible
$ = execute ($frmDialog1.DoEvents )
loop
$frm.Enabled = 1
endfunction
function btnConvert_Click ()
dim $StartTime , $EndTime , $HColors [7 ], $out , $i ,$fb
$txtSource.Locked = 2
$frm.MousePointer = 11
$prg.Visible = 1
$btnOpen.Enabled = 0
$btnKeyWords.Enabled = 0
$btnColor.Enabled = 0
$btnPreview.Enabled = 0
$btnCopy.Enabled = 0
$btnSave.Enabled = 0
$btnClear.Enabled = 0
for $i = 0 to ubound ($Colors )
$HColors [$i ] = right ($Colors [$i ],2 ) + substr ($Colors [$i ],3 ,2 ) + left ($Colors [$i ],2 )
$ = execute ("$$fb=''+$$fb+$$txtFormat$i.FontBold+' '" )
next
$fb =split (left ($fb ,len ($fb )-1 ))
$StartTime = @time + ':' + @msecs
$out = kix2htm ($txtSource.Text ,$HColors ,$fb ,$Functions ,$Commands ,$wrap )
$EndTime = @time + ':' + @msecs
$txtTarget.Text = $out [0 ]
$txtSource.Locked = 0
$frm.MousePointer = 0
$prg.Value = 0
$btnCopy.Enabled = 1
$btnPreview.Enabled = 1
$btnSave.Enabled = 1
$btnClear.Enabled = 1
$btnOpen.Enabled = 1
$btnKeyWords.Enabled = 1
$btnColor.Enabled = 1
$prg.Visible = 0
if $ShowStatistics
$ = ShowStats (DeltaTime ($StartTime , $EndTime ), $out [3 ], $out [4 ], $out [2 ], $out [1 ])
endif
endfunction
function btnCopy_Click ()
$txtTarget.SelStart = 0
$txtTarget.SelLength = -1
$txtTarget.Copy
endfunction
function btnDel_Click ()
dim $
if $lvw.SelectedItems.Count > 0 and $lvw.FocusedItem.Selected
$lvw.SelectedItems.clear
$ = execute ("redim $$" +$cboSel.Text +"[0]" )
for $i = 1 to $lvw.Items.Count
$ =execute ("redim preserve $$" +$cboSel.Text +"[$$i-1] $$" +$cboSel.Text +"[$$i-1]=$$lvw.Items($$i-1).Text" )
next
$ = execute ("$$=writeprofilestring($$Wordfile,$$cboSel.Text,'Words',join($$" +$cboSel.Text +",','))" )
endif
endfunction
function btnKeyWords_Click ()
dim $frmDialog2
$frm.Enabled = 0
$frmDialog2 = createobject ("Kixtart.form" )
$frmDialog2.Size = 400 ,380
$frmDialog2.Caption = "Maintain Keywords"
$frmDialog2.Location = $frm.Right -$frmDialog2.ClientWidth -120 ,$frm.Top +$btnKeyWords.Bottom -2
$frmDialog2.SysMenu = 0
$cboSel = $frmDialog2.ComboBox
$cboSel.List = "Commands" ,"Functions"
$cboSel.Location = 5 ,8
$cboSel.ListIndex = 0
$cboSel.Style = 1
$cboSel.onclic k = "cboSel_Click()"
$btnAdd = $frmDialog2.Button ("Add Keywords..." ,$cboSel.Right +5 ,5 ,95 ,25 )
$btnAdd.BorderStyle = 5
$btnAdd.onclic k = "btnAdd_Click()"
$btnDel = $frmDialog2.Button ("Delete Selected" ,$btnAdd.Right +5 ,5 ,95 ,25 )
$btnDel.BorderStyle = 5
$btnDel.onclic k = "btnDel_Click()"
$btnClose2 = $frmDialog2.Button ("Close" ,$frmDialog2.ClientWidth -75 ,5 ,70 ,25 )
$btnClose2.BorderStyle = 5
$btnClose2.Cancel = 1
$btnClose2.onclic k = "$$frmDialog2=0"
$lvw = $frmDialog2.ListView ()
$lvw.Left = 5
$lvw.Top = 35
$lvw.Right = $frmDialog2.ClientWidth -5
$lvw.Bottom = $frmDialog2.ClientHeight -5
$lvw.View = 3
$lvw.Gridlines = True
$lvw.MultiSelect = True
$lvw.Sorted = 1
for $i = 0 to ubound ($Commands )
$ = $lvw.Items.Add ($Commands [$i ])
next
for each $Item in $lvw.SelectedItems
$Item.Selected = 0
next
$frmDialog2.Show
while $frmDialog2.Visible
$ =execute ($frmDialog2.DoEvents )
loop
$frm.Enabled = 1
endfunction
function btnOpen_Click ()
dim $FileName , $nl
$FileName = $frm.FileOpenDialog ("Open" ,$PathOpen ,, "KiX Files|*.kix;*.udf;*.k2k;*.udf|All Files|*.*" ,1 )
if $FileName
$ = open (1 ,$Filename ,2 )
if not @error
$PathOpen = substr ($FileName ,1 ,instrrev ($FileName ,'\' )-1 )
$ = writeprofilestring ($Wordfile ,"Global" ,"PathOpen" ,$PathOpen )
$frm.MousePointer = 11
$lblStatus1.Caption = ""
$btnCopy.Enabled = 0
$btnSave.Enabled = 0
$btnClear.Enabled = 1
$txtTarget.Text = ""
$txtSource.Text = ""
$txtSource.BeginUpdate
dim $in
$nl = readline (1 )
while @error = 0
$in = $in + $nl + @crlf
$nl = readline (1 )
loop
$in = substr ($in ,1 ,instrrev ($in ,@crlf )-1 )
$ = close (1 )
$txtSource.Text = $in
$txtSource.EndUpdate
$frm.MousePointer = 0
$lblStatus1.Caption = " " + $FileName
if $txtSource.Text
$btnConvert.Enabled = 1
else
$btnConvert.Enabled = 0
endif
endif
endif
endfunction
function btnPreview_Click ($data )
dim $ie ,$doc ,$f ,$t ,$m
$ie = createobject ("internetexplorer.application" )
$ie.addressbar =0
$ie.menubar =0
$ie.toolbar =0
$ie.statusbar =0
$ie.navigate ("about:blank" )
$doc = $ie.document
$doc.write ("< html>< head>< title>PostPrep Preview< /title>< /head>" +join (split ($data ,@crlf ),"< br>" )+"< /html>" )
$ie.visible =1
if $frm.
while setfocus ("PostPrep Preview" ) sleep 0.01 loop
$frm.show (2 )
while $ie.visible sleep 0.04 loop
$frm.show (1 )
endfunction
function btnSave_Click ()
dim $file , $Output
$file = $frm.FileSaveDialog ("Save As" ,$PathSave ,, "HTML Files|*.html" ,0 )
if $file
$PathSave = substr ($File ,1 ,instrrev ($File ,'\' )-1 )
$ = writeprofilestring ($Wordfile ,"Global" ,"PathSave" ,$PathSave )
if not right ($file ,5 ) = '.html'
$file = $file + '.html'
endif
if exist ($file )
del $file
endif
$Output = join (split ($txtTarget.Text ,@crlf ),"< br>" )
$ = open (1 ,$file ,5 )
$ = writeline (1 ,$Output )
$ = close (1 )
endif
endfunction
function cboSel_Click ()
$lvw.BeginUpdate
for each $item in $lvw.Items
$item.Remove
next
$ = execute ("for each $$item in $$" +$cboSel.Text +" $$ = $$lvw.Items.Add($$item) next" )
for
_________________________
Top
#92979 - 2003-09-25 04:03 PM
Re: PostPrep 1.0.3.2 -> Fixed build now remembers last size
Shawn
Administrator
Registered: 1999-08-13
Posts: 8611
Ouch, that hurt my eyes. Well, its your call cappy but I'm sure we can trust our memberw with such a dangerous weapon ... still, nice job with postprep so far.
Top
#92985 - 2003-09-26 12:59 AM
Re: PostPrep 1.0.3.2 -> Fixed build now remembers last size
Shawn
Administrator
Registered: 1999-08-13
Posts: 8611
Pat, it hurt my eyes, it looks so much better now though (this coming from a guy with blue hair and a green face, see avitar)
Top
Moderator: Shawn , ShaneEP , Ruud van Velsen , Arend_ , Jochen , Radimus , Glenn Barnas , Allen , Mart
0 registered
and 557 anonymous users online.