dexrow

The purpose of this molule is to provide some extension to make wingraph (pascal graphics library for free pascal) more crt like. Hopefully making pascal (or delphi) the programming language of choice for retro projects. I am using this for a roguelike that I am building but hopefully it has many uses... I am also willing to add other routines and links to this if they are usefull. I may also port the idea to other graphics libraries for pascal if there is an interest (and enough documentation for it.. This page is currently under construction so check back for more details. This small library is available at
wingraph extended extensions and more examples for the free programming library can be posted at dexrow bbs



routines


crt_out_text


color_crt_out_text

input_line

crt_out_text_rewrite

color_crt_out_text_rewrite


Usefull sites

Wingraph homepage

swain article on wingraph

Labels: pascal, wingraph

This is just a demo of a roguelike map and a charecter that can move both up and down... It takes up to three try's to get the charecter to go... THe current commands are
u for up
d for down
q for quit

clearly the keyboard has to be rebuilt... I should be able to release this as a pascal unit soon and start some alphas... looks like you can fit up to 160 by 120??? I haven't even tested that yet but there is alot of space available on the screen that I haven't used..

http://groups.google.com/group/dexrow-software-and-programming-group/web/demo6.zip

This is coded in free pascal using the wingraph unit

Labels: pascal, roguelike

This is just a simple template that creates the min needed for wingraph to make a window. It also shows some of the limitations of the ide's that are available for pascal.. To use this program_name.py File_to_be_created. I have asked on the bloodshed forums but I suspect that there isn't a way to do it without rebuilding the ide.



import sys

outfile = open(sys.argv[1],'w')
#//need to use the command line
outfile.write("""uses wingraph;
var
gd,gm : smallint;
begin;
gd:=Detect;
InitGraph(gd,gm,'');
//
repeat until CloseGraphRequest; //this waits for close button to be clicked
CloseGraph;
end.""")
#outfile.close()

The following is a new routine for wingraph that makes the outtextx, outtexty behave more like the crt.. for a rougelike or even for a text editor this is a must have procedure.

Procedure crt_out_text(x,y :integer; textstring :shortstring);
//THis is an attempt to imitate the behavior of the crt unit
//x,y is the position in letters not pixels
var
text_height, text_width : integer; //var for text width and height
xx,yy :integer; //use these to calculate pixel x,y of text

// end;
begin;
text_height := TextHeight('H'); //get height
text_width := TextWidth('H'); //get width
xx := (text_width * x) + 1; //calculate the width
yy := (text_height * y) + 1; //calculate the height
OutTextXY(xx,yy,textstring); //send the text out to the screen
end;

It is likely that I will end up with more routines to place in the library because I am getting ready to do some serious retro-gaming-programming. I also am aware of more pascal pages that are not on the wiki yet that are helpfull so look for those in the future. Until then two demos using the procedure and other wingraph command and the template generator are available on the line below. Comments can be directed towards the google group at google group


Heres another routine so that you can write over text.... it "erases the text that is there by drawing a rectangle.... to make it a crt curses like library that you can mix graphics with you would have to mess with GetPixel..

/If you want to get fancy you would save the background and then write it back.. would be a little slower though
var textlength : integer; //this is for the length of the string
loopx, loopy : integer; //this is for the x,y loops
lengthloop : integer; //this is for the length of the text loop
tw, th, twr, thr :integer; //textwidth textheight
begin;
textlength := Length(textstring);
for lengthloop := 1 to textlength do begin;
tw := TextWidth('H');
th := TextHeight('H');
twr := ((tw * x) + (lengthloop * tw) - tw);
thr := th * y;
SetColor(black);
setfillstyle(solidfill,black);
//SetBkColor(black);

Fillrect(twr,thr,twr + tw,thr + th);
end;
SetColor(white);

crt_out_text(x,y,textstring);
end;








download wingraph ext

Labels: pascal, wingraph demo

# posted by Unknown @ 9/11/2007 05:18:00 AM 4 comments

I am getting a runtime error with this
record = point
x : integer;
y: integer;

procedure drawroom(offx,offy:integer; room : point);
var
x : integer;
y : integer;
xx,yy : integer;
begin
x := offx + room.x;
y := offy + room.y;
for xx := offx to x do;
for yy := offy to y do;
level[xx],[yy] := ' ';
end;

and when I call drawroom

Eaccessviolation

Labels: pascal

This is a simple guie to installing the bloodshed dev ide with lazarus. The reason why I did this is that it makes it simplier to compile fpc code because you don't have to worry about why you are compiling a form you do not want or copying something and then creating a new project out of it(I haven't fully tested the latter yet but it compiles).Instead I get around a problem I had with both lazarus and borland c++ 4.0 (also the reason I bought microsoft c ) I can just click on code to bring up the editor and the ide is much better than the default that is provided with fpc. First you would go to the bloodshed page and download what they call devolopment pascal. This is just an older version of fpc with the ide. Next you would install it. After you install devopment pascal you need to go into the folder and copy the contents and then go the the lazarus folder next you keep going until you are in the fpc folder and then you paste. When you are promted to rewrite over an old folder you need to press no because these are from an older version of pascal. Now you can create a shortcut and copy it to where you wish. This method can also be used with fpc (without lazarus).



