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:20.09.2009 17:11:00
Hinweis: Dieser Quelltext ist Bestandteil des Projekts GuiPtr, zu dem es auf FreeBASIC-Portal.de eine Projektseite gibt.
Warnung: Es steht bereits eine neuere Version des Quelltexts zur Verfügung. Die hier vorliegende alte Version könnte Fehler enthalten, die in der neuen Version vielleicht ausgebessert wurden.

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
        ImageInfo .Buffer, w , h
        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(Orientation as ubyte, LeftTop as integer)
    Object = new GuiObject(@This)
    LT = LeftTop
    if LT = 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