;#############################################################################
;# Author: N_T_H                                                             #
;#                                                                           #
;# Description:  myCSS.pcp                                                   #
;#                                                                           #
;#               I didn't use the %valueprompt% for all the items            #
;#               that make use of the %valuebox%, but it could be used       #
;#               to make each item more easily identified, when entering     #
;#               values.                                                     #
;#               *Note*    see the "background" property                     #
;#                                                                           #
;# Version: 1.0  "no tables item yet"                                        #
;#                                                                           #
;#                                                                           #
;# Date: 2/12/02 8:38 AM                                                     #
;#                                                                           #
;# Web site:  http://www24.brinkster.com/netsearcher/default.htm             #
;#############################################################################
[CSS2 ref]
#run http://www.w3.org/TR/REC-CSS2/cover.html

[comment]
/*%sp%%^%%sp%*/
#goto @end

[selectors]
#set %varelement%=body;p;div;span;*;
#inputdlg([i=list;v=%element%;d=1]Enter selector, or choose from the drop-list:=%varelement%)
#if %element%=%cl% #then #goto @end
%element% {%^%}
#goto @end

[selector w/child]
#set %varelement%=body;p;div;span;*;
#inputdlg([i=list;v=%element%;d=1]Enter containing selector, or choose from the drop-list:=%varelement%)
#set %varelement2%=body;p;div;span;
#inputdlg([i=list;v=%element2%;d=1]Enter child selector, or choose from the drop-list:=%varelement2%)
%element% > %element2% {%^%}
#goto @end

[id]
#inputdlg([v=%elementname%]Enter the element name:)
#if %elementname%=%cl% #then #goto @end
%lg%%elementname% {%^%}
#goto @end

[class]
#inputdlg([v=%elementclass%]Enter class name:)
#if %elementclass%=%cl% #then #goto @end
.%elementclass% {%^%}
#goto @end

[pseudo class]
#set %pseudoclass%=first-child;link;visited;hover;active;focus;lang;first-line;first-letter;before;after
#set %varselector%=a;p;div;span
#inputdlg([i=list;v=%pseudoelement%;d=1]Enter selector name, or select from the drop-list:=%varselector%)
#if %pseudoelement%=%cl% #then #goto @end
#inputdlg([i=list;v=%pseudo%;d=2]Select Pseudo Class:=%pseudoclass%)
#if %pseudo%=%cl% #then #goto @end
%pseudoelement%%co%%pseudo% {%^%}
#goto @end

[text]
#set %textprop%=text-align;text-indent;text-decoration;text-transform;text-shadow;letter-spacing;word-spacing;white-space
#inputdlg([i=list;v=%selprop%;d=1]Select text property:=%textprop%)
#if %selprop%=%cl% #then #goto @end
#if %selprop%=text-align #then #goto @gettxtalign
#if %selprop%=text-decoration #then #goto @gettxtdec
#if %selprop%=text-indent #then #goto @gettxtindnt
#if %selprop%=text-shadow #then #goto @gettxtshadow
#if %selprop%=text-transform #then #goto @gettxttrans
#if %selprop%=letter-spacing #then #goto @getletrspc
#if %selprop%=word-spacing #then #goto @getwrdspc
#if %selprop%=white-space #then #goto @getwhtspc
@gettxtalign
#set %valuename%=text-align
#set %tempval%=left;center;right;justify;inherit
#goto @valuebox
@gettxtdec
#set %valuename%=text-decoration
#set %tempval%=none;underline;overline;line-through;blink;inherit
#goto @valuebox
@gettxttrans
#set %valuename%=text-transform
#set %tempval%=capitalize;uppercase;lowercase;inherit
#goto @valuebox
@gettxtshadow
#showmessage I haven't checked to see if this property is supported!
#goto @end
@gettxtindnt
#set %valuename%=text-indent
#goto @valuebox
@getletrspc
#set %valuename%=letter-spacing
#goto @valuebox
@getwrdspc
#set %valuename%=word-spacing
#goto @valuebox
@getwhtspc
#set %valuename%=white-space
#set %tempval%=pre;nowrap;inherit
#goto @valuebox