GLEditor may also come in handy because it gives you the line numbers. (unless I missed that feature in lazarus and if I did I will revise my remarks) very helpfull for finding runtime errors

Labels: borland, c, c++, fpc, fpk, pascal

These are few and far between in pdf format... ie a good format to download... http://cs.felk.cvut.cz/~berezovs/VTP_A/mitchell/TPR1.htm#copyright this is in html though

Labels: pascal

Object TWOLODBC
Unit: WOLDBK04.
Descendant of TDBDataSet. One is about the representation, in object WOL, of a basic linking with ODBC (Open Data Base Connector) of the GUI in use.

Public Methods and Events:

constructor Create (AOwner: TWOLRoot); override;
destructor Destroy; override;

procedure ExecuteSQL (SQLText: String);
Method used to execute a SQL declaration. It must be used befour the data set is returned or when the set doesn't exist.

function GetFieldData (Field: TField; Buffer: Pointer): Boolean; override;
function CreateBlobStream (Field: TField; Mode: TBlobStreamMode): TStream; override;

Public properties and Events:

It activates

SQL: TStrings (For Reading and Writing)
Property that loads an SQL declaration. It does not have internal verification of the text syntax.
DatabaseName: string (For Reading and Writing)
Property that indicates the name of DSN (Data Source Name) to be accessed in the ODBC.

User: string (For Reading and Writing)
Property that indicates the name of the user in the DSN configured in the ODBC.

Password: string (For Reading and Writing)
Property that indicates the access password in the DSN of the ODBC.

Cacheable: Boolean (For Reading and Writing)
Property that indicates if there is going to be a cache for the data that is received by ODBC.. It must be on whenever there is a significant amount of registers.

UpdateTable: String (For Reading and Writing)
Property that indicates the table that must be brought up to date by the methods append and post when Cacheable is True. If the data set is relative to more than one table, it is safer to bring up to date directly through SQL declaration.

BeforeOpen
AfterOpen
BeforeClose
AfterClose
BeforeInsert
AfterInsert
BeforeEdit
AfterEdit

Labels: pascal, wolgui

TWOLMySQL object
Unit: WOLDBK03.
Descendant of TDBDataSet. An object that represents a MySQL database.

Public Methods and Events:

constructor Create (AOwner: TWOLRoot); override;
destructor Destroy; override;
function GetFieldData (Field: TField; Buffer: Pointer): Boolean; override;
function CreateBlobStream (Field: TField; Mode: TBlobStreamMode): TStream; override;

procedure ExecuteSQL;
Method used to execute an SQL database directly. It must be used when the dataset isn't of interest or when there will be no generated dataset.

Public properties and Events:

It activates
SQL: TStrings (For Reading and Writing)
Property that loads in the text of an SQL declaration. It must be noted that it does not have internal verification of the text syntax.

DatabaseName: string (For Reading and Writing)
Property that points to the name of the data base to be accessed.

Host: string (For Reading and Writing)
Property that indicates the name of the computer where the MySQL server is.

Port: Integer (For Reading and Writing)
Property that indicates the access door of the mySQL data base.

User: string (For Reading and Writing)
Property that indicates the user name registered in the MySQL server.

Password: string (For Reading and Writing)
Property that indicates the password used to open the data base indicated as the MySQL server.

Cacheable: Boolean (For Reading and Writing)
Property that it indicates that the database has a cache or not.. If the number of registers of the table or set will be expressiva, must point True with respect to this property.

UpdateTable: String (For Reading and Writing)
Property that indicates the table where the fields are brought up to date. When the cache object is brought up do date with the data in append or post it will look to this table to get the date the information. If it is more than a table of declaration in SQL it is safer to use SQL directly to bring up the data.

BeforeOpen
AfterOpen
BeforeClose
AfterClose
BeforeInsert
AfterInsert
BeforeEdit
AfterEdit
BeforePost
AfterPost
BeforeCancel
AfterCancel
BeforeDelete
AfterDelete
BeforeScroll
AfterScroll
OnDeleteError
OnEditError

Labels: pascal, wolgui

TWOLTable object
Unit: WOLDBK02.
Descendant of TDBDataSet. , of a basic data table that use of archives of type DBF makes. He presents limitations, as not to use indices.

Public Methods and Events:

