Code: Select all
//Alpha Blend Value step per loop cycle
//Bigger is faster
Let>vStep=5
//Loop execution dwell slows Loop cycle
//Smaller is faster
Let>dwell=0.05
//Length of time to run (in Milliseconds)
//0 (zero) runs until stopped manually by pressing the Esc key
Let>vHowLongToRun=0
OnEvent>key_down,VK27,0,Quit
GetCursorPos>CurX,CurY
MouseMove>-32000,-32000
GetCursorPos>ulX,ulY
MouseMove>-32000,32000
GetCursorPos>llX,llY
MouseMove>32000,32000
GetCursorPos>lrX,lrY
MouseMove>32000,-32000
GetCursorPos>urX,urY
Let>vWide={%lrX%-%ulX%+15}
Let>vHigh={%lrY%-%ulY%+15}
MouseMove>CurX,CurY
Random>16777215,vColor1S
Random>16777215,vColor1E
Dialog>Dialog1
object Dialog1: TForm
object MSStringGrid1: tMSStringGrid
Left = 0
Top = 0
ColCount = 2
DrawingStyle = gdsGradient
RowCount = 1
FixedRows = 0
end
end
EndDialog>Dialog1
SetDialogProperty>Dialog1,,ClientWidth,vWide
SetDialogProperty>Dialog1,,ClientHeight,vHigh
SetDialogProperty>Dialog1,,Position,poScreenCenter
SetDialogProperty>Dialog1,,AlphaBlend,True
SetDialogProperty>Dialog1,,AlphaBlendValue,255
SetDialogProperty>Dialog1,,BorderStyle,bsNone
SetDialogProperty>Dialog1,,Caption,GridGrad
SetDialogProperty>Dialog1,MSStringGrid1,Width,vWide
SetDialogProperty>Dialog1,MSStringGrid1,Height,vHigh
SetDialogProperty>Dialog1,MSStringGrid1,DefaultColWidth,vWide
SetDialogProperty>Dialog1,MSStringGrid1,DefaultRowHeight,vHigh
SetDialogProperty>Dialog1,MSStringGrid1,GradientStartColor,vColor1S
SetDialogProperty>Dialog1,MSStringGrid1,GradientEndColor,vColor1E
Let>ABV1=255
Let>ABV1Flag=1
Show>Dialog1
Dialog>Dialog2
object Dialog2: TForm
object MSStringGrid1: tMSStringGrid
Left = 0
Top = 0
ColCount = 2
DrawingStyle = gdsGradient
RowCount = 1
FixedRows = 0
end
end
EndDialog>Dialog2
SetDialogProperty>Dialog2,,ClientWidth,vWide
SetDialogProperty>Dialog2,,ClientHeight,vHigh
SetDialogProperty>Dialog2,,Position,poScreenCenter
SetDialogProperty>Dialog2,,AlphaBlend,True
SetDialogProperty>Dialog2,,AlphaBlendValue,127
SetDialogProperty>Dialog2,,BorderStyle,bsNone
SetDialogProperty>Dialog2,,Caption,GridGrad
SetDialogProperty>Dialog2,MSStringGrid1,Width,vWide
SetDialogProperty>Dialog2,MSStringGrid1,Height,vHigh
SetDialogProperty>Dialog2,MSStringGrid1,DefaultColWidth,vWide
SetDialogProperty>Dialog2,MSStringGrid1,DefaultRowHeight,vHigh
SetDialogProperty>Dialog2,MSStringGrid1,GradientStartColor,vColor1S
SetDialogProperty>Dialog2,MSStringGrid1,GradientEndColor,vColor1E
Let>ABV2=0
Let>ABV2Flag=0
Show>Dialog2
Label>Loop
Wait>dwell
If>ABV1Flag=1
Add>ABV1,vStep
If>ABV1>254
Let>ABV1Flag=0
EndIf
Else
Sub>ABV1,vStep
If>ABV1<1
Random>16777215,vColor1S
Random>16777215,vColor1E
SetDialogProperty>Dialog1,MSStringGrid1,GradientStartColor,vColor1S
SetDialogProperty>Dialog1,MSStringGrid1,GradientEndColor,vColor1E
Let>ABV1Flag=1
EndIf
EndIf
If>ABV2Flag=1
Add>ABV2,vStep
If>ABV2>254
Let>ABV2Flag=0
EndIf
Else
Sub>ABV2,vStep
If>ABV2<1
Random>16777215,vColor2S
Random>16777215,vColor2E
SetDialogProperty>Dialog2,MSStringGrid1,GradientStartColor,vColor2S
SetDialogProperty>Dialog2,MSStringGrid1,GradientEndColor,vColor2E
Let>ABV2Flag=1
EndIf
EndIf
SetDialogProperty>Dialog2,,AlphaBlendValue,ABV2
If>vHowLongToRun=0,Loop
Timer>vTime
If>vTime>vHowLongToRun
Exit>0
EndIf
Goto>Loop
SRT>Quit
GetActiveWindow>vTitle,vWinX,vWinY
If>vTitle={"GridGrad"}
Exit>0
EndIf
END>Quit