Page 1 of 2 12>
Topic Options
#92969 - 2003-09-25 01:42 PM PostPrep 1.0.3.2 -> Fixed build now remembers last size
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
Sorry for that, but somehow this feature got lost in the last release [Roll Eyes]

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.onclick = "chkShowStats_CLick($$chkShowStats.Value)"

$chkWordWrap = $fraFormat.CheckBox("Borders",6, $chkShowStats.Bottom+2,80,15)
$chkWordWrap.Value = $wrap
$chkWordWrap.onclick = "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.onclick="$$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.onclick = "$$=$$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.onclick = "$$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.onclick = "$$index = cboStrings_CLick($$Index,$$cboStrings.ListIndex)"

$chkBold = $frmDialog1.CheckBox("Bold",112,11,50,15)
$chkBold.onclick = "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.onclick = "$$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.onclick = '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.onclick = "cboSel_Click()"

$btnAdd = $frmDialog2.Button("Add Keywords...",$cboSel.Right+5,5,95,25)
$btnAdd.BorderStyle = 5
$btnAdd.onclick = "btnAdd_Click()"

$btnDel = $frmDialog2.Button("Delete Selected",$btnAdd.Right+5,5,95,25)
$btnDel.BorderStyle = 5
$btnDel.onclick = "btnDel_Click()"

$btnClose2 = $frmDialog2.Button("Close",$frmDialog2.ClientWidth-75,5,70,25)
$btnClose2.BorderStyle = 5
$btnClose2.Cancel = 1
$btnClose2.onclick = "$$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
#92970 - 2003-09-25 02:05 PM Re: PostPrep 1.0.3.2 -> Fixed build now remembers last size
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
zip online now.
_________________________
!

download KiXnet

Top
#92971 - 2003-09-25 02:13 PM Re: PostPrep 1.0.3.2 -> Fixed build now remembers last size
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
oh.
if someone misses it...
word wrap is removed on behalf of something better and usefull.
_________________________
!

download KiXnet

Top
#92972 - 2003-09-25 02:20 PM Re: PostPrep 1.0.3.2 -> Fixed build now remembers last size
Kdyer Offline
KiX Supporter
*****

Registered: 2001-01-03
Posts: 6241
Loc: Tigard, OR
Thank you! Looks much better.

Kent
_________________________
Utilize these resources:
UDFs (Full List)
KiXtart FAQ & How to's

Top
#92973 - 2003-09-25 02:30 PM Re: PostPrep 1.0.3.2 -> Fixed build now remembers last size
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
duh,

as well missed to mention that the Wordwrap Checkbox is know called 'Borders' which will influence posting as shown here :

unchecked :

break on

$_ = setoption("ASCII","ON")

$a = 1
cls
while $a < 5 ;Change this value to get more or less numbers
$y = 1
while $y <= 80
$z = 1
while $z <= 20
at($z,$y) "$x " + chr($x)
$z = $z + 1
$x = $x + 1
loop
$y = $y + 10
loop
? shell "%comspec% /c pause"
$a = $a + 1
loop
exit


and checked :

break on

$_ = setoption("ASCII","ON")

$a = 1
cls
while $a < 5 ;Change this value to get more or less numbers
$y = 1
while $y <= 80
$z = 1
while $z <= 20
at($z,$y) "$x " + chr($x)
$z = $z + 1
$x = $x + 1
loop
$y = $y + 10
loop
? shell "%comspec% /c pause"
$a = $a + 1
loop
exit
_________________________



Top
#92974 - 2003-09-25 02:31 PM Re: PostPrep 1.0.3.2 -> Fixed build now remembers last size
Shawn Administrator Offline
Administrator
*****

Registered: 1999-08-13
Posts: 8611
Really nice job on the resizing guys, really
nice. Did someone mention that this form
remembers the last (saved) screen coords (or
just the size) ? Would it be possible to specify
a "background" color one day ?

-Shawn

[ 25. September 2003, 14:35: Message edited by: Shawn ]

Top
#92975 - 2003-09-25 02:45 PM Re: PostPrep 1.0.3.2 -> Fixed build now remembers last size
Howard Bullock Offline
KiX Supporter
*****

Registered: 2000-09-15
Posts: 5809
Loc: Harrisburg, PA USA
Now only if this could be applied to bbChecker [Wink]
_________________________
Home page: http://www.kixhelp.com/hb/

Top
#92976 - 2003-09-25 02:48 PM Re: PostPrep 1.0.3.2 -> Fixed build now remembers last size
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
Shawn,

it remembers only the Size by now and starts centered.

Maybe a good Idea though. Will check what I can do (for 1.1)

[ 25. September 2003, 14:48: Message edited by: Jochen ]
_________________________



Top
#92977 - 2003-09-25 02:55 PM Re: PostPrep 1.0.3.2 -> Fixed build now remembers last size
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
Actually this was quite trivial [Smile]