constructor Create (AOwner: TWOLRoot); override;
destructor Destroy; override;
function GetFieldData (Field: TField; Buffer: Pointer): Boolean; override;

function CreateBlobStream (Field: TField; Mode: TBlobStreamMode): TStream; override;
Method usedd to create a stream of type BLOB to be stored by the indicated field. Internal use.

procedure CreateTable; Method used to create DBF table with fields that had been indicated in the FieldDefs property.

procedure PackTable;
Method used to physically remove the registers marked for deletion.

procedure EmptyTable;
Method used to erase the data of a table.

function isDeleted: Boolean;
Method used to verify if the current register is marked for deletion.

procedure UnDelete;
Method used to remove the register mark for deletion.

Public properties and Events:

It activates

DatabaseName: string (For Reading and Writing)
Property that indicates the name of the database that is given for the object.

User: string (For Reading and Writing)
Property that indicates the name of the user of the table. For the time being, it is worthless.

Password: string (For Reading and Writing)
Property that indicates the used password in the table. For the time being it is worthless.

TableName: string (For Reading and Writing)
Property that indicates the array name used for the object.

DeletedON: Boolean (For Reading and Writing)
Property that it indicates registers marked to be erased must be shown or not.

BeforeOpen
AfterOpen
BeforeClose
AfterClose
BeforeInsert
AfterInsert
BeforeEdit
AfterEdit
BeforePost
AfterPost
BeforeCancel
AfterCancel
BeforeDelete
AfterDelete
BeforeScroll
AfterScroll
OnDeleteError
OnEditError

Labels: pascal, wolgui

TWOLPopupMenu object
Unit: WOLGUI04.
Descendant of TWOLMenu. One is about the representation, in object WOL, of a basic menu popup of the GUI in use.

Public Metodos and Eventos:

constructor Create (AOwner: TWOLRoot); override;
Used method to create the object popup.

destructor Destroy; override;
Used method to destroy the object popup.

procedure Popup (X, Y: TWOLSmallInt); virtual;
Used method to make to appear the menu in an indicated point of the area customer of the window owner of the menu popup.

procedure Build;
Method to reconstruct menu items when necessary. It does not have to be external to be used.

procedure Add (aItem: TWOLMenuItem);
Method used to add to a menu item to the popup menu.

Public properties and Events:

Alignment: TWOLMenuAlignment (For Reading and Writing)
Property that indicates the alignment of the menu items.

AutoPopup: Boolean (For Reading and Writing)
Property that indicates if the popup menu must automatically appear when requested by the user.

OnPopup: TWOLMenuEvent (For Reading and Writing)
Event that happens when the popup menu appears.

Labels: pascal, wolgui

TWOLMenuBar object
Unit: WOLGUI04.
Descendant of TWOLMenu. A basic Menubar object

Public Methods and Events:

procedure Refresh;
Method used to bring the menu bar up to date.

procedure Build;
Method used to construct the menu bar (when you want to remake the menu bar for example). Generally, it is not necessary to call the method.

procedure Add (Value: TWOLMenuItem);
Method used to add a menu item to the menus bar.

Public properties and Events:

Handle: TWOLHMenu (Only for Reading)
Property that returns handle of the menu.

Labels: pascal, wolgui

TWOLDateTime object
Unit: WOLGUI38.
Descendant of TWOLVisualControl. A entry box of the date-time box that is in use.

Public Methods and Events:

constructor Create (AOwner: TWOLRoot); override;
destructor Destroy; override;
procedure CreateGUIParams (to var aParams: TWOLParams; const wClass: TWOLClassType); override;
procedure CreateWnd (to var aParams: TWOLParams); override;
procedure AllocResources; override;
procedure FreeResources; override;
function WndPaint (to var Message: TWOLMessage): Boolean; override;
function WndNotify (to var Message: TWOLMessage): Boolean; override;
function WndProc (to var Message: TWOLMessage): Boolean; override;

Public properties and Events:

Today: TDateTime (For Reading and Writing)
Property that loads the current date and hour of the object.

DayOfWeek: TWOLInteger (For Reading and Writing)
Property that loads the current day of the week in the object.

It dates: String (For Reading and Writing)
Property that loads the current date in form of string in the object.

Kind: TWOLDateTimeKind (For Reading and Writing)
Property that indicates if the entry is the date or the hours.

Teams: String (For Reading and Writing)
Property that loads the current hour of the object.

OnClick
OnMouseMove
OnDblClick
Border
WindowAlign
Left
Top
Width
Height
Color
Font
Cursor
Visible
Enabled
Hint
Tabstop
TabOrder
Ctrl3D

Labels: pascal, wolgui

TWOLCalendar object
Unit: WOLGUI15.
Descendant of TWOLVisualControl. A basic Calender object.

Public Methods and Events:

