. Support library eImgConverter

. Support library eAPI

Support library shellEx

. Support library shell. Assemble window assembly 6. Select subroutine _ list box 1_ list item.

. Handle of local variable wallpaper, integer picture frame 1. Picture = read file (list box 1. Take the project text (list box 1. Take the focus item ())

Wallpaper handle = loaded picture (picture frame 1. Picture)

Label 5. Title = "width:"+ to text (Sketchpad 1. Take the picture width (wallpaper handle))

Label 6. Title = "Height:"+ to the text (Sketchpad 1. Take the height of the picture (wallpaper handle))

Unload the picture (wallpaper handle). Subroutine _ list box 1_ Double-click to select.

. Local variable wallpaper file name, text current wallpaper = list box 1. Get focus item ()

File name of wallpaper = list box 1. Take the project text (current wallpaper).

If it is true (change it to uppercase (take the right side of the text (wallpaper file name, 4)) 8800; "。 BMP”)

If true (converted to BMP (wallpaper file name, program directory+"wallpaper. BMP") = 1)

File name of wallpaper = program directory+"wallpaper.bmp"

If it's over. If it's over

. Judgment begins (radio box 1. Selected)

Set the desktop wallpaper (wallpaper file name, 1)

Judge (radio box 2. Select)

Set the desktop wallpaper (wallpaper file name, 2)

. default

Set desktop wallpaper (wallpaper file name, 0)

The trial is over

. Subroutine box 4 is clicked. If (box 4. Selected = true)

_ Start the window. Clock 2. Clock period = to value (edit box 2. Content) × 60000.

Edit box 2. Forbidden = false

Otherwise.

Edit box 2. Forbidden = true

_ Start the window. Clock 2. Clock period = 0

If it's over

The subroutine _ wallpaper management _ will be destroyed.

. Local variable saves wallpaper file, integer type.

. Local variable wallpaper loop, integer save wallpaper file = open file (program directory +"wallab. ini "，4，)

Clear array (wallpaper list)

. If true (save wallpaper file ≠ 0)

. Calculate the period first (list box 1. Number of items taken (), wallpaper cycle)

Write a line of text (save wallpaper file, list box 1. Shooting project text (wallpaper loop-1))

Join a member (wallpaper list, list box 1. Take the project text (wallpaper loop-1))

. Count cycle tail ()

Close file (save wallpaper file)

If it's over.

If (check box 4. Check)

_ Start the window. Clock 2. Clock period = to value (edit box 2. Content) × 60000.

Write configuration item (program directory+"clock. Ini ","change wallpaper ","interval ",edit box 2. Content)

Write configuration item (program directory+"clock. Ini ","change wallpaper ","automatic change ","y ")

Otherwise.

_ Start the window. Clock 2. Clock period = 0

Write configuration item (program directory+"clock. Ini ","change wallpaper ","automatic change ","n ")

Write configuration item (program directory+"clock. Ini ","change wallpaper ","interval ","")

If it's over

Judgment begins (radio box 2. Select)

Write configuration item (program directory+"clock. Ini ","change wallpaper ","display mode ","2 ")

Judge (radio box 1. Select)

Write configuration item (program directory+"clock. Ini, change wallpaper, display mode, 1).

. default

Write configuration item (program directory+"clock. Ini ","change wallpaper ","display mode ","0 ")

The trial is over

Subroutine _ Wallpaper Management _ Created.

The local variable takes the wallpaper period value as an integer. If true (take the number of array members (wallpaper list) > 0).

. Calculate the loop header (take the number of array members (wallpaper list) and wallpaper loop value)

If true (whether the file exists (wallpaper list [take wallpaper cycle value]))

List box 1. Add one item (wallpaper list [take wallpaper cycle value],)

. If it's over. Calculate the end time of the cycle ()

If it's over.

. If true (_ Start the window. Clock 2. Clock period > 0)

Edit box 2. Content = to text (_ start window. Clock 2. Clock period ÷ 60000)

Select box 4. Checked = true

If it's over.

List box 1. Select an item (current wallpaper)

_ list box 1_ list item is selected ()

Add a hint (picture box 1. Take the window handle (), "Double click the mouse to clear the wallpaper", false, false)

If true (can the form be transparent)

Set window transparency (take window handle (), 230)

If it's over.

. Subroutine _ Edit Box 2_ Content has been changed. If so (select box 4. Select)

_ Start the window. Clock 2. Clock period = to value (edit box 2. Content) × 60000.

If it's over.

. The subroutine _ wallpaper management _ can be closed, and the logic type returns (true). Subroutine _ picture box 1_ was double-clicked, logic type.

. Parameter lateral position, integer type

. Vertical position of integer parameter

Parameter function key status, integer setting desktop wallpaper (",)

The subroutine _ Hyperbutton 1_ was clicked.

. The local variable takes the open file name of text type.

. Local variable saves file name, text type, "0"

. Cyclic values of local variables, integer values of open file name = open multi-file dialog box (wallpaper management. Take the window handle (), "Please select the wallpaper to add", "JPG, BMP, ICO|*. JPG； *.BMP*.ICO "，)

If true (take the opened file name 8800; " ")

Save file name = split text (take the open file name, "; ), )

. Calculate the loop header (take the number of array members (save the file name) and loop these values)

List box 1. Add item (save file name [cyclic value],)

Join member (wallpaper list, save file name [loop value])

. Count cycle tail ()

If it's over.

. Subroutine _ Hyperbutton 2_ was clicked.

. Local variable wallpaper directory, text type

. Local variables are of file name and integer type.

. Local variable wallpaper type, text type, "4"

The local variable saves the file name of the wallpaper, and the text wallpaper type = {"*. jpg "，" *。 BMP "，" *。 ico"}。

Wallpaper directory = browse folder ("Please select a directory to search for wallpaper", true)

If true (wallpaper directory ≦ "")

If true (take the right side of the text (wallpaper directory,1) 8800; " \ ")

Wallpaper Directory = Wallpaper Directory+"\"

If it's over.

. Counting loop header (4, take file name)

Save wallpaper file name = find file (wallpaper directory+wallpaper type [take file name],)

Judge the loop header (save the wallpaper file name ≦ "; )

List box 1. Add item (wallpaper directory+file name of saved wallpaper)

Join the membership (wallpaper list, wallpaper directory+save wallpaper file name)

Save wallpaper file name = find file (,)

. Judging the end of the loop ()

. Count cycle tail ()

If it's over.

. Subroutine _ Super Button 3_ was clicked.

. Local variable loop retrieval file, integer type. If true (list box 1. Number of items retrieved () > 0)

. Calculate loop header (list box 1. Take the number of items (), take a cycle number in the file)

List box 1. Select an item (circular file-1,)

. Count cycle tail ()

If it's over.

. The subroutine _ Hyperbutton 4_ was clicked.

. Local variable saves file name array, text type, "0"

. Local variables are named circularly, and integers empty the array (save the file name array).

If true (list box 1. Take the number of selected items () > 0)

. Calculate loop header (list box 1. Take the number of items () and name the cycle)

If true (list box 1. Is it checked (cycle name-1) = false)

Add member (save file name array, list box 1. Get the project text (circularly named-1))

. If it's over. Calculate the end time of the cycle ()

List box 1. Empty ()

Clear array (wallpaper list)

Calculate the number of loop heads (take the number of array members (save the file name array) and name the loop)

List box 1. Add project (save file name array [circular naming],)

Add member (wallpaper list, save file name array [circular name])

. Count cycle tail ()

If it's over.