Buchempfehlung
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Umfassend, aber leicht verständlich führt dieses Buch in die Programmierung von ATMEL AVR Mikrocontrollern ein. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

Divider.bi

Uploader:MitgliedOneCypher
Datum/Zeit:13.10.2009 10:59:44
Hinweis: Dieser Quelltext ist Bestandteil des Projekts GuiPtr, zu dem es auf FreeBASIC-Portal.de eine Projektseite gibt.

#include once "GuiPtr.bi"

type Divider
    Object as GuiObject ptr
    Orientation as ubyte
    LT as integer
    declare constructor(Orientation as ubyte, LeftTop as integer)
end type

Sub DrawDivider(GO as any ptr)
    Dim D as Divider ptr = GO
    dim as integer w, h
    with *d->Object
        If .Buffer = 0 then
            Screencontrol 4, w,h
        else
            ImageInfo .Buffer, w , h
        end if
        if d->Orientation = 1 then
            line .Buffer, (.left,0)-(.left,h),RGB(128,128,128)
            line .Buffer, (.left+1,0)-(.left+1,h),RGB(255,255,255)
        else
            line .Buffer, (0,.top)-(w,.top),RGB(128,128,128)
            line .Buffer, (0,.top+1)-(w,.top+1),RGB(255,255,255)
        end if
    end with
end sub

Constructor Divider(DOrientation as ubyte, LeftTop as integer)
    Object = new GuiObject(@This)
    LT = LeftTop
    Orientation = DOrientation
    if DOrientation = 1 then
        Object->left = LT
        Object->width = 2
    else
        Object->top = LT
        Object->height = 2
    end if
    Object->ClassName = "Divider"
    Object->PrivateEvents = New Events
    Object->PrivateEvents->OnDraw = @DrawDivider
end constructor