constructor Create (AOwner: TWOLRoot); override;
destructor Destroy; override;
procedure CreateGUIParams (to var aParams: TWOLParams; const wClass: TWOLClassType); override;
procedure CreateWnd (to var aParams: TWOLParams); override;
procedure AllocResources; override;
procedure FreeResources; override;
function WndPaint (to var Message: TWOLMessage): Boolean; override;
function WndProc (to var Message: TWOLMessage): Boolean; override;

Public properties and Events:

Today: TDateTime (For Reading and Writing)
Property that loads the date specified in the calendar or pointed to by it.

DayOfWeek: TWOLInteger (For Reading and Writing)
Property that loads the day of the week pointed indicated by the calendar.

It dates: String (For Reading and Writing)
Property that loads the date in form of string pointed to in the calendar.

OnClick
OnMouseMove
OnDblClick
Border
WindowAlign
Left
Top
Width
Height
Color
Font
Cursor
Visible
Enabled
Hint
Tabstop
TabOrder
Ctrl3D

Labels: pascal, wolgui

TWOLScrollBox object
Unit: WOLGUI36.
Descendant of TWOLVisualControl. A scoll box with a scroll bar.

Public Methods and Events:

constructor Create (AOwner: TWOLRoot); override;
destructor Destroy; override;
procedure CreateGUIParams (to var aParams: TWOLParams; const wClass: TWOLClassType); override;
procedure CreateWnd (to var aParams: TWOLParams); override;
procedure AllocResources; override;
procedure FreeResources; override;
function WndPaint (to var Message: TWOLMessage): Boolean; override;
function WndCommand (to var Message: TWOLMessage): Boolean; override;
function WndProc (to var Message: TWOLMessage): Boolean; override;

Public properties and Events:

AutoPage: Boolean (For Reading and Writing)
Property that indicates the automatic creation of a page and position in according to the size of the object window.

RefreshOnScroll: Boolean (For Reading and Writing)
Property that it indicates that the window is refreshed when the scroll bar is used.

VertScrollBar: TWOLScrollBoxBar (For Reading and Writing)
Property that loads a vertical scroll bar.

HorzScrollBar: TWOLScrollBoxBar (For Reading and Writing)
Property that loads a horizontal scroll bar.

VirtualHeight: TWOLSmallInt (For Reading and Writing)
Property that loads the virtual height of the scroll bar.

VirtualWidth: TWOLSmallInt (For Reading and Writing)
Property that loads the virtual width of the scroll bar.

OnScroll: TWOLScrollEvent (For Reading and Writing)
Event when the box of scroll bar is rolled.

OnClick
OnMouseMove
OnDblClick
OnPaint
OnPaintBkG
Border
WindowAlign
Left
Top
Width
Height
Color
Font
Cursor
Visible
Enabled
Hint
Tabstop
TabOrder
Ctrl3D
TWOLSCROLLBOXBAR
TWOLScrollBoxBar is an object that can represent the bars of a ScrollBox. It does not have to be created, therefore when the roller bar is created, it is already made.

Public methods and Events:

constructor Create (Owner: TWOLScrollBox; aKind: TWOLScrollBarSet);
method Used to create the object. aKind indicates the type (horizontal or vertical) of the bar.
destructor Destroy; override;
method Used to destroy the object.

Properties of the Object:

Parent: TWOLHandle (For Reading and Writing)
Property that loads the handle of the scroll bar box.
OwnerKind: TWOLByte (Only for Reading)
Property that loads the type of owner of the object.
Handle: TWOLHandle (Only for Reading)
Property that loads the handle of the object.
Height: TWOLSmallInt (Only for Reading)
Property that specifies the height of the bar.
Width: TWOLSmallInt (Only for Reading)
Property that specifies the width of the bar.
Scroll: TWOLCardinal (Only for Reading)
Property that loads the scroll bar code when the event occurs.
CodeEvent: TWOLScrollBarCode (Only for Reading)
Property that loads the code of a scroll bar event.
Kind: TWOLScrollBarSet (Only for Reading)
Property that loads the scoll bar type.
Mask: TWOLSmallInt (Only for Reading)
Used property internally.
TrackPos: TWOLSmallInt (Only for Reading)
Property that loads the position of scroll bar.
DiffPos: TWOLSmallInt (Only for Reading)
Used property internally.
Align: TWOLByte (For Reading and Writing)
Property of alignment of the bar used internally.
SmallChange: TWOLSmallInt (For Reading and Writing)
Property that loads the minimum value change allowed by the bar.
LargeChange: TWOLSmallInt (For Reading and Writing)
Property that indicates the max change allowed for the scroll bar.
Visible: TWOLBoolean (For Reading and Writing)
Property that indicates the visibility of the scroll bar.
Min: TWOLSmallInt (For Reading and Writing)
Property that indicates the minimum value used by the scroll bar.
Max: TWOLSmallInt (For Reading and Writing)
Property that indicates the maximum value used by the bar. Generally virtual width is the value of the height/.
Page: TWOLSmallInt (For Reading and Writing)
Value of the pointer size of the pointer of the scroll bar.
Pos: TWOLLongint (For Reading and Writing)
Value of the position of the bar of the scroll bar.