[color]
color%co%%sp%
#cmd InsColorCmd
%sc%%sp%%^%
#goto @end

[background]
#set %backprop%=background;background-color;background-image;background-repeat;background-position;background-attachment
#inputdlg([i=list;v=%selprop%;d=1]Select Property:=%backprop%)
#if %selprop%=%cl% #then #goto @end
#if %selprop%=background #then #set %valuename%=background #set %valueprompt%=*NOTE*%cr%This property can contain color, image, position, repeat, and attachment values #goto @valuebox
#if %selprop%=background-color #then #goto @getbgcolor
#if %selprop%=background-image #then #goto @getimage
#if %selprop%=background-repeat #then #goto @getrepeat
#if %selprop%=background-position #then #goto @getposition
#if %selprop%=background-attachment #then #goto @getattachment
@getbgcolor
%selprop%%co%%sp%
#cmd InsColorCmd
%sc%%sp%%^%
#goto @end
@getimage
#set %valuename%=background-image
#set %tempval%=http%co%//www.;www.;images/;../images
#goto @imagebox

@getrepeat
#set %valuename%=background-repeat
#set %tempval%=no-repeat;repeat-x;repeat-y;inherit
#goto @valuebox

@getposition
#set %valuename%=background-position
#set %tempval%=center;top;bottom;left;right;inherit
#goto @valuebox

@getattachment
#set %valuename%=background-attachment
#set %tempval%=fixed;inherit
#goto @valuebox

[font]
#set %fontprop%=font;font-family;font-style;font-variant;font-weight;font-size
#inputdlg([i=list;v=%selprop%;d=1]Select font property:=%fontprop%)
#if %selprop%=%cl% #then #goto @end
#if %selprop%=font #then #goto @getfontvalue
#if %selprop%=font-family #then #goto @getfontfamily
#if %selprop%=font-style #then #goto @getfontstyle
#if %selprop%=font-variant #then #goto @getfontvariant
#if %selprop%=font-weight #then #goto @getfontweight
#if %selprop%=font-size #then #goto @getfontsize


@getfontfamily
#set %valuename%=font-family
;# Fill the list here with as many or few fonts as you need
;# Make sure to quote multi word fonts
#set %tempval%=serif;sans-serif;cursive;fantasy;monospace;Algerian;%qu%Comic Sans MS%qu%;%qu%Freestyle Script%qu%;%qu%French Script MT%qu%;Georgia;Harrington;%qu%Holidays MT%qu%;
#goto @valuebox
@getfontstyle
#set %valuename%=font-style
#set %tempval%=italic;oblique;inherit
#goto @valuebox
@getfontvariant
#set %valuename%=font-variant
#set %tempval%=small-caps;inherit
#goto @valuebox
@getfontweight
#set %valuename%=font-weight
#set %tempval%=bold;bolder;lighter;100;200;300;400;500;600;700;800;900
#goto @valuebox
@getfontsize
#set %valuename%=font-size
#set %tempval%=xx-small;small;medium;large;x-large;xx-large;larger;smaller;
#goto @valuebox
@getfontvalue
#inputdlg([v=%selval%]Enter font value('s), font family names with more than one word must be in quotes.)
#goto @finish




[margin]
#set %marginprop%=margin;margin-top;margin-right;margin-bottom;margin-left;
#inputdlg([i=list;v=%selprop%;d=1]Select margin property from the drop-list:=%marginprop%)
#if %selprop%=%cl% #then #goto @end
#if %selprop%=margin #then #inputdlg([v=%selval%]LEAVE OFF LAST SEMI-COLON!%cr%Enter margin values%cr%One value sets all sides%cr%Two values set top and bottom first, left and right second%cr%Three values set top first,left and right second, and bottom third%cr%Four is self explanitory) #else #inputdlg([v=%selval%]Enter value:)
#goto @finish