(Gawd ! I don't want to post this as 1.0.3.3 [Mad] )

This will start in last screen position (see it as 'private build' [Razz] ) :

; 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.onclick = "chkShowStats_CLick($$chkShowStats.Value)"

$chkWordWrap = $fraFormat.CheckBox("Borders",6, $chkShowStats.Bottom+2,80,15)
$chkWordWrap.Value = $wrap
$chkWordWrap.onclick = "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.onclick="$$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.onclick = "$$=$$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.onclick = "$$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.onclick = "$$index = cboStrings_CLick($$Index,$$cboStrings.ListIndex)"

$chkBold = $frmDialog1.CheckBox("Bold",112,11,50,15)
$chkBold.onclick = "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.onclick = "$$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.onclick = '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.onclick = "cboSel_Click()"

$btnAdd = $frmDialog2.Button("Add Keywords...",$cboSel.Right+5,5,95,25)
$btnAdd.BorderStyle = 5
$btnAdd.onclick = "btnAdd_Click()"

$btnDel = $frmDialog2.Button("Delete Selected",$btnAdd.Right+5,5,95,25)
$btnDel.BorderStyle = 5
$btnDel.onclick = "btnDel_Click()"

$btnClose2 = $frmDialog2.Button("Close",$frmDialog2.ClientWidth-75,5,70,25)
$btnClose2.BorderStyle = 5
$btnClose2.Cancel = 1
$btnClose2.onclick = "$$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
#92978 - 2003-09-25 03:13 PM Re: PostPrep 1.0.3.2 -> Fixed build now remembers last size
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
Background colors.

While J'lo was also thinking about this I was against such features ... see what might happen if we give this away [Eek!]

A real Eye Candy (Ouch!)
_________________________



Top
#92979 - 2003-09-25 04:03 PM Re: PostPrep 1.0.3.2 -> Fixed build now remembers last size
Shawn Administrator Offline
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 [Big Grin] ... still, nice job with postprep so far.
Top
#92980 - 2003-09-25 04:49 PM Re: PostPrep 1.0.3.2 -> Fixed build now remembers last size
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
I think the background should be red or black...
or as in old screen, green with yellow text [Wink]
or was it black bacground with green text?

but, I think captain is correct on this one.
jochen, you should remember that the postprepped size with current engine is 98,5k (previously 115k) and thus you shouldn't post too much of those giants in same thread.
don't want korg going to bed, do we? [Wink]

adding this kinda func in checker...
will see once get to coding the korg-browser.
not hard that way.
_________________________
!

download KiXnet

Top
#92981 - 2003-09-25 06:26 PM Re: PostPrep 1.0.3.2 -> Fixed build now remembers last size
NTDOC Administrator Offline
Administrator
*****

Registered: 2000-07-28
Posts: 11623
Loc: CA
Thanks Lonk and Jochen,

I've updated my other posting to reflect this post.

http://www.kixtart.org/cgi-bin/ultimatebb.cgi?ubb=get_topic&f=13&t=000685

Top
#92982 - 2003-09-25 11:20 PM Re: PostPrep 1.0.3.2 -> Fixed build now remembers last size
Sealeopard Offline
KiX Master
*****

Registered: 2001-04-25
Posts: 11164
Loc: Boston, MA, USA
Nitpick:

Just converted a script and the time display was
code:
06 seconds 235 milliseconds

Somehow I think that the extra zero in front fo the six should not be there [Big Grin]

Otherwise, nice job, especially on the resizing.
_________________________
There are two types of vessels, submarines and targets.

Top
#92983 - 2003-09-26 12:38 AM Re: PostPrep 1.0.3.2 -> Fixed build now remembers last size
Shawn Administrator Offline
Administrator
*****

Registered: 1999-08-13
Posts: 8611
How about the Font ! Can we do something about
the font ? Hopefully be able to make it smaller
than normal ? Say, be able to set the font in the
main window, then postprep will use the same
font in the converted output ?

Top
#92984 - 2003-09-26 12:54 AM Re: PostPrep 1.0.3.2 -> Fixed build now remembers last size
MightyR1 Offline
MM club member
*****

Registered: 1999-09-09
Posts: 1264
Loc: The Netherlands
Jochen,

please forgive me for hurting your eyes... [Razz]

Better now???
_________________________
Greetz,
Patrick Rutten

- We'll either find a way or make one...
- Knowledge is power; knowing how to find it is more powerful...
- Problems don't exist; they are challenges...

Top
#92985 - 2003-09-26 12:59 AM Re: PostPrep 1.0.3.2 -> Fixed build now remembers last size
Shawn Administrator Offline
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) [Big Grin]
Top
#92986 - 2003-09-26 01:05 AM Re: PostPrep 1.0.3.2 -> Fixed build now remembers last size
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
no.
too grey [Wink]
_________________________
!

download KiXnet

Top
#92987 - 2003-09-26 07:29 AM Re: PostPrep 1.0.3.2 -> Fixed build now remembers last size
MightyR1 Offline
MM club member
*****

Registered: 1999-09-09
Posts: 1264
Loc: The Netherlands
OK OK

changed it once again... And this will be the last time!!!
_________________________
Greetz,
Patrick Rutten

- We'll either find a way or make one...
- Knowledge is power; knowing how to find it is more powerful...
- Problems don't exist; they are challenges...

Top
#92988 - 2003-09-26 07:45 AM Re: PostPrep 1.0.3.2 -> Fixed build now remembers last size
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
XPerience candy !

pat, I think your colors are sweet [Wink]
_________________________
!

download KiXnet

Top
Page 1 of 2 12>


Moderator:  Shawn, ShaneEP, Ruud van Velsen, Arend_, Jochen, Radimus, Glenn Barnas, Allen, Mart 
Hop to:
Shout Box

Who's Online
0 registered and 557 anonymous users online.
Newest Members
gespanntleuchten, DaveatAdvanced, Paulo_Alves, UsTaaa, xxJJxx
17864 Registered Users

Generated in 0.038 seconds in which 0.014 seconds were spent on a total of 13 queries. Zlib compression enabled.

Search the board with:
superb Board Search
or try with google:
Google
Web kixtart.org