Labels: pascal, wolgui

TWOLImageControl object
Unit: WOLGUI07.
Descendant of TWOLVisualControl. Image control object

Public Methods and Events:

constructor Create (AOwner: TWOLRoot); override;
destructor Destroy; override;

procedure LoadImage;
Method used to load the image indicated in the Filename property.

procedure CreateGUIParams (to var aParams: TWOLParams; const wClass: TWOLClassType); override;
procedure CreateWnd (to var aParams: TWOLParams); override;
procedure DestroyWnd; override;
procedure RecreateWnd; override;
procedure Redraw; override;
procedure AllocResources; override;
procedure FreeResources; override;
function WndPaint (to var Message: TWOLMessage): Boolean; override;
function WndProc (to var Message: TWOLMessage): Boolean; override;

procedure Clear;
Method used to clear the image in the canvas.

Public properties and Events:

Picture: TWOLPicture (For Reading and Writing)
Property that loads a primitive representation of the image.

FileName: String (For Reading and Writing)
Property that loads the name of the image file.

AutoSize: Boolean (For Reading and Writing)
Property that it indicates that the image must be resized.

Center: Boolean (For Reading and Writing)
Property that it indicates that the image is to be centered in the canvas. This property invalidates the AutoSize property.

IncrementalDisplay: Boolean (For Reading and Writing)
This property indicates that the image will be shown to the few nop canvas when will be great excessively. Not yet functional.

Stretch: Boolean (For Reading and Writing)
Property that it indicates that the image will be stretched in the canvas regardless of the size. Only in the MS-Windows.

Transparent: Boolean (For Reading and Writing)
Property that indicates that the object is transparent.

Border
WindowAlign
Left
Top
Width
Height
Color
Cursor
Visible
Enabled
Hint
OnClick
OnMouseMove
OnKeyPress

Labels: pascal, wolgui

TWOLToggleButton object
Unit: WOLGUI35.
Descendant of TWOLVisualControl. A toggle button for the basic gui.

Public Methods and Events:

constructor Create (AOwner: TWOLRoot); override;
destructor Destroy; override;
procedure CreateGUIParams (to var aParams: TWOLParams; const wClass: TWOLClassType); override;
procedure CreateWnd (to var aParams: TWOLParams); override;
procedure AllocResources; override;
procedure FreeResources; override;
function WndPaint (to var Message: TWOLMessage): Boolean; override;
function WndMouse (to var Message: TWOLMessage): Boolean; override;
function WndCommand (to var Message: TWOLMessage): Boolean; override;
function WndProc (to var Message: TWOLMessage): Boolean; override;

Public properties and Events:

IsDown: Boolean (For Reading and Writing)
Property that indicates if the button is in the pressured state or not.

OnToggle: TWOLEvent (For Reading and Writing)
Gone off event when the state of the dumb button.

OnClick
OnMouseMove
OnDblClick
TextAlign
WindowAlign
Caption
Left
Top
Width
Height
Color
Font
Cursor
Visible
Enabled
Hint
Tabstop
TabOrder
Ctrl3D

Labels: pascal, wolgui

TWOLListView object

Unit: WOLGUI17.
Descendant of TWOLVisualControl. One is about the representation, in object WOL, of basic a Visual List of the GUI in use.

Public methods and Events:

constructor Create (AOwner: TWOLRoot); override;
destructor Destroy; override;
procedure CreateGUIParams (to var aParams: TWOLParams; const wClass: TWOLClassType); override;
procedure CreateWnd (to var aParams: TWOLParams); override;
procedure RecreateWnd; override;
procedure AllocResources; override;
procedure FreeResources; override;
function WndPaint (to var Message: TWOLMessage): Boolean; override;
function WndProc (to var Message: TWOLMessage): Boolean; override;

procedure AddColumn (aColumn: TWOLListViewColumn);
Method used to add a column to the visual list.

procedure DelColumn (aColumn: TWOLListViewColumn);
Method used to erase a column of the visual list.

procedure AddItem (img: Integer; const Captions: Array of TListViewString);
Method used to add a line of itens with an associated image to the visual list.

function GetItemText (item, subitem: Integer): String;
Method used to recoup the text of an item and subitem of the visual list.

procedure DelItem (item: Integer);
Method used to erase an item of the visual list.

procedure Clear; Used method to clean all itens of the list.