[padding]
#set %paddingprop%=padding;padding-top;padding-right;padding-bottom;padding-left;
#inputdlg([i=list;v=%selprop%;d=1]Select padding property from the drop-list:=%paddingprop%)
#if %selprop%=%cl% #then #goto @end
#if %selprop%=padding #then #inputdlg([v=%selval%]LEAVE OFF LAST SEMI-COLON!%cr%Enter padding values%cr%One value sets all sides%cr%Two values set top and bottom first, left and right second%cr%Three values set top first,left and right second, and bottom third%cr%Four is self explanitory) #else #inputdlg([v=%selval%]Enter value:)
#goto @finish

[border]
#set %varbordervalue%=thin;medium;thick
#set %borderprop%=border;border-width;border-top;border-right;border-bottom;border-left;border-top-width;border-right-width;border-bottom-width;border-left-width;border-color;border-top-color;border-right-color;border-bottom-color;border-left-color;border-style;border-top-style;border-right-style;border-bottom-style;border-left-style;
#inputdlg([i=list;v=%selprop%;d=1]Select border property:=%borderprop%)
#if %selprop%=%cl%  #then #goto @end
#if %selprop%=border #then #set %valuename%=border #goto @valuebox
#if %selprop%=border-top #then #set %valuename%=border-top #goto @valuebox
#if %selprop%=border-right #then #set %valuename%=border-right #goto @valuebox
#if %selprop%=border-bottom #then #set %valuename%=border-bottom #goto @valuebox
#if %selprop%=border-left #then #set %valuename%=border-left #goto @valuebox
#if %selprop%=border-width #then #set %valuename%=border-width #set %tempval%=thin;medium;thick;inherit #goto @valuebox
#if %selprop%=border-top-width #then #set %valuename%=border-top-width #set %tempval%=thin;medium;thick;inherit #goto @valuebox
#if %selprop%=border-right-width #then #set %valuename%=border-right-width #set %tempval%=thin;medium;thick;inherit #goto @valuebox
#if %selprop%=border-bottom-width #then #set %valuename%=border-bottom-width #set %tempval%=thin;medium;thick;inherit #goto @valuebox
#if %selprop%=border-left-width #then #set %valuename%=border-left-width #set %tempval%=thin;medium;thick;inherit #goto @valuebox
#if %selprop%=border-color #then #set %valuename%=border-color #goto @getcolor
#if %selprop%=border-top-color #then #set %valuename%=border-top-color #goto @getcolor
#if %selprop%=border-right-color #then #set %valuename%=border-right-color #goto @getcolor
#if %selprop%=border-bottom-color #then #set %valuename%=border-bottom-color #goto @getcolor
#if %selprop%=border-left-color #then #set %valuename%=border-left-color #goto @getcolor
#if %selprop%=border-style #then #set %valuename%=border-style #goto @getstyle
#if %selprop%=border-top-style #then #set %valuename%=border-top-style #goto @getstyle
#if %selprop%=border-right-style #then #set %valuename%=border-right-style #goto @getstyle
#if %selprop%=border-bottom-style #then #set %valuename%=border-bottom-style #goto @getstyle
#if %selprop%=border-left-style #then #set %valuename%=border-left-style #goto @getstyle
@getcolor
#set %tempval%=red;green;blue;black;silver;gray;white;maroon;purple;fuchsia;lime;olive;yellow;navy;teal;aqua
#showmessage @%sp%To insert hexidecimal color values in the border-color properties,%cr%%cr%@%sp%Or to insert more than one color value in the border-color property:%cr%%cr%@%sp%Simply choose insert HTML color from the menu!%cr%%cr%Or press Ctrl+H!
#goto @valuebox
@getstyle
#set %tempval%=none;hidden;dotted;dashed;solid;double;grooved;ridge;inset;outset;inherit
#goto @valuebox

[display]
#set %selprop%=display
#set %valuename%=display
#set %tempval%=inline;block;list-item;marker;none;run-in;compact;table;inline-table;table-row-group;table-column;table-column-group;table-header-group;table-footer-group;table-row;table-cell;table-caption;inherit
#goto @valuebox

[position]
#set %selprop%=position
#set %valuename%=position
#set %tempval%=absolute;relative;fixed;static;inherit
#goto @valuebox

