Buchempfehlung
MySQL kurz & gut
MySQL kurz & gut
Das preiswerte Taschen- buch stellt MySQL-rele- vante Inhalte systematisch und knapp dar, sodass es sich optimal zum Nach- schlagen beim Pro- grammieren eignet. [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:20:44
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.

#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
        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