procedure Freeze; Used method to indicate the list that if to desire to insert a considerable amount of itens to the list. This makes the list to congeal and to be only brought up to date visually when the method unFreeze will be called.

procedure UnFreeze;
Method used to bring up to date the visual list after a considerable insertion. It does not call this method if it will initially not have called Freeze.

Public properties and Events:

Column [Index: Integer]: TWOLListViewColumn (For Reading and Writing)
Property that returns the column from specified index.

Count: Integer (Only for Reading)
Property that returns the amount from existing Columns in the list.

ImageListNormal: TWOLImageList (For Reading and Writing)
Property that points with respect to the list of images associated to the visual list when in the normal way.

ImageListSmall: TWOLImageList (For Reading and Writing)
Property that points with respect to the list of images associated to the visual list when in the visual way SmallIcons.

ImageListState: TWOLImageList (For Reading and Writing)
Property that points with respect to the list of images associated to the visual list when in the visual way List.

IconAlign: TWOLJustifySet (For Reading and Writing)
Property that indicates the form of alignment of the icons in relation to the headings of itens.

Options: TWOLBehaviours (For Reading and Writing)
Property that modifies the behavior the visual list of diverse forms.

ModeView: TWOLViewModeSet (For Reading and Writing)
Property that modifies the form to visualize the list visual.

Selected: Integer (For Reading and Writing)
Property that returns the index from the item currently selected by the user.

ScrollBars: TWOLScrollBarSet (For Reading and Writing)
Property that indicates the presence or not of the bars of clod roller of the visual list.

Columns: TWOLListViewColumns (Only for Reading)
Property that loads the representation of the columns of the visual list.

OnClick
OnMouseMove
OnDblClick
WindowAlign
Border
Left
Top
Width
Height
Color
Font
Cursor
Visible
Enabled
Hint
Ctrl3D
Tabstop
TabOrder

procedure SetGTKListViewColumns (nColumns: Integer);
A procedure must be indicated. It is part of the unit because the ListView of the GTK has a predetermined number of columns at the creation moment. The programmer must indicate the maximum number of columns that the program comes to use calling this procedure when it will be using the GTK/GDK.

TWOLLISTVIEWCOLUMNS



This object loads obtains the definitions of the columns of the visual list. It does not have external to be created.

Public methods and Events:

constructor Create (AOwner: TWOLListView); It creates the object.
destructor Destroy; override;
It destroys the object.
procedure Add (Value: TWOLListViewColumn);
It adds a column to the list.
procedure Delete (Index: Integer);
It erases a column of the list indicated for the index.
procedure Clear;
It erases all the columns of the visual list.

Properties of the Object:

Column [Index: Integer]: TWOLListViewColumn (Only for Reading)
Property that returns the column from specified index.
Count: Integer (Only for Reading)
Property that returns the amount from columns of the list.


TWOLLISTVIEWCOLUMN



Object that represents a column of the visual list.

constructor Create (AOwner: TWOLListView);
Method used to create the object.
destructor Destroy; override;
Method used to destroy the object.
procedure AddItem (Items: TWOLListViewItem);
Method used to add an item to the column.
procedure DelItem (Items: TWOLListViewItem);
Method used to erase an item of the column.

Properties of the Object:

Caption: String (For Reading and Writing)
Property that indicates the heading of the column.
Index: Integer (For Reading and Writing)
Property that indicates the index of the current column.
Item [aIndex: Integer]: TWOLListViewItem (For Reading and Writing)
Property that returns the item indicated for the argument.
Count: Integer (Only for Reading)
Property that returns the amount from itens of the column.
Width: Integer (For Reading and Writing)
Property that informs the width of the column.
Owner: TWOLListView (Only for Reading)
Property that informs the Visual List which belongs the column.
LVHnd: TWOLHandle (For Reading and Writing)
property that returns handle from the Visual List proprietor.
Align: TWOLTextAlign (For Reading and Writing)
Property that inside indicates the alignment of the text of the column.


TWOLLISTVIEWITEM



Object that represents an item of the visual list. Such object must be thought as the first heading that appears in each line of the list. The other headings of the same line must be thought as they subitem of this item.

constructor Create (AOwner: TWOLListViewColumn);
Method used to create the object.
destructor Destroy; override;
Method used to destroy the object.
procedure AddSubItem (aItem: TWOLListViewSubItem);
Method used to add one subitem to the current item.
procedure DelSubItem (aItem: TWOLListViewSubItem);
Method used to erase subitem it indicated of the current item.

Properties of the Object:
Count: Integer (Only for Reading)
Property that returns the amount from subitens contained in the item.
Item [Index: Integer]: TWOLListViewSubItem (For Reading and Writing)
Property that returns it subitem indicated for the index.
LVHnd: TWOLHandle (For Reading and Writing)
Property that returns handle from the Visual List which it subitem belongs.