[top,right,bottom,left]
#set %varside%=top;right;bottom;left
#inputdlg([i=list;v=%selprop%;d=1]Select side from the drop-list:=%varside%)
#if %selprop%=top #then #set %valuename%=top
#if %selprop%=right #then #set %valuename%=right
#if %selprop%=bottom #then #set %valuename%=bottom
#if %selprop%=left #then #set %valuename%=left
#set %valueprompt%Any valid length, or percentage
#goto @valuebox

[width]
#set %selprop%=width
#set %valuename%=width
#goto @valuebox

[height]
#set %selprop%=height
#set %valuename%=height
#goto @valuebox


[line-height]
#set %selprop%=line-height
#set %valuename%=line-height
#goto @valuebox

[vertical-align]
#set %selprop%=vertical-align
#set %valuename%=vertical-align
#set %tempval%=baseline;middle;top;bottom;sub;super;text-top;text-bottom;inherit
#set %valueprompt%=Any valid length or percentage,%cr%Or select from the drop-list.
#goto @valuebox

[float]
#set %selprop%=float
#set %valuename%=float
#set %tempval%=none;left;right;inherit
#goto @valuebox

[clear]
#set %selprop%=clear
#set %valuename%=clear
#set %tempval%=none;left;right;both;inherit
#goto @valuebox

[visibility]
#set %selprop%=visibility
#set %valuename%=visibility
#set %tempval%=visible;hidden;collapse;inherit
#goto @valuebox

[z-index]
#set %selprop%=z-index
#set %valuename%=z-index
#set %tempval%=auto;inherit
#goto @valuebox

[list-style]
#set %varliststyle%=list-style;list-style-type;list-style-position;list-style-image
#inputdlg([i=list;v=%selprop%;d=1]Select list-style property from the drop-list:=%varliststyle%)
#if %selprop%=%cl% #then #goto @end
#if %selprop%=list-style #then #goto @getliststyle
#if %selprop%=list-style-type #then #goto @gettype
#if %selprop%=list-style-position #then #goto @getlistposition
#if %selprop%=list-style-image #then #goto @getlistimage
@getliststyle
#set %valuename%=list-style
#goto @valuebox
@gettype
#set %valuename%=list-style-type
#set %tempval%=disc;circle;square;decimal;decimal-leading-zero;lower-roman;upper-roman;hebrew;georgian;armenian;cjk-ideogeographic;lower-latin;upper-latin;lower-greek;hiragana;hiragana-iroha;katakana-iroha;none;inherit
#goto @valuebox
@getlistposition
#set %valuename%=list-style-position
#set %tempval%=inside;outside;inherit
#goto @valuebox
@getlistimage
#set %valuename%=list-style-image
#set %tempval%=http%co%//www.;www.;images/;../images
#goto @imagebox

[tables]
#showmessage I haven't experimented with the css2 table properties.%cr%%cr%%cr%I'll add this section soon.%sp%%sp%%sp%N_T_H
#goto @end

@nolist
#inputdlg([v=%selval%]%valueprompt%%cr%%cr%%cr%Enter the value('s) for the %valuename% property:)
#if %selval%=%cl% #then #goto @end
#goto @finish
@valuebox
#if %selprop%=%cl% #then #goto @end
#if %tempval%=%cl% #then #goto @nolist
#inputdlg([i=list;v=%selval%;d=1]%valueprompt%%cr%%cr%%cr%Enter the value('s) for the %valuename% property:%cr%%cr%Or select from the drop-list.=%tempval%)
@finish
#if %selval%=%cl% #then #goto @end
%selprop%%co%%sp%%selval%%sc%%sp%%^%
#goto @end
@imagebox
#if %selprop%=%cl% #then #goto @end
#inputdlg([i=list;v=%selval%;d=1]%valueprompt%%cr%%cr%%cr%Enter the value('s) for the %valuename% property:%cr%%cr%Or select from the drop-list.=%tempval%)
%selprop%%co%%sp%url(%qu%%selval%%qu%)%sc%%sp%%^%