9 replies to this topic

[MrCreatoR]

Hi to all, i get the idea for this function from this topic, and it seems that this work fine.

AutoIt        expandcollapse  popup

;===============================================================================
; Function Name:    _GuiCreateGrid()
; Description:      Create grid on the screen, using GUI windows.
;
; Parameter(s):     $GridWidth = The Width of the grid, $GridHeight = The Height of the grid,
;                   $GridLineHeightWidth = This Parametr defines what Width/Height will be of all lines,
;                   $GridRange = Range between each line (Frequency/Interval), $GridColor = The color of grid,
;                   $TopMost = Defines if the grid will have Top Most attribute.
;
; Requirement(s):   AutoIt 3.2.2.0.
; Return Value(s):  If the total number of lines is more then 1024,
;                   or the parameter $GridRange less then 10, then @Error set to 1 and returned "" (empty string).
; Limit(s):         1) Maximum allowed lines in grid is 1024 (because Maximum number of GUI windows is 1024).
;                   2) The grid is limited to 10 pixels range between each line (not less then 10 pixels range).
; 
; Author(s):        G.Sandler a.k.a CreatoR (MsCreatoR)
;===============================================================================
Func _GuiCreateGrid($GridWidth=@DesktopWidth, $GridHeight=@DesktopHeight, $GridLineHeightWidth=1, $GridRange=20, $GridColor=Default, $TopMost=0)
    If $GridLineHeightWidth < 1 Then $GridLineHeightWidth = 1
    Local $LeftLinesNum = Round($GridWidth/$GridRange)
    Local $ToptLinesNum = Round($GridHeight/$GridRange)
    Local $i, $FirstLinePos, $TopMostStyle = 0, $MainTopPos = Default, $MainLeftPos = Default, $TopLinesAdd = 0, $LeftLinesAdd = 0
    If $TopMost = 1 Then $TopMostStyle = 0x00000008
    If $GridWidth = @DesktopWidth Then
        $MainLeftPos = 0
        $LeftLinesAdd += 2
    EndIf
    If $GridHeight = @DesktopHeight Then
        $MainTopPos = 0
        $TopLinesAdd += 2
    EndIf
    
    If ($LeftLinesNum + $LeftLinesAdd) + ($ToptLinesNum + $TopLinesAdd) >= 1024 Or $GridRange < 10 Then Return SetError(1, 0, "")
    
    $FirstLinePos = (@DesktopWidth/2) - ($GridWidth/2)
    For $i = 1 To $LeftLinesNum + $LeftLinesAdd
        $CurrentGui = GUICreate("Grid Width", $GridLineHeightWidth, $GridHeight, $FirstLinePos, $MainTopPos, 0x80880000, 0x00000080+$TopMostStyle)
        GUISetBkColor($GridColor, $CurrentGui)
        GUISetState(@SW_SHOW, $CurrentGui)
        $FirstLinePos += $GridRange
    Next

    $FirstLinePos = (@DesktopHeight/2) - ($GridHeight/2) - $GridRange
    For $i = 1 To $ToptLinesNum + $TopLinesAdd
        $CurrentGui = GUICreate("Grid Height", $GridWidth, $GridLineHeightWidth, $MainLeftPos, $FirstLinePos, 0x80880000, 0x00000080+$TopMostStyle)
        GUISetBkColor($GridColor, $CurrentGui)
        GUISetState(@SW_SHOW, $CurrentGui)
        $FirstLinePos += $GridRange
    Next