TWOLLISTVIEWSUBITEM



Object that represents subitens of the visual list. Each subitem must be thought as the headings that are not item zero of each column.

constructor Create (AOwner: TWOLListViewItem);
Method used to create the object.
destructor Destroy; override;
Method used to destroy the object.
Properties of the Object:
Caption: String (For Reading and Writing)
Property that loads the heading of it subitem.
ImageIndex: Integer (For Reading and Writing)
Property that loads the index of the image associated with it subitem.
Index: Integer (For Reading and Writing)
Property that loads the index of it subitem.
StateIndex: Integer (For Reading and Writing)
Property that loads the index of the image associated with it subitem to represent the state.
LVHnd: TWOLHandle (For Reading and Writing)
Property that loads handle of the Visual List which belongs subitem it.
SubItems: TStrings (For Reading and Writing)
property that loads the headings of it subitem.

Labels: pascal, wolgui

TWOLTreeView object
Unit: WOLGUI18.
Descendant of TWOLVisualControl. One is about the representation, in object WOL, of basic Visual Tree of the GUI in use.

Public Methods and Events:

constructor Create (AOwner: TWOLRoot); override;
destructor Destroy; override;
procedure CreateGUIParams (to var aParams: TWOLParams; const wClass: TWOLClassType); override;
procedure CreateWnd (to var aParams: TWOLParams); override;

procedure AddRoot (Root: TWOLTreeViewNode);
method used to add to a nodule root in the visual tree.

procedure Clear;
method used to clean all we of a tree.

procedure Expand (aNode: TWOLTreeViewNode);
method used to expand all pertaining we to the specified knot.

procedure Colapse (aNode: TWOLTreeViewNode);
method used to collect all pertaining we to the specified knot.

procedure RecreateWnd; override;
procedure AllocResources; override;
procedure FreeResources; override;
function WndPaint (to var Message: TWOLMessage): Boolean; override;
function WndProc (to var Message: TWOLMessage): Boolean; override;

Public properties and Events:

Items [Index: Integer]: TWOLTreeViewNode (Only for Reading)
Property that returns the knot from specified index.

RootCount: Integer (Only for Reading)
Property that returns the amount from us roots of the tree.

IsEmpty: Boolean (Only for Reading)
Property that returns if the tree is empty or not.

Images: TWOLImageList (For Reading and Writing)
Property that indicates the list of images associated the tree. The icons contained in the list of images are drawn in we if they will be in normal state.

StateImages: TWOLImageList (For Reading and Writing)
Property that indicates the list of images associated the tree. The icons contained in the list of images are drawn in we if they will be in different state of the normal one.

Indent: Integer (For Reading and Writing)
Property that indicates the removal between we roots and the left side of the tree.

Selected: TWOLTreeViewNode (For Reading and Writing)
Property that returns the currently the selected node.

TreeNodes: TWOLTreeViewNodes (Only for Reading)
Property that loads the tree in itself.

OnClick
OnMouseMove
OnDblClick
WindowAlign
Border
Left
Top
Width
Height
Color
Font
Cursor
Visible
Enabled
Hint
Ctrl3D
Tabstop
TabOrder

TWOLTREEVIEWNODES
TWOLTreeViewNodes is an object that loads the list of nodes in the tree. It does not have to be externaly created.
Public methods and Events:
constructor Create (AOwner: TWOLTreeView);
method used to create the object.
destructor Destroy; override;
method used to destroy the object.
procedure Delete (Index: Integer);
method used to erase the node of indicated index.
procedure Clear;
Used method to clear nodes from the list.
function FindNodeByName (aName: String): TWOLTreeViewNode;
Used method to look a node by it's name.

Properties of the Object:

TreeNode [Index: Integer]: TWOLTreeViewNode (Only for Reading)
Property that returns the node from indicated index.
Count: Integer (Only for Reading)
Property that returns the number of nodes in a tree.

Labels: pascal, wolgui

TWOLTabControl object
Unit: WOLGUI29.
Descendant of TWOLVisualControl. A tab control object a basic WOL object for use in the notebook gui.

Public Methods and Events:

constructor Create (AOwner: TWOLRoot); override;
destructor Destroy; override;
procedure CreateGUIParams (to var aParams: TWOLParams; const wClass: TWOLClassType); override;
procedure CreateWnd (to var aParams: TWOLParams); override;
procedure RecreateWnd; override;
procedure AllocResources; override;
procedure FreeResources; override;
function GetControlCount: TWOLSmallInt; override;
function GetAControl (aIndex: TWOLSmallInt): TWOLBase; override;
function WndPaint (to var Message: TWOLMessage): Boolean; override;
function WndNotify (to var Message: TWOLMessage): Boolean; override;
function WndCommand (to var Message: TWOLMessage): Boolean; override;
function WndProc (to var Message: TWOLMessage): Boolean; override;
function WndText (to var Message: TWOLMessage): Boolean; override;

