You are not logged in. [Log In] KiXtart.org website » Forums » KiXtart » COM Scripting » KiXforms - PostPrep 0.9 (Preview)
Register User       Forum List       Calendar       FAQ
Page 2 of 2 <12
Topic Options
#90255 - 2002-12-05 04:10 PM Re: KiXforms - PostPrep 0.9 (Preview)
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
I might also do :

code:
$picChoice.OnClick     = "$$picChoice.Point($$picChoice.MouseX,$$picChoice.MouseY) ?"
which returns the color (in a strange way though)

... 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)
_________________________



Top
#90256 - 2002-12-05 04:23 PM Re: KiXforms - PostPrep 0.9 (Preview)
Shawn Administrator Offline
Administrator
*****

Registered: 1999-08-13
Posts: 8611
Heres a method for generating a quick palette - ripped from KiXtart PiXaso Paint:

code:
Break 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
Top
#90257 - 2002-12-05 04:37 PM Re: KiXforms - PostPrep 0.9 (Preview)
Shawn Administrator Offline
Administrator
*****

Registered: 1999-08-13
Posts: 8611
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.
Top
#90258 - 2002-12-05 08:55 PM Re: KiXforms - PostPrep 0.9 (Preview)
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
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:
;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
TODO :

-> (maybe) a Listview subform to maintain Keywords
-> The convert thingie of course !
-> Select / Copy buttons for TargetTestBox

J.
_________________________



Top
#90259 - 2002-12-05 09:11 PM Re: KiXforms - PostPrep 0.9 (Preview)
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
[Eek!]

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 [Wink]

Very cool !
_________________________



Top
#90260 - 2002-12-05 09:24 PM Re: KiXforms - PostPrep 0.9 (Preview)
Shawn Administrator Offline
Administrator
*****

Registered: 1999-08-13
Posts: 8611
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.
Top
#90261 - 2002-12-05 09:29 PM Re: KiXforms - PostPrep 0.9 (Preview)
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
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
_________________________



Top
#90262 - 2002-12-05 09:31 PM Re: KiXforms - PostPrep 0.9 (Preview)
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
{edit}

Whoopsie .. it said Server connection was reset, so I tried to repost [Roll Eyes] [Embarrassed]

[ 05. December 2002, 21:33: Message edited by: jpols ]
_________________________



Top
#90263 - 2002-12-05 09:35 PM Re: KiXforms - PostPrep 0.9 (Preview)
Shawn Administrator Offline
Administrator
*****

Registered: 1999-08-13
Posts: 8611
Might want to allow for a cancel button on the ColorDialog. Or maybe cancel changes through clicking the [x] box in title bar ?
Top
#90264 - 2002-12-05 09:36 PM Re: KiXforms - PostPrep 0.9 (Preview)
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
If you watch the processing closely you will see that the changes are immediately made on the main form [Wink]
_________________________



Top
#90265 - 2002-12-05 09:40 PM Re: KiXforms - PostPrep 0.9 (Preview)
Shawn Administrator Offline
Administrator
*****

Registered: 1999-08-13
Posts: 8611
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.
Top
#90266 - 2002-12-05 09:52 PM Re: KiXforms - PostPrep 0.9 (Preview)
Shawn Administrator Offline
Administrator
*****

Registered: 1999-08-13
Posts: 8611
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.
Top
#90267 - 2002-12-05 10:06 PM Re: KiXforms - PostPrep 0.9 (Preview)
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
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 [Big Grin]

Ah, and expect this thing to work at the weekend ... If nothing comes between me and my Keyboard [Big Grin]

{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 ]
_________________________



Top
#90268 - 2002-12-06 08:38 AM Re: KiXforms - PostPrep 0.9 (Preview)
Jochen Administrator Offline
KiX Supporter
*****

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

-> already have a button (Yes, only the button [Big Grin] ) 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 [Eek!]

But thats also as maybe

[ 06. December 2002, 08:52: Message edited by: jpols ]
_________________________



Top
#90269 - 2002-12-26 08:11 PM Re: KiXforms - PostPrep 0.9 (Preview)
Crazy Eddie Offline
Starting to like KiXtart

Registered: 2002-11-20
Posts: 105
Loc: Sacramento, CA USA
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
_________________________
{Insert your favorite Witty Tag Line here}

Top
#90270 - 2002-12-26 08:59 PM Re: KiXforms - PostPrep 0.9 (Preview)
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
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 [Wink] )

hth

Jochen
_________________________



Top
Page 2 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 987 anonymous users online.
details
Newest Members
StuTheCoder, M_Moore, BeeEm, min_seow, Audio
17884 Registered Users
My Cookies · Mark all read Powered by UBB.threads™ Contact Us · KiXtart.org website · Top

Generated in 0.066 seconds in which 0.025 seconds were spent on a total of 11 queries. Zlib compression enabled.
Search the board with:
superb Board Search
or try with google:
Google
Web kixtart.org