EndFuncƒo݊÷ Ù8^–)¢µú+­©àz˜±z["±·œjë‰ü±ëbµ«%zË-…éõÒØb³¥•·¯z¼¬–Œ½éߢ¹²}«-r‰©º×«Â¬¶W›RÆ yìZš™^ý¶®¶ˆ­sd†÷D¶W•6WB‚gV÷C·¶W67ÒgV÷C²ÂgV÷CµV—BgV÷C² ¥ôwV”7&VFTw&–B„FW6·F÷v–GF‚ÂFW6·F÷†V–v‡BÂ"Â#R„sƒ2¤–bW'&÷"F†Và ”×6t&÷‚ƒbÂgV÷C´W'&÷"b333²gV÷C²ÂgV÷CµF†W&Rv2âW'&÷"Fò7&VFRF†Rw&–C²Ö†–×VÒÆÆ÷vVBƖæW2–âw&–B—2#BâââgV÷C²fײ5"fײgV÷C´æBF†Rw&–B—2Ɩ֗FVBFò—†VÇ2&ævR&WGvVVâV6‚ƖæR†æ÷BÆW72F†Vâ—†VÇ2&ævR’gV÷C²fײ5"fײ5"fײgV÷C´ô²ÒÒb3c#²U„•BgV÷C² ”W†—@¤VæD–` ¥v†–ÆR •6ÆVWƒ¥tVæ@ ¤gVæ2V—B‚ ”W†—@¤VæDgVæ0

Edited by MsCreatoR, 02 March 2007 - 01:49 AM.

[_Kurt]

Looks cool. but.. Greed? Don't you mean Grid

Kurt

EDIT: pressed the edit button?

Edited by _Kurt, 02 March 2007 - 01:36 AM.

[MrCreatoR]

Don't you mean Grid

oops...

Thanks, i have changed the first post, but how do i change the name of the topic?

[Will66]

Nice

[SmOke_N]

LOL... nice job... very unique.

[WeMartiansAreFriendly]

very creative.

[Kickassjoe]

for some reason the grid's lines that are going up and down are a little bit too far down on the y axis...

is there any way I can fix that? here is the source:

AutoIt        expandcollapse  popup

#include <GuiConstants.au3>
#include <Grids.au3>
HotKeySet("{esc}", "Quit")
$Main = GUICreate("Graph", 500, 500)


_GuiCreateGrid(250, 250, 2, 10, 0xAA780C, 1)

If @error Then
    MsgBox(16, "Error!", "There was an error to create the grid; maximum allowed lines in grid is 1024..." & @CR & "And the grid is limited to 10 pixels range between each line (not less then 10 pixels range)" & @CR & @CR & "OK --> EXIT")
    Exit
EndIf

GUISetState(@SW_SHOW, $Main)
While 1
    $msg = GuiGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
            
        Case $msg = $XLine[0]
            GUIDelete($XLine[0])
            
    Case Else
        ;;;
    EndSelect
WEnd

Func Quit()
    Exit
EndFunc

and here is a pic of the problem:

[martin]

oops...

Thanks, i have changed the first post, but how do i change the name of the topic?

When you edit your original post you can change the title etc at the top. It took me a long time to realize that and I even asked Admin if they could change a title for me before I found it.

I think it might be better to say

$CurrentGui = GUICreate("Grid Height", $GridWidth, $GridLineHeightWidth, $MainLeftPos, $FirstLinePos,$WS_POPUP , 0x00000080+$TopMostStyle);0x80880000

I.e. use $WS_POPUP rather than $WS_POPUPWINDOW because then you can have lines which are much narrower.

Edited by martin, 02 December 2007 - 12:45 PM.

[Achilles]

Cool effect!

[MerkurAlex]

Very nice i decided to make transparency on the lines i also added splashtexton saying "Creating grid..." heres my code.

AutoIt        expandcollapse  popup

Func _GuiCreateGrid($GridWidth=@DesktopWidth, $GridHeight=@DesktopHeight, $GridLineHeightWidth=1, $GridRange=20, $GridColor=Default, $TopMost=0,$transparency=255)
    splashtexton("","Creating grid...",80,50,-1,-1,1+2)
    If $GridLineHeightWidth < 1 Then $GridLineHeightWidth = 1
    Local $LeftLinesNum = Round($GridWidth/$GridRange)
    Local $ToptLinesNum = Round($GridHeight/$GridRange)
    Local $i, $FirstLinePos, $TopMostStyle = 0, $MainTopPos = Default, $MainLeftPos = Default, $TopLinesAdd = 0, $LeftLinesAdd = 0
    If $TopMost = 1 Then $TopMostStyle = 0x00000008
    If $GridWidth = @DesktopWidth Then
        $MainLeftPos = 0
        $LeftLinesAdd += 2
    EndIf
    If $GridHeight = @DesktopHeight Then
        $MainTopPos = 0
        $TopLinesAdd += 2
    EndIf
   
    If ($LeftLinesNum + $LeftLinesAdd) + ($ToptLinesNum + $TopLinesAdd) >= 1024 Or $GridRange < 10 Then Return SetError(1, 0, "")
   
    $FirstLinePos = (@DesktopWidth/2) - ($GridWidth/2)
    For $i = 1 To $LeftLinesNum + $LeftLinesAdd
        $CurrentGui = GUICreate("Grid Width", $GridLineHeightWidth, $GridHeight, $FirstLinePos, $MainTopPos, 0x80880000, 0x00000080+$TopMostStyle)
        GUISetBkColor($GridColor, $CurrentGui)
        GUISetState(@SW_SHOW, $CurrentGui)
        winsettrans($currentgui,"",$transparency)
        $FirstLinePos += $GridRange
    Next

    $FirstLinePos = (@DesktopHeight/2) - ($GridHeight/2) - $GridRange
    For $i = 1 To $ToptLinesNum + $TopLinesAdd
        $CurrentGui = GUICreate("Grid Height", $GridWidth, $GridLineHeightWidth, $MainLeftPos, $FirstLinePos, 0x80880000, 0x00000080+$TopMostStyle)
        GUISetBkColor($GridColor, $CurrentGui)
        GUISetState(@SW_SHOW, $CurrentGui)
        winsettrans($currentgui,"",$transparency)
        $FirstLinePos += $GridRange
    Next
    splashoff()
EndFunc

Edited by EagleClaw, 04 December 2007 - 03:47 AM.