Public properties and Events:

MultiLine: Boolean (For Reading and Writing)
Property that indicates if the border is multiline or in an only a line.

TabWidth: Integer (For Reading and Writing)
Property that indicates the width of each border.

TabHeight: Integer (For Reading and Writing)
Property that indicates the height of each border.

HotTrack: Boolean (For Reading and Writing)
Property that it indicates if the heading of the border will be illuminated when pass the mouse over it.

Scroll: Boolean (For Reading and Writing)
Property that it indicates if the borders will roll to exceed the width of tabcontrol.

TabIndex: Integer (For Reading and Writing)
Property that indicates the index of the currently active border.

TabPos: TWOLPositionSet (For Reading and Writing)
Property that indicates the position of the borders in relation to tabcontrol.

Pages: TStrings (For Reading and Writing)
Property that loads the borders in heading form. Each border corresponds to a page. These borders must be modified in the form of TWOLTabList. The visual objects will be inserted in these pages.

OnChange: TWOLEvent (For Reading and Writing)
Event that happens when the border changes.

OnChanging: TWOLBoolEvent (For Reading and Writing)
Event that happens when the border is moving.

OnClick
OnMouseMove
OnDblClick
Ctrl3D
Border
WindowAlign
Left
Top
Width
Height
Color
Font
Cursor
Visible
Enabled
Hint
Tabstop
Tab Order
TWOLTABLIST
TWOLTabList is a derivation of the TStrings. It is adapted to represent the pages of a TWOLTabControl. So that it is possible to place visual objects in the TWOLTabList, special methods have been increased.

Public methods and Events:

method used to create the set of pages.
destructor Destroy; override;
method used to destroy the set of pages.
procedure Clear; override;
method used to clear the set of pages.
procedure Delete (Index: Integer); override;
method used to erase a page of indicated index.
procedure Insert (Index: Integer; const S: string); override;
method used to insert a page in the set.
procedure InsertVisualControl (VisualCtrl: TWOLVisualControl; Page: Integer);
method used to insert a visual object in the indicated page.
procedure RemoveVisualControl (VisualCtrl: TWOLVisualControl; Page: Integer);
method used to remove an object of the indicated page.
function GetVisualControl (aHandle: TWOLHandle): TWOLVisualControl;
method tsed to return a visual object with handle indicated.
procedure PaintControls;
method used to internally redesign visual objects of the pages.
procedure ResizePages (width, height: Integer);
method used internally to resize the pages.
function FindControl (aHandle: TWOLHandle): Boolean;
method used to look at a visual object of handle indicated.
function FindPage (aHandle: TWOLHandle): Boolean;
method used to look at a page of handle indicated.
function GetControlCount (aPage: Integer): Integer;
method used to return the number from visual objects in an indicated page.
function GetPageControl (aIndex: Integer): Integer;
method used to return the index of the page of the visual object of the index.
function GetControlInPage (aIndex: Integer): TWOLBase;
method used to return the object of index indicated in any page.


constructor Create;

Labels: pascal, wolgui

TWOLHotKey object
Unit: WOLGUI33.
Descendant of TWOLVisualControl. A basic HotKey in the GUI in use. HotKey is an routine that captures special keyboard keys and it transforms them into a description that is described in text form. But only in tMS-Windows.

Public Methods and Events:

constructor Create (AOwner: TWOLRoot); override;
destructor Destroy; override;
procedure CreateGUIParams (to var aParams: TWOLParams; const wClass: TWOLClassType); override;
procedure CreateWnd (to var aParams: TWOLParams); override;
procedure AllocResources; override;
procedure FreeResources; override;
function WndPaint (to var Message: TWOLMessage): Boolean; override;
function WndCommand (to var Message: TWOLMessage): Boolean; override;
function WndProc (to var Message: TWOLMessage): Boolean; override;

Public properties and Events:

HotKey: TWOLWord (For Reading and Writing)
Property that returns the value from a combination of keyboard keys.
InvalidKeys: TWOLHotKeyInvalidKeys (For Reading and Writing)
Property that removes the keyboard keys that are not part of the combination.
Modifiers: TWOLHotKeyModifiers (For Reading and Writing)
Property that tells the modifiers that had been pressured by the user.
OnHotKey: TWOLEvent (For Reading and Writing)
Event that happens when the user presses down on keys.
OnClick
OnMouseMove
OnDblClick
Border
TextAlign
WindowAlign
Left
Top
Width
Height
Color
Font
Cursor
Visible
Enabled
Hint
Tabstop
TabOrder
Ctrl3D

Labels: pascal, wolgui