diff options
Diffstat (limited to 'packages/xforms/src')
| -rw-r--r-- | packages/xforms/src/cursorfont.inc | 111 | ||||
| -rw-r--r-- | packages/xforms/src/fd2pascal.pp | 1122 | ||||
| -rw-r--r-- | packages/xforms/src/xforms.pp | 2909 |
3 files changed, 4142 insertions, 0 deletions
diff --git a/packages/xforms/src/cursorfont.inc b/packages/xforms/src/cursorfont.inc new file mode 100644 index 0000000000..6cf3bd6965 --- /dev/null +++ b/packages/xforms/src/cursorfont.inc @@ -0,0 +1,111 @@ +{ $XConsortium: cursorfont.h,v 1.4 94/04/17 20:22:00 rws Exp $ } +{ + +Copyright (c) 1987 X Consortium + +Permission is hereby granted, free of charge, to any person obtaining +a copy of this software and associated documentation files (the +"Software"), to deal in the Software without restriction, including +without limitation the rights to use, copy, modify, merge, publish, +distribute, sublicense, and/or sell copies of the Software, and to +permit persons to whom the Software is furnished to do so, subject to +the following conditions: + +The above copyright notice and this permission notice shall be included +in all copies or substantial portions of the Software. + +THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF +MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. +IN NO EVENT SHALL THE X CONSORTIUM BE LIABLE FOR ANY CLAIM, DAMAGES OR +OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, +ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR +OTHER DEALINGS IN THE SOFTWARE. + +Except as contained in this notice, the name of the X Consortium shall +not be used in advertising or otherwise to promote the sale, use or +other dealings in this Software without prior written authorization +from the X Consortium. + +} + +Const + XC_num_glyphs= 154; + XC_X_cursor= 0; + XC_arrow= 2; + XC_based_arrow_down= 4; + XC_based_arrow_up= 6; + XC_boat= 8; + XC_bogosity= 10; + XC_bottom_left_corner= 12; + XC_bottom_right_corner= 14; + XC_bottom_side= 16; + XC_bottom_tee= 18; + XC_box_spiral= 20; + XC_center_ptr= 22; + XC_circle= 24; + XC_clock= 26; + XC_coffee_mug= 28; + XC_cross= 30; + XC_cross_reverse= 32; + XC_crosshair= 34; + XC_diamond_cross= 36; + XC_dot= 38; + XC_dotbox= 40; + XC_double_arrow= 42; + XC_draft_large= 44; + XC_draft_small= 46; + XC_draped_box= 48; + XC_exchange= 50; + XC_fleur= 52; + XC_gobbler= 54; + XC_gumby= 56; + XC_hand1= 58; + XC_hand2= 60; + XC_heart= 62; + XC_icon= 64; + XC_iron_cross= 66; + XC_left_ptr= 68; + XC_left_side= 70; + XC_left_tee= 72; + XC_leftbutton= 74; + XC_ll_angle= 76; + XC_lr_angle= 78; + XC_man= 80; + XC_middlebutton= 82; + XC_mouse= 84; + XC_pencil= 86; + XC_pirate= 88; + XC_plus= 90; + XC_question_arrow= 92; + XC_right_ptr= 94; + XC_right_side= 96; + XC_right_tee= 98; + XC_rightbutton= 100; + XC_rtl_logo= 102; + XC_sailboat= 104; + XC_sb_down_arrow= 106; + XC_sb_h_double_arrow= 108; + XC_sb_left_arrow= 110; + XC_sb_right_arrow= 112; + XC_sb_up_arrow= 114; + XC_sb_v_double_arrow= 116; + XC_shuttle= 118; + XC_sizing= 120; + XC_spider= 122; + XC_spraycan= 124; + XC_star= 126; + XC_target= 128; + XC_tcross= 130; + XC_top_left_arrow= 132; + XC_top_left_corner= 134; + XC_top_right_corner= 136; + XC_top_side= 138; + XC_top_tee= 140; + XC_trek= 142; + XC_ul_angle= 144; + XC_umbrella= 146; + XC_ur_angle= 148; + XC_watch= 150; + XC_xterm= 152; + diff --git a/packages/xforms/src/fd2pascal.pp b/packages/xforms/src/fd2pascal.pp new file mode 100644 index 0000000000..306a876f3b --- /dev/null +++ b/packages/xforms/src/fd2pascal.pp @@ -0,0 +1,1122 @@ +Program fd2pascal; + +{ --------------------------------------------------------------------------- + Program to convert forms fdesign file to pascal code + Copyright (C) 1997 Michael Van Canneyt + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 1, or (at your option) + any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. + --------------------------------------------------------------------------- } + + +uses + baseunix, + Unix, + unixutil; + +Const RevString = '$Revision: 1.5 $'; + NrOptions = 4; + Options : Array[0..NrOptions] Of String[20] = + ('v','callback','main','altformat','compensate'); + +Type + { Properties of an object } + ContProps=(CPclass,CPtype,CPbox,CPBoxtype,CPColors,CPalignment,CPstyle,CPsize, + CPlcol,CPlabel,CPShortcut,CPresize,CPgravity,CPname,CPCallback, + CPargument, + CPinvalid); + { Properties of an object for which defaults must be set } + AdjProps=(APClass,APBoxtype,ApColors,APAlignment,APSize,APLcol,APstyle,APgravity); + { List of all object classes } + ObjClasses=(FL_INVALID,FL_BUTTON, FL_LIGHTBUTTON,FL_ROUNDBUTTON, FL_ROUND3DBUTTON, + FL_CHECKBUTTON, FL_BITMAPBUTTON, FL_PIXMAPBUTTON,FL_BITMAP, FL_PIXMAP, + FL_BOX, FL_TEXT, FL_MENU, FL_CHART, FL_CHOICE, FL_COUNTER, FL_SLIDER, FL_VALSLIDER, FL_INPUT, + FL_BROWSER,FL_DIAL,FL_TIMER,FL_CLOCK, FL_POSITIONER, FL_FREE, + FL_XYPLOT,FL_FRAME, FL_LABELFRAME, FL_CANVAS, FL_GLCANVAS, + FL_IMAGECANVAS, FL_FOLDER); + { Properties in preamble } + PreProps=(PPmagic,PPNrforms,PPUnitofMeasure,PPinvalid); + { Properties of a form } + FormProps=(FPName,FPWidth,FPHeight,FPnumObjs,FPinvalid); + +Const + { Names of all object properties } + ContPropNames : Array[ContProps] of string[20] = + ('class','type','box','boxtype','colors','alignment','style','size', + 'lcol','label','shortcut','resize','gravity','name','callback', + 'argument', + 'invalid'); + { Names of all object properties which must be checked.} + AdjPropsNames : Array[AdjProps] of string[20] = + ('class','boxtype','colors','alignment','size','lcol','style','gravity'); + { Names of all preamble properties } + PrePropNames : Array[PreProps] of string[20] = + ('Magic','Number of forms','Unit of measure','Invalid'); + { Names of all form properties } + FormPropNames : Array[FormProps] of string[20] = + ('Name','Width','Height','Number of Objects','Invalid'); + { Names of all object classes } + FObjClassNames : Array[ObjClasses] of string[20]= + ('FL_INVALID','BUTTON', 'LIGHTBUTTON','ROUNDBUTTON', 'ROUND3DBUTTON', + 'CHECKBUTTON', 'BITMAPBUTTON', 'PIXMAPBUTTON','BITMAP', 'PIXMAP', + 'BOX', 'TEXT', 'MENU', 'CHART', 'CHOICE', 'COUNTER', 'SLIDER', 'VALSLIDER', 'INPUT', + 'BROWSER','DIAL','TIMER','CLOCK', 'POSITIONER', 'FREE', + 'XYPLOT','FRAME', 'LABELFRAME', 'CANVAS', 'GLCANVAS', + 'IMAGECANVAS', 'FOLDER'); + + { Default properties. If empty a property is ignored. + To force setting of a property, put 'FL_FORCE' as a string. + Mind : Case sensitive } + + DefProps : array[ObjClasses,AdjProps] of string[30] = + (('FL_INVALID','','','','','','FL_NORMAL_STYLE','FL_FORCE'), + ('BUTTON','FL_UP_BOX','FL_COL1 FL_COL1','FL_ALIGN_CENTER','','FL_LCOL','FL_NORMAL_STYLE','FL_FORCE'), + ('LIGHTBUTTON','FL_UP_BOX','FL_COL1 FL_YELLOW','FL_ALIGN_CENTER','','FL_LCOL','FL_NORMAL_STYLE','FL_FORCE'), + ('ROUNDBUTTON','FL_NO_BOX','FL_MCOL FL_YELLOW','FL_ALIGN_CENTER','','FL_LCOL','FL_NORMAL_STYLE','FL_FORCE'), + ('ROUND3DBUTTON','FL_NO_BOX','FL_COL1 FL_BLACK','FL_ALIGN_CENTER','','FL_LCOL','FL_NORMAL_STYLE','FL_FORCE'), + ('CHECKBUTTON','FL_NO_BOX','FL_COL1 FL_YELLOW','FL_ALIGN_CENTER','','FL_LCOL','FL_NORMAL_STYLE','FL_FORCE'), + ('BITMAPBUTTON','FL_UP_BOX','FL_COL1 FL_BLUE','FL_ALIGN_BOTTOM','','FL_LCOL','FL_NORMAL_STYLE','FL_FORCE'), + ('PIXMAPBUTTON','FL_UP_BOX','FL_COL1 FL_YELLOW','FL_ALIGN_BOTTOM','','FL_LCOL','FL_NORMAL_STYLE','FL_FORCE'), + ('BITMAP','FL_NO_BOX','FL_COL1 FL_COL1','FL_ALIGN_BOTTOM','','FL_LCOL','FL_NORMAL_STYLE','FL_FORCE'), + ('PIXMAP','FL_NO_BOX','FL_COL1 FL_COL1','FL_ALIGN_BOTTOM','','FL_LCOL','FL_NORMAL_STYLE','FL_FORCE'), + ('BOX','','','','','','FL_NORMAL_STYLE','FL_FORCE'), + ('TEXT','FL_FLAT_BOX','FL_COL1 FL_MCOL','FL_ALIGN_LEFT','','FL_LCOL','FL_NORMAL_STYLE','FL_FORCE'), + ('MENU','FL_BORDER_BOX','FL_COL1 FL_MCOL','FL_ALIGN_CENTER','','FL_LCOL','FL_NORMAL_STYLE','FL_FORCE'), + ('CHART','FL_BORDER_BOX','FL_COL1','FL_ALIGN_BOTTOM','','FL_LCOL','FL_NORMAL_STYLE','FL_FORCE'), + ('CHOICE','FL_ROUNDED_BOX','FL_COL1 FL_LCOL','FL_ALIGN_LEFT','','FL_LCOL','FL_NORMAL_STYLE','FL_FORCE'), + ('COUNTER','FL_UP_BOX','FL_COL1 FL_BLUE','FL_ALIGN_BOTTOM','','FL_LCOL','FL_NORMAL_STYLE','FL_FORCE'), + ('SLIDER','FL_DOWN_BOX','FL_COL1 FL_COL1','FL_ALIGN_BOTTOM','','FL_LCOL','FL_NORMAL_STYLE','FL_FORCE'), + ('VALSLIDER','FL_DOWN_BOX','FL_COL1 FL_COL1','FL_ALIGN_BOTTOM','','FL_LCOL','FL_NORMAL_STYLE','FL_FORCE'), + ('INPUT','FL_DOWN_BOX','FL_COL1 FL_MCOL','FL_ALIGN_LEFT','','FL_LCOL','FL_NORMAL_STYLE','FL_FORCE'), + ('BROWSER','FL_DOWN_BOX','FL_COL1 FL_YELLOW','FL_ALIGN_BOTTOM','FL_SMALL_FONT','FL_LCOL','FL_NORMAL_STYLE','FL_FORCE'), + ('DIAL','FL_FLAT_BOX','FL_COL1 FL_RIGHT_BCOL','FL_ALIGN_BOTTOM','','FL_LCOL','FL_NORMAL_STYLE','FL_FORCE'), + ('TIMER','FL_DOWN_BOX','FL_COL1 FL_RED','FL_ALIGN_CENTER','','FL_LCOL','FL_NORMAL_STYLE','FL_FORCE'), + ('CLOCK','FL_UP_BOX','FL_INACTIVE_COL FL_BOTTOM_BCOL','FL_ALIGN_BOTTOM','','FL_BLACK','FL_NORMAL_STYLE','FL_FORCE'), + ('POSITIONER','FL_DOWN_BOX','FL_COL1 FL_RED','FL_ALIGN_BOTTOM','','FL_LCOL','FL_NORMAL_STYLE','FL_FORCE'), + ('FREE','','','','','','FL_NORMAL_STYLE','FL_FORCE'), + ('XYPLOT','FL_FLAT_BOX','FL_COL1','FL_ALIGN_BOTTOM','','FL_LCOL','FL_NORMAL_STYLE','FL_FORCE'), + ('FRAME','','FL_BLACK FL_COL1','','','FL_BLACK','FL_NORMAL_STYLE','FL_FORCE'), + ('LABELFRAME','','','','','','FL_NORMAL_STYLE','FL_FORCE'), + ('CANVAS','FL_NO_BOX','','FL_ALIGN_TOP','','','FL_NORMAL_STYLE','FL_FORCE'), + ('GLCANVAS','','','','','','FL_NORMAL_STYLE','FL_FORCE'), + ('IMAGECANVAS','','','','','','FL_NORMAL_STYLE','FL_FORCE'), + ('FOLDER','','','','','','FL_NORMAL_STYLE','FL_FORCE')); + +Type + { object data type } + PControl = ^TControl; + TControl = Record + Props : array[ContProps] of string; + NextControl : PControl; + end; + + { Form data type} + PFormRec = ^TFormRec; + TFormRec = Record + Name : String; + Width,Height : String[5]; + Controls : PControl; + NextForm : PFormRec; + end; + { Callback data type } + PCBrec = ^TCBrec; + TCBrec = record + name : string; + next : PCBrec; + end; + { Property emitting procedures } + EmitProp = Procedure (Data : PControl;ObjClass : ObjClasses); + +Var + OptionsSet : Array[1..NrOptions] Of Boolean; + FileName : String; + Infile,outfile : Text; + LineNr : Longint; + NrForms,NrControls : Longint; + FormRoot : PFormRec; + cbroot : pcbrec; + { Default properties emitters } + EmitProcs : array [AdjProps] of EmitProp; + { Class specific property emitters. Nil pointers are ignored.} + ClassEmitters : Array[ObjClasses] of EmitProp; + +{ ------------------------------------------------------------------------ + Utilities Code + ------------------------------------------------------------------------ } + + +Function IntTostr (s : Longint) : String; + +var temp : String; + +begin + str(s,temp); + IntToStr:=Temp; +end; + + +Procedure EmitError (Const s : String); + +begin + writeln (stderr,'Error: ',s); + flush(stderr) +end; + +Procedure EmitLineError (Const s : string); + +begin + EmitError('Line '+IntToStr(LineNr)+': '+s) +end; + + +{ ------------------------------------------------------------------------ + Option handling Code + ------------------------------------------------------------------------ } + + +Procedure DoOptions; + +Var i,j,k : byte; + os : string; + +Procedure ShowVersion; + +begin + Writeln ('fd2pascal : ',RevString); + Halt(0); +end; + +Procedure ShowUsage; + +begin + Writeln ('fd2pascal : usage :'); + writeln (' fd2pascal [options] filename'); + writeln (' Where [options] may be zero or more of :'); + writeln (' -compensate Emit size-compensation code.'); + writeln (' -altformat Emit code in alternate format.'); + writeln (' -main Emit program instead of unit.'); + writeln (' -callback Emit callback stubs.'); + writeln; + halt(0); +end; + +begin + if paramcount=0 then + ShowUsage; + FileName:=''; + for i:=1 to paramcount do + begin + if paramstr(i)[1]<>'-' then + If FileName<>'' then + EmitError('Only one filename supported. Ignoring :'+paramstr(i)) + else + Filename:=Paramstr(i) + else + begin + os:=copy(paramstr(i),2,length(paramstr(i))-1); + k:=NrOptions+1; + for j:=0 to NrOptions do + if os=options[j] then k:=j; + if k=NrOptions+1 then + EmitError('Option not recognised : '+paramstr(i)) + else + if k=0 then ShowVersion else OptionsSet[k]:=True; + end + end; {for} + if FileName='' then + begin + EmitError('No filename supplied. Exiting.'); + halt(1); + end; +end; + +{ ------------------------------------------------------------------------ + Code for reading the input file. + ------------------------------------------------------------------------ } + + +Procedure OpenFile; +begin + if pos('.fd',FileName)=0 then + FileName:=FileName+'.fd'; + assign(infile,Filename); +{$i-} + reset (infile); +{$i+} + if ioresult<>0 then + begin + EmitError('Can''t open : '+filename); + halt(1); + end; + LineNr:=0; +end; + +Procedure CloseFile; + +begin + Close(infile); +end; + +Procedure GetLine(Var S : String); + +begin + inc(LineNr); + Readln(infile,s); +{$ifdef debug} + writeln ('Reading line : ',linenr) +{$endif} +end; + +Procedure ProcessPreAmbleLine (Const s: String); + +var key,value : string; + ppos : Longint; + i,k : PreProps; + code : Word; + +begin + if s='' then exit; + ppos:=pos(':',s); + if ppos=0 then + exit; + Key:=Copy(s,1,ppos-1); + Value:=Copy(s,ppos+2,length(s)-ppos-1); + k:=PPinvalid; + for i:=PPmagic to PPinvalid do + if key=PrePropNames[i] then k:=i; + if k=PPinvalid then + EmitLineError('Unknown keyword : '+Key) + else + Case K of + PPMagic, + PPunitofmeasure: ; + PPnrforms: begin + val(value,NrForms,code); + if code<>0 then EmitLineError('Invalid number of forms'); + end; + end; +end; + +{ ------------------------------------------------------------------------ + Code for reading preamble. + ------------------------------------------------------------------------ } + + +Procedure DoPreamble; + +var line : String; + +begin +{$ifdef debug} + writeln ('Starting preamble'); +{$endif} + Getline (line); + while pos('= FORM =',line)=0 do + begin + ProcessPreAmbleLine(line); + GetLine(Line) + end; +end; + +{ ------------------------------------------------------------------------ + Code for reading 1 object. + ------------------------------------------------------------------------ } + + +Procedure ProcessControlLine (PC : PControl; const S : String); + +Var Key,Value : String; + i,k : ContProps; + ppos : word; + +begin + if s='' then exit; + ppos:=pos(':',s); + if ppos=0 then + exit; + Key:=Copy(s,1,ppos-1); + Value:=Copy(s,ppos+2,length(s)-ppos-1); + K:=CPInvalid; + For i:=CPclass to CPInvalid do + if ContPropNames[i]=Key then k:=i; + if K=CPinvalid then + begin + EmitLineError('Unknown keyword'+key); + exit + end; + PC^.props[k]:=value; +end; + +Procedure ProcessControl (PC : PControl); + +var line : String; + +begin +{$ifdef debug} + Writeln ('Starting Control'); +{$endif} + Getline(Line); + while Line<>'' do + begin + ProcessControlLine (PC,line); + Getline(Line); + end; + Getline(Line) +end; + +{ ------------------------------------------------------------------------ + Code for reading 1 form. + ------------------------------------------------------------------------ } + +Procedure ProcessFormLine (PF : PFormRec; const S : String); + +Var Key,Value : String; + i,k : FormProps; + ppos,code : word; + +begin + if s='' then exit; + ppos:=pos(':',s); + if ppos=0 then + exit; + Key:=Copy(s,1,ppos-1); + Value:=Copy(s,ppos+2,length(s)-ppos-1); + K:=FPInvalid; + For i:=FPName to FPInvalid do + if FormPropNames[i]=Key then k:=i; + if K=FPinvalid then + begin + EmitLineError('Unknown keyword'+key); + exit + end; + case k of + FPname : PF^.name:=value; + FPWidth : PF^.width:=value; + FPHeight : PF^.height:=value; + FPNumObjs : begin + val(value,Nrcontrols,code); + If Code<>0 then EmitLineError('Invalid number of objects : '+value) + end; + end; +end; + +Procedure ProcessForm (PF : PFormRec); + +Var line : String; + CurrentControl : PControl; + I : Integer; + +begin +{$ifdef debug} + writeln('Starting form'); +{$endif} + NrControls:=0; + with PF^ do + begin + name:=''; + Width:=''; + Height:=''; + Controls:=nil; + GetLine(Line); + while line<>'' do + begin + ProcessFormLine(PF,Line); + GetLine(Line); + end; + Getline(Line); + If NrControls=0 then + Controls:=nil + else + begin + New (Controls); + CurrentControl:=Controls; + for i:=1 to nrcontrols do + begin + ProcessControl(CurrentControl); + if i<NrControls then + New(CurrentControl^.NextControl) + else + CurrentControl^.NextControl:=nil; + CurrentControl:=CurrentControl^.NextControl + end; { for } + end; { Else } + end; { With } +end; + +{ ------------------------------------------------------------------------ + Code for reading the forms. + ------------------------------------------------------------------------ } + + +Procedure DoForms; + +Var + i : Longint; + CurrentForm: PformRec; + +begin + FormRoot:=Nil; + if NrForms=0 then exit; + new(FormRoot); + Currentform:=FormRoot; + for i:=1 to nrforms do + begin + ProcessForm (CurrentForm); + If i=nrforms then + Currentform^.NextForm:=nil + else + New(CurrentForm^.NextForm); + CurrentForm:=CurrentForm^.NextForm; + end; +end; + +{ ------------------------------------------------------------------------ + Code for reading the postamble. + ------------------------------------------------------------------------ } + + +Procedure DoPostamble; + +begin +end; + +{ ------------------------------------------------------------------------ + Code for writing the output file. + ------------------------------------------------------------------------ } + +Procedure OpenOutFile; + +var info : stat; + +begin + FileName:=Copy(Filename,1,Length(Filename)-3)+'.pp'; + if fpstat(FileName,info)<>-1 Then + begin + { File exists, move to .bak} + fplink (FileName,FileName+'.bak'); + fpunlink(FileName); + end; + + assign(outfile,filename); +{$i-} + rewrite(outfile); +{$i+} + if ioresult<>0 then + begin + EmitError('Couldn''t open output file : '+filename); + halt(1) + end; +end; + +Procedure CloseOutFile; + +begin + Close(OutFile); +end; + +{ ------------------------------------------------------------------------ + Code to emit Header/variable/type declarations + ------------------------------------------------------------------------ } + + +Procedure EmitType (fp : Pformrec); + +var cp : PControl; + +begin + writeln (OutFile,' TFD_',fp^.name,' = record'); + writeln (OutFile,' ',fp^.name,' : PFL_FORM;'); + writeln (OutFile,' vdata : Pointer;'); + writeln (OutFile,' ldata : Longint;'); + cp:=fp^.controls; + {Skip first control, is formbackground } + if cp<>nil then cp:=cp^.nextcontrol; + while cp<>nil do + begin + if cp^.props[CPclass]<>'FL_END_GROUP' then + begin + write (Outfile,' ',cp^.props[CPname]); + if cp^.nextcontrol<>nil then + writeln (OutFile,',') + else + writeln (OutFile,' : PFL_OBJECT;'); + end; + cp:=cp^.nextcontrol; + end; + writeln (OutFile,' end;'); + writeln (OutFile,' PFD_',fp^.name,' = ^TFD_',fp^.name,';'); + writeln (OutFile); +end; + +Procedure EmitVar (fp : Pformrec); + +var cp : PControl; + +begin + writeln (OutFile,' ',fp^.name,' : PFL_FORM;'); + cp:=fp^.controls; + {Skip first control, is formbackground } + if cp<>nil then cp:=cp^.nextcontrol; + while cp<>nil do + begin + if cp^.props[CPclass]<>'FL_END_GROUP' then + begin + write (Outfile,' ',cp^.props[CPname]); + if cp^.nextcontrol<>nil then + writeln (OutFile,',') + else + writeln (OutFile,' : PFL_OBJECT;'); + end; + cp:=cp^.nextcontrol; + end; + writeln (OutFile); +end; + +Procedure EmitHeader; + +var fp : PFormRec; + +begin + if OptionsSet[2] then + write (OutFile,'Program ') + else + write (OutFile,'Unit '); + writeln (OutFile,basename(filename,'.pp'),';'); + writeln (OutFile); + writeln (OutFile,'{ Form definition file generated by fd2pascal }'); + writeln (Outfile); + if not OptionsSet[2] then + begin + writeln (OutFile,'Interface'); + writeln (OutFile); + end; + writeln (OutFile,'Uses forms;'); + writeln (OutFile); + writeln (OutFile,' { Variable / Type definitions. }'); + if Optionsset[3] then + writeln (OutFile,'Var') + else + writeln (OutFile,'Type'); + fp:=FormRoot; + While fp<>nil do + begin + if not optionsset[3] then + EmitType(fp) { Emit Type definitions } + else + EmitVar(fp); { Emit Variable declaration} + fp:=fp^.nextform; + end; + if not optionsset[2] then + begin + { No program, we must emit interface stuff } + if not (optionsset[3]) then + begin + { Emit normal interface declarations + -> functions } + fp:=formroot; + while fp<>nil do + begin + with fp^ do + writeln (OutFile,'Function create_form_',name,' : PFD_',name,';'); + fp:=fp^.nextform; + end; + end + else + begin + { Emit alternate interface declaration + -> 1 function to create all forms.} + writeln (OutFile,'Procedure Create_The_Forms;'); + end; + writeln (OutFile); + writeln (OutFile,'Implementation'); + end + else + begin + { We must make a program. } + if not(optionsset[3]) then + begin + { Normal format, so we need to emit variables for the forms.} + writeln (OutFile,'Var'); + fp:=formroot; + while fp<>nil do + begin + writeln (OutFile,' ',fp^.name,' : PFD_',fp^.name,';'); + fp:=fp^.nextform; + end; + writeln (OutFile); + end; + end; + writeln (OutFile); +end; + +{ ------------------------------------------------------------------------ + Code to emit footer/main program + ------------------------------------------------------------------------ } + + +Procedure EmitCreateforms; + +var fp : PFormRec; + +begin + writeln (OutFile,'Procedure Create_The_Forms;'); + writeln (OutFile); + writeln (OutFile,'begin'); + fp:=FormRoot; + while fp<>nil do + begin + writeln(OutFile,'create_form_',fp^.name,';'); + fp:=fp^.nextform; + end; + writeln (outFile,'End;'); + writeln (OutFile); +end; + +Procedure EmitAlternateMain; +begin + { Alternate format, we just call creatallforms to create all forms} + writeln (OutFile,'Create_The_Forms;'); + writeln (OutFile,' fl_show_form(',formroot^.name, + ',FL_PLACE_CENTER,FL_FULLBORDER,''', + FormRoot^.name,''');'); +end; + +Procedure EmitMain; + +var fp : PFormRec; + +begin + { variables are emitted in the header } + fp:=formroot; + { Create all forms } + while fp<>nil do + begin + writeln (OutFile,' ',fp^.name,' :=Create_Form_',fp^.name,';'); + fp:=fp^.nextform; + end; + { Show the first form } + writeln (OutFile,' fl_show_form(',formroot^.name,'^.',Formroot^.name, + ',FL_PLACE_CENTER,FL_FULLBORDER,''', + FormRoot^.name,''');'); +end; + +Procedure EmitFooter; +begin + if OptionsSet[3] then {Alternate format.} + EmitCreateForms; + if Optionsset[2] then + begin + {Emit Main Program} + writeln (OutFile); + writeln (OutFile,'Begin'); + writeln (OutFile,' fl_initialize (@argc,argv,''', + basename(Filename,'.pp'),''',nil,0);'); + if Not(OptionsSet[3]) then + EmitMain + else + EmitAlternateMain; + writeln (OutFile,' fl_do_forms;'); + end + else + writeln (OutFile,'begin'); + writeln (OutFile,'end.') +end; + + + + +{ ------------------------------------------------------------------------ + Code to emit properties + ------------------------------------------------------------------------ } + + +Function EmitString(S : string) : String; + +var temp : String; + i : longint; + +begin + temp:=''''; + for i:=1 to length(s) do + if s[i]<>'''' then temp:=temp+s[i] else temp:=temp+''''''; + Temp:=temp+''''; + EmitString:=temp; +end; + +Procedure EmitBoxtype (cp : PControl;ObjClass : ObjClasses); + +begin +{$ifdef debug} + writeln ('EmitBoxType called with args:'); + writeln (cp^.props[cpboxtype]); + writeln (defprops[objclass,APboxtype]); + writeln ('for object : ',defprops[objclass,apclass]); + writeln ('With object : ',cp^.props[cpclass]); +{$endif} + if cp^.props[cpboxtype]<>defprops[objclass,APboxtype] then + writeln (OutFile,' fl_set_object_boxtype(obj,', + cp^.props[cpboxtype],');') +end; + +Procedure EmitColors (cp : PControl;ObjClass : ObjClasses); + +var temp : string; + +begin + if cp^.props[cpcolors]<>defprops[objclass,APcolors] then + begin + temp:=cp^.props[cpcolors]; + if pos(' ',temp)=0 then exit; + temp[pos(' ',temp)]:=','; + writeln (OutFile,' fl_set_object_color(obj,',temp,');'); + end; +end; + +Procedure EmitAlignment (cp : PControl;ObjClass : ObjClasses); + +begin + if cp^.props[cpalignment]<>defprops[objclass,APalignment] then + writeln (OutFile,' fl_set_object_alignment(obj,', + cp^.props[cpalignment],');'); +end; + +Procedure EmitLcol (cp : PControl;ObjClass : ObjClasses); + +begin + if cp^.props[cplcol]<>defprops[objclass,APlcol] then + writeln (OutFile,' fl_set_object_lcol(obj,', + cp^.props[cplcol],');'); +end; + + +Procedure EmitSize (cp : PControl;ObjClass : ObjClasses); + +begin + if cp^.props[cpsize]<>defprops[objclass,APsize] then + writeln (OutFile,' fl_set_object_lsize(obj,', + cp^.props[cpsize],');'); +end; + +Procedure EmitStyle (cp : PControl;ObjClass : ObjClasses); + +begin + if cp^.props[cpstyle]<>defprops[objclass,APstyle] then + writeln (OutFile,' fl_set_object_lstyle(obj,', + cp^.props[cpstyle],');'); +end; + +Procedure EmitGravity (cp : PControl;ObjClass : ObjClasses); + +var temp: string; + +begin + if cp^.props[cpstyle]<>'FL_NoGravity FL_NoGravity' then + begin + temp:=cp^.props[cpstyle]; + if pos(' ',temp)=0 then exit; + temp[pos(' ',temp)]:=','; + writeln (OutFile,' fl_set_object_gravity(obj,', + temp,');'); + end; +end; + + +Procedure EmitProperties (Cp : PControl; Objclass : ObjClasses); + +Var i : AdjProps; + +begin + for i:=APboxtype to APgravity do + if DefProps[ObjClass,i]<>'' then + EmitProcs[i](cp,objclass); +end; + +{ ------------------------------------------------------------------------ + Code to emit objects + ------------------------------------------------------------------------ } + +Procedure EmitObject(cp : PControl); + +var temp : string; + I : Longint; + j,k : ObjClasses; + +begin +with cp^ do + begin + temp:=lowercase(props[CPclass]); + delete(temp,1,3); + if temp='begin_group' then + begin + writeln (OutFile); + write (OutFile,' '); + if not (Optionsset[3]) then Write (OutFile,'fdui^.'); + writeln (OutFile,props[cpname],':=fl_bgn_group;'); + exit; + end + else if temp='end_group' then + begin + writeln (OutFile,' fl_end_group;'); + writeln (OutFile); + exit; + end; + { Normal object. Emit creation code. } + write (OutFile,' obj:=fl_add_',temp,' (FL_',props[Cptype],','); + temp:=props[cpbox]; + for i:=1 to 3 do + begin + write (OutFile,copy(temp,1,pos(' ',temp)-1),','); + delete (temp,1,pos(' ',temp)); + end; + writeln (OutFile,temp,',',EmitString(props[cplabel]),');'); + { Emit Callback code if needed } + if props[cpcallback]<>'' then + begin + write (OutFile,' fl_set_object_callback(obj,PFL_CALLBACKPTR(@'); + write (OutFile,props[CPcallback],'),'); + if props[CPargument]<>'' then + writeln (OutFile,props[CPargument],');') + else + writeln (OutFile,'0);'); + end; + { If known object, start emitting properties } + temp:=props[CPclass]; + delete(temp,1,3); + k:=FL_INVALID; + for j:=FL_BUTTON to FL_FOLDER do + if temp=DefProps[j,apclass] then k:=j; + if k<>FL_INVALID then + begin + { Emit defaults } + EmitProperties (cp,k); + { If A class-specific emitter exists, call it.} + if Assigned(ClassEmitters[k]) then + ClassEmitters[k] (cp,k); + end; + { Assign to needed object. } + if Optionsset[3] then + Writeln (OutFile,' ',props[cpname],':=obj;') + else + Writeln (OutFile,' fdui^.',props[cpname],':=obj;'); + end; +end; + +{ ------------------------------------------------------------------------ + Code to emit forms + ------------------------------------------------------------------------ } + +Procedure EmitForm(fp : PFormRec); + +Var +cp : PControl; + +begin +with fp^ do + begin + if Optionsset[3] then + begin + writeln (OutFile,'Procedure create_form_',name,';'); + writeln (OutFile); + writeln (OutFile,'Var obj : PFL_OBJECT;'); + writeln (OutFile); + writeln (OutFile,'Begin'); + writeln (OutFile,' If ',name,'<>nil then exit;'); + write (OutFile,' ',name); + end + else + begin + writeln (OutFile,'Function create_form_',name,' : PFD_',name,';'); + writeln (OutFile); + writeln (OutFile,'Var obj : PFL_OBJECT;'); + writeln (OutFile,' fdui : PFD_',name,';'); + writeln (OutFile); + writeln (OutFile,'Begin'); + writeln (OutFile,' New(fdui);'); + write (OutFile,' fdui^.',name); + end; + writeln (OutFile,':=fl_bgn_form(FL_NO_BOX,' + ,width,',' + ,height,');'); + cp:=controls; + writeln (OutFile,' obj:=fl_add_box(',cp^.props[CPboxtype],',0,0,', + width,',', + height,',', + EmitString (cp^.props[CPname]),');'); + cp:=cp^.nextcontrol; + { Emit all objects } + while cp<>nil do + begin + EmitObject(cp); + cp:=cp^.nextcontrol; + end; + writeln (OutFile,' fl_end_form;'); + if Optionsset[4] then + begin + { Emit Compensation code } + write (OutFile,' fl_adjust_form_size('); + if not(OptionsSet[3]) then write (OutFile,'fdui^.'); + writeln(OutFile,fp^.name,');'); + end; + if not(OptionsSet[3]) then + begin + writeln (OutFile,' fdui^.',fp^.name,'^.fdui:=fdui;'); + writeln (OutFile,' create_form_',fp^.name,':=fdui;'); + end; + writeln (OutFile,'end;'); + writeln (OutFile); + end; +end; + +Procedure EmitForms; + +var + fp : PformRec; +begin + { Start emitting forms } + fp:=Formroot; + while fp<>nil do + begin + EmitForm(fp); + fp:=fp^.nextform; + end; +end; + +{ ------------------------------------------------------------------------ + Code to emit callbacks + ------------------------------------------------------------------------ } + +Procedure CollectCallbacks; + +Var CurrentCb,CBwalk : PCBrec; + fp : PformRec; + cp : PControl; + +begin + CbRoot:=nil; + CurrentCB:=cbroot; + fp:=formroot; + while fp<>nil do + begin + cp:=fp^.controls; + while cp<>nil do + begin + if cp^.props[CPcallback]<>'' then + if cbroot<>nil then + begin + cbwalk:=cbroot; + while cbwalk<>nil do + if upcase(cbwalk^.name)=upcase(cp^.props[CPcallback]) then + break + else + cbwalk:=cbwalk^.next; + if cbwalk=nil then + begin + new(currentcb^.next); + currentcb:=currentcb^.next; + currentcb^.name:=cp^.props[CPcallback]; + currentcb^.next:=nil; + end; + end + else + begin + new(cbroot); + currentcb:=cbroot; + cbroot^.name:=cp^.props[CPcallback]; + cbroot^.next:=nil; + end; + cp:=cp^.nextcontrol; + end; + fp:=fp^.nextform; + end; +end; + +Procedure EmitCallback (Const s : string); + +begin + writeln (OutFile,'Procedure ',s,' (Sender: PFL_OBJECT; Data : Longint); export;'); + writeln (OutFile); + writeln (OutFile,'begin'); + writeln (OutFile,' { Place your code here }'); + writeln (OutFile,'end;'); + writeln (OutFile); +end; + +Procedure EmitCallBacks; + +var cb : pcbrec; + +begin + { See if we must emit callback stubs } + If Optionsset[1] then + begin + cb:=cbroot; + while cb<>nil do + begin + EmitCallBack(cb^.Name); + cb:=cb^.next; + end; + end; +end; + + +{ ------------------------------------------------------------------------ + EmitterTable initialization Code + ------------------------------------------------------------------------ } + +Procedure EmitDummy (cp : PControl;ObjClass : ObjClasses); + +begin +end; + +Procedure InitEmitters; + +var i : objclasses; + +begin + EmitProcs[APClass]:=@EmitDummy; + EmitProcs[APBoxtype]:=@EmitBoxType; + EmitProcs[APColors]:=@EmitColors; + EmitProcs[APAlignment]:=@EmitAlignment; + EmitProcs[APlcol]:=@EmitLcol; + EmitProcs[APsize]:=@EmitSize; + EmitProcs[APStyle]:=@EmitStyle; + EmitProcs[APgravity]:=@EmitGravity; + for i:=FL_INVALID to FL_FOLDER do + ClassEmitters[i]:=EmitProp(Nil); +end; + +{ ------------------------------------------------------------------------ + Main program Code + ------------------------------------------------------------------------ } + + +begin + { Process options } + DoOptions; + { Read input file } + OpenFile; + DoPreamble; + DoForms; + DoPostamble; + CloseFile; + { Write output file } + OpenOutfile; + InitEmitters; + CollectCallbacks; + EmitHeader; + EmitCallbacks; + EmitForms; + EmitFooter; + CloseOutFile; +end. diff --git a/packages/xforms/src/xforms.pp b/packages/xforms/src/xforms.pp new file mode 100644 index 0000000000..2d5ded9ecf --- /dev/null +++ b/packages/xforms/src/xforms.pp @@ -0,0 +1,2909 @@ +{ +} +Unit xforms; +Interface + +{$linklib forms} +{$linklib c} +{$linklib m} + +uses + x,xlib,xutil,xresource; + +const + FL_VERSION=0; + FL_REVISION=88; + FL_FIXLEVEL=0; + FL_INCLUDE_VERSION=FL_VERSION * 1000 + FL_REVISION; + +{ some general constants } + FL_ON = 1; + FL_OK = 1; + FL_VALID = 1; + FL_PREEMPT = 1; + FL_AUTO = 2; + FL_WHEN_NEEDED = FL_AUTO; + + FL_OFF = 0; + {FL_NONE = 0;} + FL_CANCEL = 0; + FL_INVALID = 0; + + FL_IGNORE = -1; + FL_CLOSE = -2; +{ + * The screen coordinate unit, FL_Coord, must be of signed type. Without + * prototype support, a type other than integer might not work right. + * If FL_Coord is float, FL_CoordIsFloat must be defined to be 1 so that + * round-off error can be checked. **TODO Float not tested *** + } +Type PWord = ^Word; + PDouble = ^Double; + PFloat = ^Real; + PLongint = ^Longint; + PCardinal = ^Cardinal; + +type TFL_Coord = Longint ; + PFL_Coord = ^TFL_Coord; +{ #define FL_CoordIsFloat 0 define this if FL_Coord is of type float } + TFL_COLOR = longint; { Was cardinal } + PFL_COLOR = ^TFL_COLOR; + +{ + * Coordinates can be in pixels, milli-meters or points (1/72inch) + } + TFL_COORD_UNIT=Longint ; + { POssible values } +Const + FL_COORD_PIXEL=0; { default, Pixel } + FL_COORD_MM=1; { milli-meter } + FL_COORD_POINT=2; { point } + FL_COORD_centiMM=3; { one hundredth of a mm } + FL_COORD_centiPOINT=4; { one hundredth of a point } + +{ + * All object classes. + } + +type TFL_Class = Longint; + +Const { Possible values } + FL_INVALID_CLASS=0; + FL_BUTTON=1; + FL_LIGHTBUTTON=2; + FL_ROUNDBUTTON=3; + FL_ROUND_3DBUTTON=4; + FL_CHECKBUTTON=5; + FL_BITMAPBUTTON=6; + FL_PIXMAPBUTTON=7; + FL_BITMAP=8; + FL_PIXMAP=9; + FL_BOX=10; + FL_TEXT=11; + FL_MENU=12; + FL_CHART=13; + FL_CHOICE=14; + FL_COUNTER=15; + FL_SLIDER=16; + FL_VALSLIDER=17; + FL_INPUT=18; + FL_BROWSER=19; + FL_DIAL=21; + FL_TIMER=21; + FL_CLOCK=22; + FL_POSITIONER=23; + FL_FREE=24; + FL_XYPLOT=25; + FL_FRAME=26; + FL_LABELFRAME=27; + FL_CANVAS=28; + FL_GLCANVAS=29; + FL_TABFOLDER=30; + FL_SCROLLBAR=31; + FL_SCROLLBUTTON=32; + FL_MENUBAR=33; + FL_IMAGECANVAS=34; + FL_TEXTBOX=35; + +{ how to display a form onto screen } + +Type + TFL_PLace = Longint; + +Const + FL_PLACE_FREE = 0; { size remain resizable } + FL_PLACE_MOUSE = 1; { mouse centered on form } + FL_PLACE_CENTER = 2; { center of the screen } + FL_PLACE_POSITION = 4; { specific size } + FL_PLACE_SIZE = 8; { specific size } + FL_PLACE_GEOMETRY = 16; { specific position } + FL_PLACE_ASPECT = 32; { keep aspect ratio } + FL_PLACE_FULLSCREEN = 64; { scale to fit screen } + FL_PLACE_HOTSPOT = 128; { so mouse fall on (x,y) } + FL_PLACE_ICONIC = 256; + { modifier } + FL_FREE_SIZE = 1 shl 14; + FL_FIX_SIZE = 1 shl 15; + + FL_PLACE_FREE_CENTER = FL_PLACE_CENTER or FL_FREE_SIZE; + FL_PLACE_CENTERFREE = FL_PLACE_CENTER or FL_FREE_SIZE; + +{ Window manager decoration request } + +type + TFL_DECORATION = Longint; + +Const { Possible values for FL_DECORATION } + FL_FULLBORDER = 1; { normal } + FL_TRANSIENT = 2; { set TRANSIENT_FOR property } + FL_NOBORDER = 3; { use override_redirect to supress decor. } + FL_MODAL = 1 << 8; +type + { All box types } + TFL_BOX_TYPE = Longint; +Const { Possible values } + FL_NO_BOX=0; + FL_UP_BOX=1; + FL_DOWN_BOX=2; + FL_BORDER_BOX=3; + FL_SHADOW_BOX=4; + FL_FRAME_BOX=5; + FL_ROUNDED_BOX=6; + FL_EMBOSSED_BOX=7; + FL_FLAT_BOX=8; + FL_RFLAT_BOX=9; + FL_RSHADOW_BOX=10; + FL_OVAL_BOX=11; + FL_ROUNDED3D_UPBOX=12; + FL_ROUNDED3D_DOWNBOX=13; + FL_OVAL3D_UPBOX=14; + FL_OVAL3D_DOWNBOX=15; + FL_OVAL3D_FRAMEBOX=16; + FL_OVAL3D_EMBOSSEDBOX=17; + { Internal use only } + FL_TOPTAB_UPBOX=18; + FL_SELECTED_TOPTAB_UPBOX=19; + FL_BOTTOMTAB_UPBOX=20; + FL_SELECTED_BOTTOMTAB_UPBOX=21; + FL_OSHADOW_BOX=22; + +{ How to place text relative to a box } +Type + TFL_ALIGN = Longint; + +Const { Possible values for FL_ALIGN } + FL_ALIGN_CENTER = 0; + FL_ALIGN_TOP = 1; + FL_ALIGN_BOTTOM = 2; + FL_ALIGN_LEFT = 4; + FL_ALIGN_RIGHT = 8; + FL_ALIGN_TOP_LEFT = FL_ALIGN_TOP or FL_ALIGN_LEFT; + FL_ALIGN_TOP_RIGHT = FL_ALIGN_TOP or FL_ALIGN_RIGHT; + FL_ALIGN_BOTTOM_LEFT = FL_ALIGN_BOTTOM or FL_ALIGN_LEFT; + FL_ALIGN_BOTTOM_RIGHT = FL_ALIGN_BOTTOM or FL_ALIGN_RIGHT; + FL_ALIGN_INSIDE = (1 shl 13); + FL_ALIGN_VERT = (1 shl 14); { not functional yet } + + FL_ALIGN_LEFT_TOP = FL_ALIGN_TOP_LEFT; + FL_ALIGN_RIGHT_TOP = FL_ALIGN_TOP_RIGHT; + FL_ALIGN_LEFT_BOTTOM = FL_ALIGN_BOTTOM_LEFT; + FL_ALIGN_RIGHT_BOTTOM = FL_ALIGN_BOTTOM_RIGHT; + +{ Mouse buttons } + +FL_MBUTTON1=1; FL_LEFT_MOUSE=FL_MBUTTON1; +FL_MBUTTON2=2; FL_MIDDLE_MOUSE=FL_MBUTTON2; +FL_MBUTTON3=3; FL_RIGHT_MOUSE=FL_MBUTTON3; +FL_MBUTTON4=4; +FL_MBUTTON5=5; + + +{ control when to reutrn input, slider and dial object. } + + FL_RETURN_END_CHANGED = 0; + FL_RETURN_CHANGED = 1; + FL_RETURN_END = 2; + FL_RETURN_ALWAYS = 3; + FL_RETURN_DBLCLICK = 4; + +{ + * Some special color indeces for FL private colormap. It does not matter + * what the value of each enum is, but it must start from 0 and be + * consecutive. + } + + + +Type + TFL_DP_COL = Longint; +Const + FL_BLACK = 0; + FL_RED = 1; + FL_GREEN = 2; + FL_YELLOW = 3; + FL_BLUE = 4; + FL_MAGENTA = 5; + FL_CYAN = 6; + FL_WHITE = 7; + + FL_TOMATO = 8; + FL_INDIANRED = 9; + FL_SLATEBLUE = 10; + + FL_COL1 = 11; + FL_RIGHT_BCOL = 12; + FL_BOTTOM_BCOL = 13; + FL_TOP_BCOL = 14; + FL_LEFT_BCOL = 15; + FL_MCOL = 16; + + FL_INACTIVE = 17; + FL_PALEGREEN = 18; + FL_DARKGOLD = 19; + + FL_ORCHID = 20; + FL_DARKCYAN = 21; + FL_DARKTOMATO = 22; + FL_WHEAT = 23; + FL_DARKORANGE = 24; + FL_DEEPPINK = 25; + FL_CHARTREUSE = 26; + FL_DARKVIOLET = 27; + FL_SPRINGGREEN = 28; + FL_DOGERBLUE = 29; + + FL_FREE_COL1 = 256; + FL_FREE_COL2 = 257; + FL_FREE_COL3 = 258; + FL_FREE_COL4 = 259; + FL_FREE_COL5 = 260; + FL_FREE_COL6 = 261; + FL_FREE_COL7 = 262; + FL_FREE_COL8 = 263; + FL_FREE_COL9 = 264; + FL_FREE_COL10 = 265; + FL_FREE_COL11 = 266; + FL_FREE_COL12 = 267; + FL_FREE_COL13 = 268; + FL_FREE_COL14 = 269; + FL_FREE_COL15 = 270; + FL_FREE_COL16 = 271; + +FL_BUILT_IN_COLS = FL_DOGERBLUE+1; +FL_INACTIVE_COL = FL_INACTIVE; + +{ Some aliases for the color. This is actually backwards ... } + +Const +FL_GRAY16=FL_RIGHT_BCOL; +FL_GRAY35 = FL_BOTTOM_BCOL; +FL_GRAY80 = FL_TOP_BCOL; +FL_GRAY90 = FL_LEFT_BCOL; +FL_GRAY63 = FL_COL1; +FL_GRAY75 = FL_MCOL; +FL_LCOL = FL_BLACK; + +{ + * Pop-up menu item attributes. NOTE if more than 8, need to change + * choice and menu class where mode is kept by a single byte + } + FL_PUP_NONE = 0; + FL_PUP_GREY = 1; + FL_PUP_BOX = 2; + FL_PUP_CHECK = 4; + FL_PUP_RADIO = 8; + +FL_PUP_GRAY = FL_PUP_GREY; +FL_PUP_TOGGLE = FL_PUP_BOX; +FL_PUP_INACTIVE = FL_PUP_GREY; + +type + TFL_PUP_CB = Procedure (p1 : Longint); { call back prototype } cdecl; + PFL_PUP_CB = ^TFL_PUP_CB; + + TFL_PUP_ENTRY = record + TheText : pchar; { label of a popup/menu item } + CallBack : PFL_PUP_CB; { the callback function } + shortcut : pchar; { hotkeys } + mode : longint; { FL_PUP_GRAY, FL_PUP_CHECK etc } + end; + PFL_PUP_ENTRY = ^TFL_PUP_ENTRY; + + TFL_MENU_ENTRY = TFL_PUP_ENTRY; + PFL_MENU_ENTRY = ^TFL_MENU_ENTRY; + +{ Events that a form reacts to. } +type TFL_EVENT = Longint; +Const { Possible values } + FL_NOEVENT = 0; + FL_DRAW = 1; + FL_PUSH = 2; + FL_RELEASE = 3; + FL_ENTER = 4; + FL_LEAVE = 5; + FL_MOUSE = 6; + FL_FOCUS = 7; + FL_UNFOCUS = 8; + FL_KEYBOARD = 9; + FL_MOTION = 10; + FL_STEP = 11; + FL_SHORTCUT = 12; + FL_FREEMEM = 13; + FL_OTHER = 14; { property, selection etc } + FL_DRAWLABEL = 15; + FL_DBLCLICK = 16; { double click } + FL_TRPLCLICK = 17; { triple click } + FL_PS = 18; { dump a form into EPS } + +const +FL_MOVE=FL_MOTION; { for compatibility } + +{ Resize policies } +type TFL_RESIZE_T = Longint; + +const + FL_RESIZE_NONE = 0; + FL_RESIZE_X = 1; + FL_RESIZE_Y = 2; + +const + FL_RESIZE_ALL = FL_RESIZE_X or FL_RESIZE_Y; + +{ Keyboard focus control } +type + TFL_KEY = Longint; + +Const { Possible values for FL_KEY_Normal } + FL_KEY_NORMAL = 1; { normal keys(0-255) - tab +left/right } + FL_KEY_TAB = 2; { normal keys + 4 direction cursor } + FL_KEY_SPECIAL = 4; { only needs special keys(>255) } + FL_KEY_ALL = 7; { all keys } + + FL_ALT_VAL = (1 shl 17); { alt + Key --> FL_ALT_VAL + key } + +{ Internal use } +Type + TFL_FIND = Longint; +Const + FL_FIND_INPUT =0; + FL_FIND_AUTOMATIC =1; + FL_FIND_MOUSE =2; + FL_FIND_CANVAS =3; + FL_FIND_KEYSPECIAL =4; + +{****************************************************************** + * FONTS + *****************************************************************} + +Const FL_MAXFONTS=32; { max number of fonts } + +type TFL_TEXT_STYLE = Longint; +Const + FL_INVALID_STYLE = -1; + FL_NORMAL_STYLE = 0; + FL_BOLD_STYLE = 1; + FL_ITALIC_STYLE = 2; + FL_BOLDITALIC_STYLE = 3; + + FL_FIXED_STYLE = 4; + FL_FIXEDBOLD_STYLE = 5; + FL_FIXEDITALIC_STYLE = 6; + FL_FIXEDBOLDITALIC_STYLE = 7; + + FL_TIMES_STYLE = 8; + FL_TIMESBOLD_STYLE = 9; + FL_TIMESITALIC_STYLE = 10; + FL_TIMESBOLDITALIC_STYLE = 11; + + { The following are derived and must differ by multiples of SHADOW, + i.e., (FL_ENGRAVED%SHADOW) == 0. All being 2^n has the benefit that + (lstyle | FL_SHADOW) == (lstyle + FL_SHADOW). } + +Const + FL_SHADOW_STYLE = (1 shl 9); + FL_ENGRAVED_STYLE = (1 shl 10); + FL_EMBOSSED_STYLE = (1 shl 11); + + +Type TFL_FONT_STYLE= TFL_TEXT_STYLE; + +{ Standard sizes in XForms } +Const +FL_TINY_SIZE = 8; +FL_SMALL_SIZE = 10; +FL_NORMAL_SIZE = 12; +FL_MEDIUM_SIZE = 14; +FL_LARGE_SIZE = 18; +FL_HUGE_SIZE = 24; + +FL_DEFAULT_SIZE = FL_SMALL_SIZE; + +{ Defines for compatibility } + +FL_TINY_FONT = FL_TINY_SIZE; +FL_SMALL_FONT = FL_SMALL_SIZE; +FL_NORMAL_FONT= FL_NORMAL_SIZE; +FL_MEDIUM_FONT= FL_MEDIUM_SIZE; +FL_LARGE_FONT = FL_LARGE_SIZE; +FL_HUGE_FONT = FL_HUGE_SIZE; + +FL_NORMAL_FONT1 = FL_SMALL_FONT; +FL_NORMAL_FONT2 = FL_NORMAL_FONT; +FL_DEFAULT_FONT = FL_SMALL_FONT; + + +const +FL_BOUND_WIDTH = 3; { Border width of boxes } + +cFL_BEGIN_GROUP = 10000; +cFL_END_GROUP = 20000; +{ + * Definition of basic struct that holds an object + } + +FL_CLICK_TIMEOUT = 350; { double click interval } + +Type + +TFL_pixmap = record + thepixmap : Tpixmap; + Thewin : TWindow; + TheVisual : TVisual; + x,y : TFL_Coord; + w, h : word; + depth : Longint; + dbl_background : TFL_COLOR; + pixel : TFL_COLOR; +end; + +Pform = ^TForm; + +{Pfl_pixmap = ^fl_pixmap; +} + +Pflobjs = ^Tflobjs; + +THandle = Function (p1 : Pflobjs; p2 : Longint ; p3 : TFL_Coord; p4 : TFL_Coord;p5 : Longint ; p6 : pointer) : Longint; cdecl; +PHandle = ^THandle; +TObject_Callback = Procedure (P1 : Pflobjs;p2 : longint); cdecl; +PObject_Callback = ^TObject_Callback; + +Tflobjs = record + form : PForm; { the form this object belong } + u_vdata : Pointer; + u_cdata : Pchar; + u_ldata : longint; + + objclass : Longint ; { class of object, button, slider etc } + thetype : Longint; { type within the class } + boxtype : Longint ; { what kind of box type } + x, y, w, h : TFL_Coord; { obj. location and size } + bw : TFL_Coord; + col1, col2 : TFL_color; { colors of obj } + thelabel : pchar; { object label } + lcol : TFL_COLOR; { label color } + align : Longint; + lsize, lstyle : Longint; { label size and style } + + shortcut : ^Longint; + + handle : PHandle; + object_callback : PObject_Callback; + argument : Longint; + + spec : pointer; { instantiation } + + prehandle : PHandle; + posthandle : PHandle; + + + { re-configure preference } + resize : cardinal; { what to do if WM resizes the FORM } + nwgravity : cardinal; { how to re-position top-left corner } + segravity : cardinal; { how to re-position lower-right corner } + + parent,child,nc : Pflobjs; + ischild : longint; + + prev : pflobjs; { prev. obj in form } + next : pflobjs; { next. obj in form } + + flpixmap : Pointer; { pixmap double buffering stateinfo } + use_pixmap : Longint; { true to use pixmap double buffering } + + double_buffer : Longint; { only used by mesa/gl canvas } + + { some interaction flags } + pushed: Longint ; + focus: Longint ; + belowmouse: Longint ; + active: Longint ; { if accept event } + input: Longint ; + wantkey: Longint ; + radio: Longint ; + automatic: Longint ; + redraw: Longint ; + visible: Longint ; + clip: Longint ; + click_timeout : cardinal; + c_vdata : pointer; { for class use } + c_cdata : pchar; { For class use } + c_ldata : longint; { for class use } + cspec_size : cardinal; + aux_col1, aux_col2 : TFL_COLOR; + dbl_background : TFL_COLOR; + how_return : longint; + reserved : array[0..5] of cardinal; + { the following are for application programs } +end; + +TFL_OBJECT = TFlobjs; +PFL_OBJECT = ^TFL_OBJECT; + +TCallback = Procedure (P1 : pflobjs; P2 : pointer); cdecl; +PCallback = ^TCallback; +{ callback function for an entire form } +PFL_FORMCALLBACKPTR = PCallback; + +{ object callback function } +PFL_CALLBACKPTR = PCallBack; + +{ preemptive callback function } +PFL_RAW_CALLBACK = PCallback; + +{ at close (WM menu delete/close etc.) } +PFL_FORM_ATCLOSE = PCallback; + +{ deactivate/activate callback } +PFL_FORM_ATDEACTIVATE = PCallback; + +PFL_FORM_ATACTIVATE = PCallback; + +THandlePtr = Procedure ( p1 : PFL_Object; p2 : Longint; p3,p4 : TFL_COORD; p5 : Longint; p6 : pointer); cdecl; +PHandlePTR = ^THandlePTR; + +PFL_HANDLEPTR = PHandlePTR; + +{ +extern FL_OBJECT *FL_EVENT; +} +{** FORM ***} + +PFL_FORM = ^TFL_FORM; + +Tform = record + fdui : Pointer; + u_vdata : pointer; { for application } + u_cdata : pchar; + u_ldata : longint; + + thelabel : pchar; { window title } + window : cardinal; { X resource ID for window } + x, y, w, h : TFL_COORD; { current geometry info } + hotx, hoty : TFL_COORD; { hot-spot of the form } + + first,last,focusobj : pflobjs; + + form_callback : PFL_FORMCALLBACKPTR; + activate_callback : PFL_FORM_ATACTIVATE; + deactivate_callback: PFL_FORM_ATDEACTIVATE ; + form_cb_data, activate_data, deactivate_data : pointer; + + key_callback, + push_callback, + crossing_callback, + motion_callback, + all_callback: PFL_RAW_CALLBACK ; + + compress_mask : cardinal; + evmask : cardinal; + + { WM_DELETE_WINDOW message handler } + close_callback : PFL_FORM_ATCLOSE ; + close_data : pointer; + + + flpixmap : pointer; { back buffer } + + icon_pixmap : cardinal; + icon_mask : cardinal; + + { interaction and other flags } + vmode : Longint ; { current X visual class } + deactivated : Longint ; { true if sensitive } + use_pixmap : Longint ; { true if dbl buffering } + frozen : Longint ; { true if sync change } + visible : Longint ; { true if mapped } + wm_border : Longint ; { window manager info } + prop : cardinal; { other attributes } + has_auto : Longint ; + top : Longint ; + sort_of_modal : Longint; + parent, child : PFL_FORM; + parent_obj : PFL_OBJECT; + reserved : array[0..9] of Longint; +end; +TFL_FORM = Tform; + +TFD_Any = record + form : PFL_FORM; + vdata : Pointer; + cdata : pchar; + ldata : longint; + end; + +PFD_ANY = ^TFD_ANY; + + +{ + * Async IO stuff + } + +const + FL_READ = 1; + FL_WRITE = 2; + FL_EXCEPT = 4; + +{ IO other than XEvent Q } +Type + +TFL_IO_CALLBACK = Procedure (p1 :Longint ;p2 : pointer); cdecl; +PFL_IO_CALLBACK = ^TFL_IO_CALLBACK; +{ function definitions } +Procedure fl_add_io_callback(p1 : Longint ; p2 : word; p3 : PFL_IO_CALLBACK; p4 : pointer); cdecl;external; +Procedure fl_remove_io_callback(p1 : Longint ;p2 : word; p3 : PFL_IO_CALLBACK); cdecl;external; + +{ signals } +type + +TFL_SIGNAL_HANDLER = Procedure (p1 : Longint ; p2 : pointer); cdecl; +PFL_SIGNAL_HANDLER = ^TFL_SIGNAL_HANDLER ; + +Procedure fl_add_signal_callback(p1 : LongInt;p2 : PFL_SIGNAL_HANDLER;p3 : pointer); cdecl;external; +Procedure fl_remove_signal_callback(p1 : Longint ); cdecl;external; +Procedure fl_signal_caught(p1 :Longint ); cdecl;external; +Procedure fl_app_signal_direct(p1 : Longint ); cdecl;external; + +Function fl_add_timeout (p1 : longint;p2 : PFL_SIGNAL_HANDLER;p3 : pointer) : longint; cdecl;external; +Procedure fl_remove_timeout(p1 : Longint); cdecl;external; + +{ Some utility stuff } +type + +TFL_VN_PAIR = record + val : Longint; + name : Pchar; +end; + +PFL_VN_PAIR = ^TFL_VN_PAIR; + +Function fl_get_vn_value (p1 : PFL_VN_PAIR; p2 : pchar) : Longint; cdecl;external; +Function fl_get_vn_name (p1 : PFL_VN_PAIR; p2 : Longint ) : Pchar; cdecl;external; +Function fl_msleep (p1 : cardinal) : cardinal; cdecl;external; + +{ + * Basic public routine prototypes + } + +Procedure fl_library_version(p1,p2 : pointer ); cdecl;external; + +{* Generic routines that deal with FORMS *} + +Function fl_bgn_form(P1 : Longint ; P2,p3 : TFL_Coord) : PFL_Form; cdecl;external; +Procedure fl_end_form; cdecl;external; +Function fl_do_forms : PFL_OBJECT ; cdecl;external; +Function fl_check_forms : PFL_OBJECT; cdecl;external; +Function fl_do_only_forms : PFL_OBJECT; cdecl;external; +Function fl_check_only_forms : PFL_OBJECT; cdecl;external; +Procedure fl_freeze_form(P1 : PFL_FORM); cdecl;external; + +Procedure fl_set_focus_object( P1 : PFL_FORM;p2 : PFL_OBJECT); cdecl;external; +Procedure fl_reset_focus_object( p1 : PFL_OBJECT); cdecl;external; + +{ +#define fl_set_object_focus fl_set_focus_object +} +Function fl_set_form_atclose(p1 : PFL_FORM; p2 : PFL_FORM_ATCLOSE; p3 : pointer) : PFL_FORM_ATCLOSE ; cdecl;external; +Function fl_set_atclose(p1 : PFL_FORM_ATCLOSE; p2: pointer) : PFL_FORM_ATCLOSE ; cdecl;external; + +Function fl_set_form_atactivate(p1 : PFL_FORM; P2 : PFL_FORM_ATACTIVATE; P3 : pointer) : PFL_FORM_ATACTIVATE ; cdecl;external; +Function fl_set_form_atdeactivate(p1 : PFL_FORM;p2 : PFL_FORM_ATDEACTIVATE;p3 : pointer) : PFL_FORM_ATDEACTIVATE ; cdecl;external; + +Procedure fl_unfreeze_form (p1 : PFL_FORM); cdecl;external; +Procedure fl_deactivate_form(p1 : PFL_FORM); cdecl;external; +Procedure fl_activate_form(p1 : PFL_FORM); cdecl;external; +Procedure fl_deactivate_all_forms; cdecl;external; +Procedure fl_activate_all_forms; cdecl;external; +Procedure fl_freeze_all_forms; cdecl;external; +Procedure fl_unfreeze_all_forms; cdecl;external; +Procedure fl_scale_form(p1 : PFL_FORM;p2,p3 : double); cdecl;external; +Procedure fl_set_form_position(p1 : PFL_FORM; p2,p3 : TFL_Coord); cdecl;external; +Procedure fl_set_form_title(p1 : PFL_FORM; p2 : pchar); cdecl;external; + +Procedure fl_set_form_property(p1 : PFL_FORM; p2 : word); cdecl;external; +Procedure fl_set_app_mainform( p1 : PFL_FORM); cdecl;external; +Function fl_get_app_mainform : PFL_FORM; cdecl;external; +Procedure fl_set_app_nomainform(P1 : Longint ); cdecl;external; + +Procedure fl_set_form_callback(p1 : PFL_FORM; P2 : PFL_FORMCALLBACKPTR; P3 : pointer); cdecl;external; +{ +#define fl_set_form_call_back fl_set_form_callback +} + +Procedure fl_set_form_size(p1 : PFL_FORM; p2,p3 : TFL_Coord); cdecl;external; +Procedure fl_set_form_hotspot(p1 : PFL_FORM; p2,p3 : TFL_Coord); cdecl;external; +Procedure fl_set_form_hotobject(p1 : PFL_FORM; p2 : PFL_OBJECT); cdecl;external; +Procedure fl_set_form_minsize(p1 : PFL_FORM ; p2,p3 :TFL_Coord); cdecl;external; +Procedure fl_set_form_maxsize(p1 : PFL_FORM; p2,p3 :TFL_Coord); cdecl;external; +Procedure fl_set_form_event_cmask(p1 : PFL_FORM; p2 : cardinal); cdecl;external; +Function fl_get_form_event_cmask(p1 : PFL_FORM) : cardinal; cdecl;external; + +Procedure fl_set_form_geometry(p1 : PFL_FORM; p2,p3,p4,p5 : TFL_Coord); cdecl;external; + +{ +#define fl_set_initial_placement fl_set_form_geometry +} + +Function fl_show_form (p1 : PFL_FORM; p2,p3 : Longint ; p4 : pchar) : Longint; cdecl;external; +Procedure fl_hide_form(p1 : PFL_FORM); cdecl;external; +Procedure fl_free_form(p1 : PFL_FORM); cdecl;external; +Procedure fl_redraw_form(p1 : PFL_FORM); cdecl;external; +Procedure fl_set_form_dblbuffer(p1 : PFL_FORM; p2 : Longint ); cdecl;external; +Procedure fl_prepare_form_window(p1 : PFL_FORM; p2,p3 : Longint ; p4 : pchar); cdecl;external; +Procedure fl_show_form_window(p1 : PFL_FORM); cdecl;external; +Function fl_adjust_form_size(p1 : PFL_FORM) : double; cdecl;external; +Function fl_form_is_visibe (p1 : PFL_FORM) : Longint; cdecl;external; + +Function fl_register_raw_callback(p1 : PFL_FORM; p2 : cardinal; P3 : PFL_RAW_CALLBACK): PFL_RAW_CALLBACK; cdecl;external; + +{ +#define fl_register_call_back fl_register_raw_callback +} +Function fl_bgn_group : PFL_OBJECT; cdecl;external; +Function fl_end_group : PFL_OBJECT; cdecl;external; +Procedure fl_addto_group (p1 : PFL_OBJECT); cdecl;external; + +{***** Routines that deal with FL_OBJECTS *******} + +Procedure fl_set_object_boxtype(p1 : PFL_OBJECT; p2 : Longint ); cdecl;external; +Procedure fl_set_object_bw(p1 : PFL_OBJECT; p2 : Longint ); cdecl;external; +Procedure fl_set_object_resize(p1 : PFL_OBJECT; p2 : word); cdecl;external; +Procedure fl_set_object_gravity(p1 : PFL_OBJECT; p2,p3 : word ); cdecl;external; +Procedure fl_set_object_lsize(p1 : PFL_OBJECT; p2 : Longint ); cdecl;external; +Procedure fl_set_object_lstyle(p1 : PFL_OBJECT; p2 : Longint ); cdecl;external; +Procedure fl_set_object_lcol(p1 : PFL_OBJECT; p2 : TFL_COLOR); cdecl;external; +Procedure fl_set_object_return(p1 : PFL_OBJECT; p2 : Longint ); cdecl;external; +Procedure fl_set_object_lalign(p1 : PFL_OBJECT; p2 : Longint ); { to be removed } cdecl;external; +Procedure fl_set_object_shortcut(p1 : PFL_OBJECT; p2 : pchar;p3 : Longint ); cdecl;external; +Procedure fl_set_object_shortcutkey(p1 : PFL_OBJECT; p2 : word); cdecl;external; +Procedure fl_set_object_dblbuffer(p1 : PFL_OBJECT; p2 : Longint ); cdecl;external; +Procedure fl_set_object_color(p1 : PFL_OBJECT; p2 : TFL_COLOR;p3 : TFL_COLOR); cdecl;external; +Procedure fl_set_object_label(p1 : PFL_OBJECT; p2 : pchar); cdecl;external; +Procedure fl_set_object_position(p1 : PFL_OBJECT; p2,p3 :TFL_Coord); cdecl;external; +Procedure fl_set_object_size(p1 : PFL_OBJECT; p2,p3 :TFL_Coord); cdecl;external; +Procedure fl_set_object_automatic(p1 : PFL_OBJECT; p2 : Longint ); cdecl;external; +Procedure fl_draw_object_label(p1 : PFL_OBJECT); cdecl;external; +Procedure fl_draw_object_label_outside(p1 : PFL_OBJECT); cdecl;external; +Function fl_get_object_component(p1 : PFL_OBJECT; p2,p3,p4 : Longint): PFL_OBJECT; cdecl;external; + +{ +#define fl_set_object_dblclick(p1 : ob; p2 : timeout) (p1 : ob)->click_timeout = (p1 : timeout); p3 :p2 : +} +Procedure fl_set_object_geometry(p1 : PFL_OBJECT; p2,p3,p4,p5 :TFL_Coord); cdecl;external; + + +Procedure fl_fit_object_label(p1 : PFL_OBJECT; p2,p3 :TFL_Coord); cdecl;external; + +{ no much get (p1 : yet ?) } + +Procedure fl_get_object_geometry(p1 : PFL_OBJECT; p2,p3,p4,p5 : PFL_Coord ); cdecl;external; +Procedure fl_get_object_position(p1 : PFL_OBJECT; p2,p3 :PFL_COORD); cdecl;external; + +{ this one takes into account the label } +Procedure fl_get_object_bbox (p1 : PFL_OBJECT; p2,p3,p4,p5 : PFL_COORD); cdecl;external; + +Procedure fl_call_object_callback(p1 : PFL_OBJECT); cdecl;external; +Function fl_set_object_prehandler(p1 : PFL_OBJECT; p2 : PFL_HANDLEPTR) : PFL_HANDLEPTR ; cdecl;external; +Function fl_set_object_posthandler(p1 : PFL_OBJECT; p2 : PFL_HANDLEPTR): PFL_HANDLEPTR ; cdecl;external; +Function fl_set_object_callback(p1 : PFL_OBJECT; p2 : PFL_CALLBACKPTR; p3 :longint) : PFL_CALLBACKPTR ; cdecl;external; +{ +#define fl_set_object_align fl_set_object_lalign +#define fl_set_call_back fl_set_object_callback +} +Procedure fl_redraw_object(p1 : PFL_OBJECT); cdecl;external; +Procedure fl_scale_object(p1 : PFL_OBJECT; p2 : double; p3 :double); cdecl;external; +Procedure fl_show_object(p1 : PFL_OBJECT); cdecl;external; +Procedure fl_hide_object(p1 : PFL_OBJECT); cdecl;external; +Procedure fl_free_object(p1 : PFL_OBJECT); cdecl;external; +Procedure fl_delete_object(p1 : PFL_OBJECT); cdecl;external; +Procedure fl_trigger_object(p1 : PFL_OBJECT); cdecl;external; +Procedure fl_activate_object(p1 : PFL_OBJECT); cdecl;external; +Procedure fl_deactivate_object(p1 : PFL_OBJECT); cdecl;external; + +Type TFL_ENUMERATEPTR = Procedure (p : pchar); cdecl; + PFL_ENUMERATEPTR = ^TFL_ENUMERATEPTR; + +Procedure fl_enumerate_fonts (p1 : PFL_ENUMERATEPTR; p2 : longint); cdecl;external; + +Function fl_set_font_name(p1 : Longint ; p2 : pchar) : longint; cdecl;external; +Procedure fl_set_font(p1 : Longint ; p2 : Longint ); cdecl;external; + +{ routines that facilitate free object } + +Function fl_get_char_height(p1,p2 : Longint ; p3,p4 : pointer) : Longint ; cdecl;external; +Function fl_get_char_width(p1,p2 : Longint ) : Longint; cdecl;external; +Function fl_get_string_height(p1 : Longint ; p2 : Longint ; p3 : pchar; p4 : Longint ; p5,p6 : pointer) : Longint ; cdecl;external; +Function fl_get_string_width(p1 : Longint ; p2 : Longint ; p3 : pchar; p4 : Longint ) : Longint ; cdecl;external; +Function fl_get_string_widthTAB(p1 : Longint ; p2 : Longint ; p3 : pchar; p4 : Longint ) : Longint ; cdecl;external; +Function fl_get_string_dimension(p1 : Longint ; p2 : Longint ; p3 : pchar; p4 : Longint ; p5,p6 : pointer) : Longint ; cdecl;external; +{ +#define fl_get_string_size fl_get_string_dimension +} +Procedure fl_get_align_xy(p1,p2,p3,p4,p5,p6,p7,p8,p9 : Longint ; p10,p11 : pointer); cdecl;external; + +Procedure fl_drw_text(p1 : Longint ; p2,p3,p4,p5 : TFL_Coord; p6 : TFL_COLOR; p7,p8 : Longint ; p9 : pchar); cdecl;external; + +Procedure fl_drw_text_beside(p1 : Longint ; p2,p3,p4,p5 : TFL_Coord; p6 : TFL_COLOR; p7,p8 : Longint ; p9 : pchar); cdecl;external; +{ +#define fl_draw_text(p1 : a; p2 : x;y;w;h;c;st;sz;s) \ + (p1 : (p1 : (p1 : a) & FL_ALIGN_INSIDE) ? fl_drw_text:fl_drw_text_beside)\ + (p1 : a; p2 : x;y;w;h;c;st;sz;s) +} + +Procedure fl_drw_text_cursor(p1 : Longint ; p2,p3,p4,p5 : TFL_Coord;p6,p7,p8: Longint ; p9 : Pchar; p10,p11: Longint ); cdecl;external; + +Procedure fl_drw_box(p1 : Longint ; p2,p3,p4,p5 : TFL_Coord; p6 : TFL_COLOR; p7 : Longint ); cdecl;external; + +type + +FL_DRAWPTR = Procedure (p1,p2,p3,p4 : TFL_Coord; p5 : Longint ;p6: TFL_COLOR); cdecl; +PFL_DRAWPTR = ^FL_DRAWPTR; + +Function fl_add_symbol(p1 : pchar; p2 : PFL_DRAWPTR; p3 :Longint ) : Longint ; cdecl;external; +Function fl_draw_symbol(p1 : pchar; p2,p3,p4,p5 : TFL_Coord;p6 : TFL_COLOR) : Longint ; cdecl;external; + +const + FL_SLIDER_NONE = 0; + FL_SLIDER_BOX = 1; + FL_SLIDER_KNOB = 2; + FL_SLIDER_UP = 4; + FL_SLIDER_DOWN = 8; + FL_SLIDER_ALL = 15; + +Procedure fl_drw_slider (p1 :longint; p2,p3,P4,p5 : TFL_COORD; p6,p7 : TFL_COLOR; + p8 : Longint; p9,p10 : double; P11 : pchar; p12,p13,p14 : Longint);cdecl;external; + + +Function fl_mapcolor(p1 : TFL_COLOR; p2,p3,p4 : Longint ) : cardinal; cdecl;external; +Function fl_mapcolorname(p1 : TFL_COLOR; p2 : pchar) : longint; cdecl;external; +{ +#define fl_mapcolor_name fl_mapcolorname +} +Function fl_getmcolor(p1 : TFL_COLOR; p2,p3,p4 : pointer) : cardinal; cdecl;external; +Procedure fl_free_colors(p1 : PFL_COLOR; p2 : Longint ); cdecl;external; +Procedure fl_free_pixels(p1 : pcardinal; p2 : Longint ); cdecl;external; +Procedure fl_set_color_leak(p1 : Longint ); cdecl;external; +Function fl_get_pixel(p1 : TFL_COLOR): cardinal; cdecl;external; +{ +#define fl_get_flcolor fl_get_pixel +} +Procedure fl_get_icm_color(p1 : TFL_COLOR; p2,p3,p4 : pointer); cdecl;external; +Procedure fl_set_icm_color(p1 : TFL_COLOR; p2,p3,p4 : Longint ); cdecl;external; + +Procedure fl_color(p1 : TFL_COLOR); cdecl;external; +Procedure fl_bk_color(p1 : TFL_COLOR); cdecl;external; +Procedure fl_textcolor(p1 : TFL_COLOR); cdecl;external; +Procedure fl_bk_textcolor(p1 : TFL_COLOR); cdecl;external; +Procedure fl_set_gamma(p1,p2,p3 :double); cdecl;external; + +Procedure fl_show_errors(p1 : Longint ); cdecl;external; + +{ Some macros } +{ +#define FL_max(p1 : a; p2 : b) (p1 : (p1 : a) > (p1 : b) ? (p1 : a):(p1 : b) ) +#define FL_min(p1 : a; p2 : b) (p1 : (p1 : a) < (p1 : b) ? (p1 : a):(p1 : b) ) +#define FL_abs(p1 : a) (p1 : (p1 : a) > 0 ? (p1 : a):(p1 : -(p1 : a))) +#define FL_nint(p1 : a) (p1 : (p1 : a) > 0 ? (p1 : (p1 : a) + 0.5):(p1 : (p1 : a) - 0.5)) +} +type TFL_FSCB = Function (p1 : pchar; p2 : pointer) : Longint; cdecl; +PFL_FSCB = ^TFL_FSCB; + +{ utilities for new objects } +var fl_current_form : PFL_FORM; cvar;external; +Procedure fl_add_object(p1 : PFL_FORM; p2 : PFL_OBJECT); cdecl;external; +Procedure fl_addto_form(p1 : PFL_FORM); cdecl;external; +Function fl_make_object(p1 : Longint ; p2,p3,p4,p5,p6 : TFL_Coord; p7 : pchar; P8 : PFL_HANDLEPTR) : PFL_OBJECT; cdecl;external; + +Procedure fl_set_coordunit(p1 : Longint ); cdecl;external; +Function fl_get_coordunit : Longint ; cdecl;external; +Procedure fl_set_border_width(p1 : Longint ); cdecl;external; +Function fl_get_border_width : Longint ; cdecl;external; +Procedure fl_set_scrollbar_type (p1 :longint); cdecl;external; + +Procedure fl_flip_yorigin; cdecl;external; + +Procedure fl_ringbell ( p1 : longint); cdecl;external; +Procedure fl_gettime (p1,p2 : Plongint); cdecl;external; +Function fl_whoami : pchar; cdecl;external; +Function fl_now : pchar; cdecl;external; +Function fl_mouse_button : longint; cdecl;external; + + +{ this gives more flexibility for future changes } + +{ +#define fl_free free +#define fl_malloc malloc +#define fl_calloc calloc +#define fl_realloc realloc +} +Const FL_MAX_MENU_CHOICE_ITEMS = 128; + +{ + * + * X Window dependent stuff + * + } + +{ Still need conversion !! } +{ +#include <X11/Xatom.h> +#include <X11/keysym.h> +} +Const + + FL_MINDEPTH = 1; + + +{ FL_xxx does not do anything anymore; but kept for compatibility } + FL_illegalVisual = -1; + FL_StaticGray = StaticGray; + FL_GrayScale = GrayScale; + FL_StaticColor = StaticColor; + FL_PseudoColor = PseudoColor; + FL_TrueColor = TrueColor; + FL_DirectColor = DirectColor; + FL_DefaultVisual = 10; { special request } + + FL_North = NorthGravity; + FL_NorthEast = NorthEastGravity; + FL_NorthWest = NorthWestGravity; + FL_South = SouthGravity; + FL_SouthEast = SouthEastGravity; + FL_SouthWest = SouthWestGravity; + FL_East = EastGravity; + FL_West = WestGravity; + FL_NoGravity = ForgetGravity; + FL_ForgetGravity = ForgetGravity; + +{ +#define FL_is_gray(p1 : v) (p1 : v==GrayScale || v==StaticGray) +#define FL_is_rgb(p1 : v) (p1 : v==TrueColor || v==DirectColor) +} + +{ + * Internal colormap size. Not really very meaningful as fl_mapcolor + * and company allow color "leakage"; that is; although only FL_MAX_COLS + * are kept in the internal colormap; the server might have substantially + * more colors allocated + } + +FL_MAX_COLS = 1024; + +{ + * FL graphics state information. Some are redundant. + } + +type +TFL_STATE = record + xvinfo : PXVisualInfo; + cur_fnt : PXFontStruct; { current font in default GC } + colormap : TColormap ; { colormap valid for xvinfo } + trailblazer : TWindow ; { a valid window for xvinfo } + vclass, depth, { visual class and color depth } + rgb_bits, { primary color resolution } + dithered, { true if dithered color } + pcm : Longint; { true if colormap is not shared } + gc : Array [0..16] of TGC; { working GC } + textgc : array [0..16] of TGC; { GC used exclusively for text } + dimmedGC : TGC; { A GC having a checkboard stipple } + lut :array [0..FL_MAX_COLS] of cardinal; { secondary lookup table } + rshift : word; + rmask, rbits : Longint; + gshift : word; + gmask,gbits : Longint ; + bshift : word; + bmask, bbits : Longint ; +end; +PFL_State = ^TFL_State; + +{ +#define FL_State FL_STATE +} + +{**** Global variables *****} + +Var + +fl_display : PDisplay; +fl_screen : Longint; +fl_root : TWindow; { root window } +fl_vroot : TWindow; { virtual root window } +fl_scrh : Longint; +fl_scrw : Longint; { screen dimension in pixels } +fl_vmode : Longint ; + +{ current version only runs in single visual mode } +{ +#define fl_get_vclass(p1 : ) fl_vmode +#define fl_get_form_vclass(p1 : a) fl_vmode +} +{ +fl_state[] : PFL_State ; +fl_ul_magic_char : pchar; +} + +Function fl_mode_capable(p1,p2 : longint ) : longint; cdecl;external; + +{ +#define fl_default_win(p1 : ) (p1 : fl_state[fl_vmode].trailblazer) +#define fl_default_window(p1 : ) (p1 : fl_state[fl_vmode].trailblazer) +} +{ + * All pixmaps used by FL_OBJECT to simulate double buffering have the + * following entries in the structure. TFL_Coord x;y are used to shift + * the origin of the drawing routines + } + + +{ fonts related } +Const +FL_MAX_FONTSIZES=10; + +type + FL_FONT = record + fs : array[0..FL_MAX_FONTSIZES] of PXFontStruct; { cached fontstruct } + size : array [0..FL_MAX_FONTSIZES] of byte; { cached sizes } + nsize : byte; { cached so far } + fname : Array[1..80] of char; { without size info } +end; + +{ + * Some basic drawing routines + } + +type TFL_POINT = TXPoint; + PFL_Point = ^TFL_Point; + TFL_RECT = TXRECTANGLE; + PFL_RECT = ^TFL_RECT; + +{ rectangles } +Procedure fl_rectangle(p1 : Longint ; p2,p3,p4,p5 : TFL_Coord; p6 : TFL_COLOR); cdecl;external; +Procedure fl_rectbound(p1,p2,p3,p4 : TFL_Coord;p5 : TFL_COLOR); cdecl;external; + +Procedure fl_rectf(x,y,w,h : TFL_COORD;c : TFL_COLOR); +Procedure fl_rect(x,y,w,h : TFL_COORD;c : TFL_COLOR); + + +{ rectangle with rounded-corners } +Procedure fl_roundrectangle(p1 : Longint ; p2,p3,p4,p5 : TFL_Coord; p6 :TFL_COLOR); cdecl;external; + +{ +#define fl_roundrectf(p1 : x; p2 : y;w;h;c) fl_roundrectangle(p1 : 1; p2 : x;y;w;h;c) +#define fl_roundrect(p1 : x; p2 : y;w;h;c) fl_roundrectangle(p1 : 0; p2 : x;y;w;h;c) +} +{ general polygon and polylines } +Procedure fl_polygon(p1 : Longint ; p2 : PFL_POINT; p3 : Longint ; p4 : TFL_COLOR); cdecl;external; + +(* +#define fl_polyf(p1 : p; p2 : n;c) fl_polygon(p1 : 1; p2 : p; p3 : n; p4 : c) +#define fl_polyl(p1 : p; p2 : n;c) fl_polygon(p1 : 0; p2 : p; p3 : n; p4 : c) +#define fl_polybound(p1 : p; p2 : n;c) do {fl_polyf(p1 : p; p2 : n;c);fl_polyl(p1 : p; p2 : n;FL_BLACK);}while(p1 : 0) +*) + +Procedure fl_lines(p1 : TFL_POINT; p2 : Longint ; p3 :TFL_COLOR); cdecl;external; +Procedure fl_line(p1,p2,p3,p4 : TFL_Coord; p5 : TFL_COLOR); cdecl;external; +Procedure fl_point(p1,p2 : TFL_Coord; p3: TFL_COLOR); cdecl;external; +Procedure fl_points(p1 : PFL_POINT; p2 : Longint; p3: TFL_COLOR); cdecl;external; + +{ +#define fl_simple_line fl_line +} +Procedure fl_dashedlinestyle(p1 : pchar; p2 : Longint ); cdecl;external; +Procedure fl_drawmode(p1 : Longint ); cdecl;external; + +{ +#define fl_diagline(p1 : x; p2 : y;w;h;c) fl_line(p1 : x; p2 : y;(p1 : x)+(p1 : w)-1; p2 : (p1 : y)+(p1 : h)-1; p2 : c) +} +{ line attributes } +Const + FL_SOLID = 0; + FL_USERDASH = 1; + FL_USERDOUBLEDASH = 2; + FL_DOT = 3; + FL_DOTDASH = 4; + FL_DASH = 5; + FL_LONGDASH = 6; + +Procedure fl_linewidth(p1 : Longint ); cdecl;external; +Procedure fl_linestyle(p1 : Longint ); cdecl;external; + +Function fl_get_linewidth : longint; cdecl;external; +Function fl_get_linestyle : longint; cdecl;external; + + +{* ellipses *} +Procedure fl_oval(p1 : Longint ; p2,p3,p4,p5 : TFL_Coord; p6 : TFL_COLOR); cdecl;external; +Procedure fl_ovalbound(p1,p2,p3,p4 : TFL_Coord; p5 : TFL_COLOR); cdecl;external; +Procedure fl_ovalarc(p1 : Longint ; p2,p3,p4,p5 : TFL_Coord; p6,p7 : Longint; p8 : TFL_COLOR); cdecl;external; + +{ +#define fl_ovalf(p1 : x; p2 : y;w;h;c) fl_oval(p1 : 1; p2 : x;y;w;h;c) +#define fl_ovall(p1 : x; p2 : y;w;h;c) fl_oval(p1 : 0; p2 : x;y;w;h;c) +#define fl_oval_bound fl_ovalbound + +#define fl_circf(p1 : x; p2 : y;r;col) fl_oval(p1 : 1; p2 : (p1 : x)-(p1 : r); p2 : (p1 : y)-(p1 : r); p2 : 2*(p1 : r); p2 : 2*(p1 : r); p2 : col) +#define fl_circ(p1 : x; p2 : y;r;col) fl_oval(p1 : 0; p2 : (p1 : x)-(p1 : r); p2 : (p1 : y)-(p1 : r); p2 : 2*(p1 : r); p2 : 2*(p1 : r); p2 : col) +} + +{ arcs } +Procedure fl_pieslice(p1 : Longint ; p2,p3,p4,p5 : TFL_Coord;p6,p7 :Longint ; p8 : TFL_COLOR); cdecl;external; +{ +#define fl_arcf(p1 : x; p2 : y;r;a1;a2;c) fl_pieslice(p1 : 1; p2 : (p1 : x)-(p1 : r); p2 : (p1 : y)-(p1 : r); p2 : \ + (p1 : 2*(p1 : r)); p2 : (p1 : 2*(p1 : r)); p2 : a1;a2;c) + +#define fl_arc(p1 : x; p2 : y;r;a1;a2;c) fl_pieslice(p1 : 0; p2 : (p1 : x)-(p1 : r); p2 : (p1 : y)-(p1 : r); p2 : \ + (p1 : 2*(p1 : r)); p2 : (p1 : 2*(p1 : r)); p2 : a1;a2;c) +} +{ misc. stuff } +Procedure fl_add_vertex(p1,p2 : TFL_Coord); cdecl;external; +Procedure fl_add_float_vertex(p1,p2 : real); cdecl;external; +Procedure fl_reset_vertex; cdecl;external; +Procedure fl_endline; cdecl;external; +Procedure fl_endpolygon; cdecl;external; +Procedure fl_endclosedline; cdecl;external; + +{ +#define fl_bgnline fl_reset_vertex +#define fl_bgnclosedline fl_reset_vertex +#define fl_bgnpolygon fl_reset_vertex +#define fl_v2s(p1 : v) fl_add_vertex(p1 : v[0]; p2 : v[1]) +#define fl_v2i(p1 : v) fl_add_vertex(p1 : v[0]; p2 : v[1]) +#define fl_v2f(p1 : v) fl_add_float_vertex(p1 : v[0]; p2 : v[1]) +#define fl_v2d(p1 : v) fl_add_float_vertex(p1 : v[0]; p2 : v[1]) +} + +{ high level drawing routines } +Procedure fl_drw_frame(p1 : Longint ; p2,p3,p4,p5 : TFL_Coord;p6 : TFL_COLOR; p7 : Longint ); cdecl;external; +Procedure fl_drw_checkbox(p1 : Longint ; p2,p3,p4,p5 : TFL_Coord;p6 : TFL_COLOR;p7 : Longint ); cdecl;external; + +{ + * Interfaces + } +Function fl_get_fontstruct(p1,p2 : Longint ) : PXFontStruct; cdecl;external; +{ +#define fl_get_font_struct fl_get_fontstruct +#define fl_get_fntstruct fl_get_font_struct +} + +Function fl_get_mouse(p1,p2 : PFL_COORD; p3 : pword) : TWindow; cdecl;external; +Procedure fl_set_mouse(p1,p2 : TFL_Coord); cdecl;external; +Function fl_get_win_mouse(p1 : TWindow; p2,p3 : PFL_COORD; p4 : pword) : TWindow; cdecl;external; +Function fl_get_form_mouse(p1 : PFL_FORM; p2,p3 : PFL_COORD; p4 : pWord) : TWindow; cdecl;external; +Function fl_win_to_form(p1 : TWindow) : PFL_form; cdecl;external; +Procedure fl_set_form_icon(p1 : PFL_FORM; p2 : TPixmap; p3 :TPixmap); cdecl;external; + +{ +#define fl_raise_form(p1 : f) if(p1 : f->window) XRaiseWindow(p1 : fl_display; p2 : f->window) +#define fl_lower_form(p1 : f) if(p1 : f->window) XLowerWindow(p1 : fl_display; p2 : f->window) +} +{ +#define fl_set_foreground(p1 : gc; p2 : c) XSetForeground(p1 : fl_display; p2 : gc;fl_get_pixel(p1 : c)) +#define fl_set_background(p1 : gc; p2 : c) XSetBackground(p1 : fl_display; p2 : gc;fl_get_pixel(p1 : c)) +} +{ General windowing support } + +Function fl_wincreate(p1 : pchar) : TWindow; cdecl;external; +Function fl_winshow(p1 : TWindow) : TWindow; cdecl;external; +Function fl_winopen(p1 : pchar) : TWindow; cdecl;external; +Procedure fl_winhide(p1 : TWindow); cdecl;external; +Procedure fl_winclose(p1 : TWindow); cdecl;external; +Procedure fl_winset(p1 : TWindow); cdecl;external; +Function fl_winget : Twindow; cdecl;external; + +Procedure fl_winresize(p1 : TWindow; p2,p3 :TFL_Coord); cdecl;external; +Procedure fl_winmove(p1 : TWindow; p2,p3 :TFL_Coord); cdecl;external; +Procedure fl_winreshape(p1 : TWindow; p2,p3,p4,p5 : TFL_Coord); cdecl;external; +Procedure fl_winicon(p1 : TWindow; p2 : TPixmap; p3 :TPixmap); cdecl;external; +Procedure fl_winbackground(p1 : TWindow; p2 : cardinal); cdecl;external; +Procedure fl_winstepunit(p1 : TWindow; p2,p3 :TFL_Coord); cdecl;external; +Procedure fl_winisvalid(p1 : TWindow); cdecl;external; +Procedure fl_wintitle(p1 : TWindow; p2 : pchar); cdecl;external; +Procedure fl_winposition(p1,p2 : TFL_Coord); cdecl;external; + +{ +#define fl_pref_winposition fl_winposition +#define fl_win_background fl_winbackground +#define fl_set_winstepunit fl_winstepunit +} + + +Procedure fl_winminsize(p1 : TWindow; p2,p3 :TFL_Coord); cdecl;external; +Procedure fl_winmaxsize(p1 : TWindow; p2,p3 :TFL_Coord); cdecl;external; +Procedure fl_winaspect(p1 : TWindow; p2,p3 :TFL_Coord); cdecl;external; +Procedure fl_reset_winconstraints(p1 : TWindow); cdecl;external; + +Procedure fl_winsize(p1,p2 : TFL_Coord); cdecl;external; +Procedure fl_initial_winsize(p1,p2 : TFL_Coord); cdecl;external; +{ +#define fl_pref_winsize fl_winsize +} +Procedure fl_initial_winstate(p1 : Longint ); cdecl;external; + +Function fl_create_colormap(p1 : PXVisualInfo; p2 : Longint ) : TColormap; cdecl;external; + + +Procedure fl_wingeometry(p1,p2,p3,p4 : TFL_Coord); cdecl;external; +{ +#define fl_pref_wingeometry fl_wingeometry +} +Procedure fl_initial_wingeometry(p1,p2,p3,p4 : TFL_Coord); cdecl;external; + +{ +Procedure fl_noborder; cdecl;external; +Procedure fl_transient; cdecl;external; +} + +Procedure fl_get_winsize(p1 : TWindow; p2,p3 :PFL_COORD); cdecl;external; +Procedure fl_get_winorigin(p1 : TWindow; p2,p3 :PFL_COORD); cdecl;external; +Procedure fl_get_wingeometry(p1 : TWindow; p2,p3,p4,p5 : PFL_COORD); cdecl;external; + +{ for compatibility } +{ +#define fl_get_win_size fl_get_winsize +#define fl_get_win_origin fl_get_winorigin +#define fl_get_win_geometry fl_get_wingeometry +#define fl_initial_winposition fl_pref_winposition + +#define fl_get_display(p1 : ) fl_display +#define FL_FormDisplay(p1 : form) fl_display +#define FL_ObjectDisplay(p1 : object) fl_display +} + +{ the window an object belongints } + +Function FL_ObjWin ( P : PFL_Object) : TWindow; + +{ +#define FL_OBJECT_WID FL_ObjWin +} + +{ all registerable events; including Client Message } +const FL_ALL_EVENT = (KeyPressMask or KeyReleaseMask or + ButtonPressMask or ButtonReleaseMask or + EnterWindowMask or LeaveWindowMask or + ButtonMotionMask or PointerMotionMask); + +{ Timer related } + + FL_TIMER_EVENT = $40000000; + + +Function fl_XNextEvent(p1 : PXEvent) : Longint; cdecl;external; +Function fl_XPeekEvent(p1 : PXEvent) : Longint; cdecl;external; +Function fl_XEventsQueued(p1 : Longint ) : Longint; cdecl;external; +Procedure fl_XPutBackEvent(p1 : PXEvent); cdecl;external; +Function fl_last_event : PXEvent ; cdecl;external; + +type +TFL_APPEVENT_CB = Procedure (p1 : PXEvent; p2 : pointer); cdecl; +PFL_APPEVENT_CB = ^TFL_APPEVENT_CB; + +Function fl_set_event_callback(p1 : PFL_APPEVENT_CB; p2 : pointer) : PFL_APPEVENT_CB ; cdecl;external; +Function fl_set_idle_callback(p1 : PFL_APPEVENT_CB; p2 : pointer) : PFL_APPEVENT_CB ; cdecl;external; +Function fl_addto_selected_xevent(p1 : TWindow; p2 : longint) : Cardinal; cdecl;external; +Function fl_remove_selected_xevent(p1 : TWindow; p2 : longint) : cardinal; cdecl;external; +{ +#define fl_add_selected_xevent fl_addto_selected_xevent +} +{ + * Group some WM stuff into a structure for easy maintainance + } +const + FL_WM_SHIFT = 1; + FL_WM_NORMAL = 2; + +type TFL_WM_STUFF = record + rpx, rpy, { reparenting offset for full border } + trpx, trpy, { reparenting offset for transient } + bw, { additional border } + rep_method : Longint; { 1 for shifting; 2 for normal } + pos_request : word; { USPOSITION or PPOSITION } +end; +PFL_WM_STUFF = ^TFL_WM_STUFF; + + +Function fl_add_event_callback(p1 : TWindow; p2 : Longint ; p3 : PFL_APPEVENT_CB; p4 : pointer) : PFL_APPEVENT_CB ; cdecl;external; + +Procedure fl_remove_event_callback(p1 : TWindow; p2 : Longint ); cdecl;external; +Procedure fl_activate_event_callbacks(p1 : TWindow); cdecl;external; + +Function fl_print_xevent_name(p1 : pchar; p2 : PXEvent) : PXEvent; cdecl;external; + +{ +#define metakey_down(p1 : mask) (p1 : (p1 : mask) & Mod1Mask) +#define shiftkey_down(p1 : mask) (p1 : (p1 : mask) & ShiftMask) +#define controlkey_down(p1 : mask) (p1 : (p1 : mask) & ControlMask) +#define button_down(p1 : mask) (p1 : (p1 : (p1 : mask) & Button1Mask) || \ + (p1 : (p1 : mask) & Button2Mask) || \ + (p1 : (p1 : mask) & Button3Mask)) +#define fl_keypressed fl_keysym_pressed +} +{***************** Resources **************} + + +{ bool is Longint . FL_NONE is defined elsewhere } +const + FL_NONE = 0; + FL_SHORT = 10; + FL_BOOL = 11; + FL_INT = 12; + FL_LONG = 13; + FL_FLOAT = 14; + FL_STRING = 15; + +Type TFL_RTYPE = Longint; + +TFL_RESOURCE = record + res_name, { resource name } + res_class : Pchar; { resource class } + rtype : TFL_RTYPE; { FL_INT; FL_FLOAT; FL_BOOL;FL_STRING } + thevar : pointer; { address for the variable } + defval : pchar; { default setting in string form } + bytes : Longint { used only for strings } +end; +PFL_RESOURCE = ^TFL_RESOURCE; + +Type + TFL_CMD_OPT = TXrmOptionDescRec; + PFL_CMD_OPT = ^TFL_CMD_OPT; + +Function fl_initialize(p1 : pointer; p2 : ppchar; p3 :pchar; p4 : PFL_CMD_OPT; p5 : Longint ) : Pdisplay; cdecl;external; +Procedure fl_finish; cdecl;external; + +{ addfromhere } + +Function fl_get_resource(p1 : pchar; p2 : pchar; p3 : TFL_RTYPE; p4 : pchar; p5 : pointer; p6 :Longint ) : pchar; cdecl;external; +Procedure fl_set_resource(p1 : pchar; p2 : pchar); cdecl;external; + +Procedure fl_get_app_resources(p1 : PFL_resource; p2 : Longint ); cdecl;external; +Procedure fl_set_graphics_mode(p1 : Longint ; p2 : Longint ); cdecl;external; +Procedure fl_set_visualID(p1 : longint); cdecl;external; +Function fl_keysym_pressed(p1 : TKeySym) : Longint; cdecl;external; + +{ +#define buttonLabelSize buttonFontSize +#define sliderLabelSize sliderFontSize +#define inputLabelSize inputFontSize +} +{ All Form control variables. Named closely as its resource name } +Type TFL_IOPT = record + rgamma, ggamma, bgamma : longint; { MUST BE FLOAT(single) !!! } + debug, sync, + depth, vclass, doubleBuffer, + ulPropWidth, ulThickness, { underline stuff } + buttonFontSize, + sliderFontSize, + inputFontSize, + browserFontSize, + menuFontSize, + choiceFontSize, + labelFontSize, { all other labels fonts } + pupFontSize, pupFontStyle, { font for pop-up menus } + privateColormap, + sharedColormap, + standardColormap, + ScrollBarType, + backingStore, + coordUnit, + borderWidth, + safe : Longint ; + rgbfile : pchar; { where RGB file is } + vname : array [0..23] of char; +end; +PFL_IOPT = ^TFL_IOPT; + + +Const + +{ program default masks } + + FL_PDDepth = 1 shl 1 ; + FL_PDClass = 1 shl 2 ; + FL_PDDouble = 1 shl 3 ; + FL_PDSync = 1 shl 4 ; + FL_PDPrivateMap = 1 shl 5 ; + FL_PDLeftScrollBar = 1 shl 6 ; + FL_PDPupFontSize = 1 shl 7 ; + FL_PDButtonFontSize = 1 shl 8 ; + FL_PDInputFontSize = 1 shl 9 ; + FL_PDSliderFontSize = 1 shl 10 ; + FL_PDVisual = 1 shl 11 ; + FL_PDULThickness = 1 shl 12 ; + FL_PDULPropWidth = 1 shl 13 ; + FL_PDBS = 1 shl 14 ; + FL_PDCoordUnit = 1 shl 15 ; + FL_PDDebug = 1 shl 16 ; + FL_PDSharedMap = 1 shl 17 ; + FL_PDStandardMap = 1 shl 18 ; + FL_PDBorderWidth = 1 shl 19 ; + FL_PDSafe = 1 shl 20 ; + FL_PDMenuFontSize = 1 shl 21 ; + FL_PDBrowserFontSize = 1 shl 22 ; + FL_PDChoiceFontSize = 1 shl 23 ; + FL_PDLabelFontSize = 1 shl 24; + FL_PDButtonLabelSize = FL_PDButtonFontSize; + FL_PDSliderLabelSize = FL_PDSliderFontSize; + FL_PDInputLabelSize = FL_PDInputFontSize; + FL_PDButtonLabel = FL_PDButtonLabelSize; + +Procedure fl_set_defaults(p1 : cardinal; p2 : PFL_IOPT); cdecl;external; +Procedure fl_set_tabstop(p1 : pchar); cdecl;external; +Procedure fl_get_defaults(p1 : PFL_IOPT); cdecl;external; +Function fl_get_visual_depth : Longint; cdecl;external; +Function fl_vclass_name(p1 : Longint ) : pchar; cdecl;external; +Function fl_vclass_val(p1 : pchar) : Longint ; cdecl;external; +Procedure fl_set_ul_property(p1 : Longint ; p2 : Longint ); cdecl;external; +Procedure fl_set_clipping(p1 : TFL_Coord; p2 : TFL_Coord; p3 : TFL_Coord; p4 : TFL_Coord); cdecl;external; +Procedure fl_set_gc_clipping(p1 : TGC; p2 : TFL_Coord; p3 : TFL_Coord; p4 : TFL_Coord; p5 : TFL_Coord); cdecl;external; +Procedure fl_unset_gc_clipping(p1 : TGC); cdecl;external; +Procedure fl_set_clippings(p1 : PFL_RECT; p2 : Longint ); cdecl;external; +Procedure fl_unset_clipping; cdecl;external; + +Function fl_textgc : TGC; cdecl;external; +{ +#define fl_set_text_clipping(p1 : a; p2 : b;c;d) fl_set_gc_clipping(p1 : fl_textgc; p2 : a;b;c;d) +#define fl_unset_text_clipping(p1 : ) fl_unset_gc_clipping(p1 : fl_textgc) +} + +Const + FL_NORMAL_BITMAP = 0; + +{**** Defaults ****} +FL_BITMAP_BOXTYPE =FL_NO_BOX; +FL_BITMAP_COL1 =FL_COL1; { background of bitmap } +FL_BITMAP_COL2 =FL_COL1; { not used currently } +FL_BITMAP_LCOL =FL_LCOL; { foreground of bitmap } +FL_BITMAP_ALIGN =FL_ALIGN_BOTTOM; + +{**** Others ****} + +{FL_BITMAP_MAXSIZE = 128*128;} + +{**** Routines ****} +Function fl_create_bitmap(p1 : Longint ; p2 : TFL_Coord; p3 : TFL_Coord; p4 : TFL_Coord; p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT; cdecl;external; +Function fl_add_bitmap(p1 : Longint ; p2 : TFL_Coord; p3 : TFL_Coord; p4 : TFL_Coord; p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT; cdecl;external; +Procedure fl_set_bitmap_data(p1 : PFL_OBJECT; p2 : Longint ; p3 : Longint ; p4 : pointer); cdecl;external; +Procedure fl_set_bitmap_file(p1 : PFL_OBJECT; p2 : pchar); cdecl;external; +Function fl_read_bitmapfile(p1 : TWindow; p2 : pchar; p3,p4 : pword; p5,p6 : pointer) : TPixmap ; cdecl;external; + +{ +#define fl_create_from_bitmapdata(p1 : win; p2 : data; p3 : w; p4 : h)\ + XCreateBitmapFromData(p1 : fl_get_display(p1 : ); p2 : win; p3 :\ + (p1 : char *)data; p2 : w; p3 :h) +#define fl_set_bitmap_datafile fl_set_bitmap_file +} + +{ PIXMAP stuff } + +Const +FL_NORMAL_PIXMAP = 0; + +Function fl_create_pixmap(p1 : Longint ; p2,p3,p4,p5 : TFL_Coord; p6 :pchar) : PFL_OBJECT; cdecl;external; +Function fl_add_pixmap(p1 : Longint ; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT; cdecl;external; + +Procedure fl_set_pixmap_data(p1 : PFL_OBJECT; p2 : ppchar); cdecl;external; +Procedure fl_set_pixmap_file(p1 : PFL_OBJECT; p2 : pchar); cdecl;external; +Procedure fl_set_pixmap_align(p1 : PFL_OBJECT; p2 : Longint ; p3 : Longint ; p4 : Longint ); cdecl;external; +Procedure fl_set_pixmap_pixmap(p1 : PFL_OBJECT; p2 : TPixmap; p3 :TPixmap); cdecl;external; +Procedure fl_set_pixmap_colorcloseness(p1 : Longint ; p2 : Longint ; p3 :Longint ); cdecl;external; +Procedure fl_free_pixmap_pixmap(p1 : PFL_OBJECT); cdecl;external; +Function fl_get_pixmap_pixmap(p1 : PFL_OBJECT; p2 : PPixmap; p3 : PPixmap) : TPixmap ; cdecl;external; + +Function fl_read_pixmapfile(p1 : TWindow; p2 : pchar;p3,p4 : pword; p5 : PPixmap;p6,p7 : pointer; p8 : TFL_COLOR) : TPixmap ; cdecl;external; +Function fl_create_from_pixmapdata(p1 : TWindow; p2 : ppchar;p3,p4 : pword; p5 : PPixmap;p6,p7 : pointer; p8 : TFL_COLOR) : TPixmap ; cdecl;external; +{ +#define fl_free_pixmap(p1 : id) if(p1 : id != None) XFreePixmap(p1 : fl_display; p2 : id); +} + +Function fl_create_box(p1 : Longint ; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT; cdecl;external; +Function fl_add_box(p1 : Longint ; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT; cdecl;external; + +Type TFL_BROWSER_TYPE = Longint; + +Const + FL_NORMAL_BROWSER = 0; + FL_SELECT_BROWSER = 1; + FL_HOLD_BROWSER = 2; + FL_MULTI_BROWSER = 3; + +{**** Defaults ****} + + FL_BROWSER_BOXTYPE = FL_DOWN_BOX; + FL_BROWSER_COL1 = FL_COL1; + FL_BROWSER_COL2 = FL_YELLOW; + FL_BROWSER_LCOL = FL_LCOL; + FL_BROWSER_ALIGN = FL_ALIGN_BOTTOM; + +{**** Others ****} + + FL_BROWSER_SLCOL = FL_COL1; + FL_BROWSER_LINELENGTH = 1024; + FL_BROWSER_FONTSIZE = FL_SMALL_FONT; + +{ as of .86 + FL_SCROLLBAR_OFF = 0; + FL_SCROLLBAR_ON = 1; + FL_SCROLLBAR_ALWAYS_ON = 2; +} + +{**** Routines ****} + +Function fl_create_browser(p1 : Longint ; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT; cdecl;external; +Function fl_add_browser(p1 : Longint ; p2,p3,p4,p5 : TFL_Coord;p6: pchar) : PFL_OBJECT; cdecl;external; +Procedure fl_clear_browser(p1 : PFL_OBJECT); cdecl;external; +Procedure fl_add_browser_line(p1 : PFL_OBJECT; p2 : pchar); cdecl;external; +Procedure fl_addto_browser(p1 : PFL_OBJECT; p2 : pchar); cdecl;external; +Procedure fl_addto_browserchars(p1 : PFL_OBJECT; p2 : pchar); cdecl;external; + +Procedure fl_insert_browser_line(p1 : PFL_OBJECT; p2 : Longint ; p3 :pchar); cdecl;external; +Procedure fl_delete_browser_line(p1 : PFL_OBJECT; p2 : Longint ); cdecl;external; +Procedure fl_replace_browser_line(p1 : PFL_OBJECT; p2 : Longint ; p3 :pchar); cdecl;external; +Function fl_get_browser_line(p1 : PFL_OBJECT; p2 : Longint ) : pchar; cdecl;external; +Function fl_load_browser(p1 : PFL_OBJECT; p2 : pchar ) : Longint ; cdecl;external; + +Procedure fl_select_browser_line(p1 : PFL_OBJECT; p2 : Longint ); cdecl;external; +Procedure fl_deselect_browser_line(p1 : PFL_OBJECT; p2 : Longint ); cdecl;external; +Procedure fl_deselect_browser(p1 : PFL_OBJECT); cdecl;external; +Function fl_isselected_browser_line(p1 : PFL_OBJECT; p2 : Longint ) : Longint ; cdecl;external; + +Function fl_get_browser_topline(p1 : PFL_OBJECT ) : Longint ; cdecl;external; +Function fl_get_browser(p1 : PFL_OBJECT ) : Longint ; cdecl;external; +Function fl_get_browser_maxline(p1 : PFL_OBJECT ) : Longint ; cdecl;external; +Function fl_get_browser_screenlines(p1 : PFL_OBJECT ) : Longint ; cdecl;external; + +Procedure fl_set_browser_topline(p1 : PFL_OBJECT; p2 : Longint ); cdecl;external; +Procedure fl_set_browser_fontsize(p1 : PFL_OBJECT; p2 : Longint ); cdecl;external; +Procedure fl_set_browser_fontstyle(p1 : PFL_OBJECT; p2 : Longint ); cdecl;external; +Procedure fl_set_browser_specialkey(p1 : PFL_OBJECT; p2 : Longint ); cdecl;external; +Procedure fl_set_browser_vscrollbar(p1 : PFL_OBJECT; p2 : Longint ); cdecl;external; +Procedure fl_set_browser_hscrollbar(p1 : PFL_OBJECT; p2 : Longint ); cdecl;external; +Procedure fl_set_browser_leftslider(p1 : PFL_OBJECT; p2 : Longint ); cdecl;external; +Procedure fl_set_browser_line_selectable(p1 : PFL_OBJECT; p2 : Longint ; p3 :Longint ); cdecl;external; +Procedure fl_get_browser_dimension(p1 : PFL_OBJECT; p2,p3,p4,p5 : PFL_COORD); cdecl;external; +Procedure fl_set_browser_dblclick_callback(p1 : PFL_OBJECT; p2 : PFL_CALLBACKPTR; p3 :longint); cdecl;external; +{ +#define fl_set_browser_leftscrollbar fl_set_browser_leftslider +} +Procedure fl_set_browser_xoffset(p1 : PFL_OBJECT; p2 : TFL_Coord); cdecl;external; +Procedure fl_set_browser_scrollbarsize (p1 : PFL_OBJECT;p2,p3 : longint); cdecl;external; +Procedure fl_show_browser_line(p1 : PFL_OBJECT; p2 : longint); cdecl;external; +Function fl_get_browser_xoffset(p1 : PFL_OBJECT) : TFL_Coord ; cdecl;external; + +type + TFL_BUTTON_TYPE= Longint; + +Const + FL_NORMAL_BUTTON = 0; + FL_PUSH_BUTTON = 1; + FL_RADIO_BUTTON = 2; + FL_HIDDEN_BUTTON = 3; + FL_TOUCH_BUTTON = 4; + FL_INOUT_BUTTON = 5; + FL_RETURN_BUTTON = 6; + FL_HIDDEN_RET_BUTTON= 7; + FL_MENU_BUTTON = 8; + +type TFL_BUTTON_SPEC = record + pixmap,mask : TPixmap; + bits_w, bits_h : Cardinal; + val, { whether on } + mousebut, { mouse button that caused the push } + timdel, { time since last touch (p1 : TOUCH buttons) } + event : Longint; { what event triggers redraw } + cspecl : longint; { reserved for class specfic stuff } + cspecv : pointer; { misc. things } + filename : pchar; +end; +TFL_BUTTON_STRUCT = TFL_BUTTON_SPEC; +PFL_BUTTON_STRUCT = ^TFL_BUTTON_STRUCT; + +TFL_DrawButton = Procedure (p1 : PFL_OBJECT); cdecl; +PFL_DrawButton = ^TFL_DrawButton; +TFL_CleanupButton = Procedure (p1 : PFL_BUTTON_STRUCT); cdecl; +PFL_CleanupButton= ^TFL_CleanupButton; + +Const +FL_BUTTON_BOXTYPE = FL_UP_BOX; +FL_BUTTON_COL1 = FL_COL1; +FL_BUTTON_COL2 = FL_COL1; +FL_BUTTON_LCOL = FL_LCOL; +FL_BUTTON_ALIGN = FL_ALIGN_CENTER; + +FL_BUTTON_MCOL1 = FL_MCOL; +FL_BUTTON_MCOL2 = FL_MCOL; + +FL_BUTTON_BW = FL_BOUND_WIDTH; + +{ + * light button defaults + } +FL_LIGHTBUTTON_BOXTYPE = FL_UP_BOX; +FL_LIGHTBUTTON_COL1 = FL_COL1; +FL_LIGHTBUTTON_COL2 = FL_YELLOW; +FL_LIGHTBUTTON_LCOL = FL_LCOL; +FL_LIGHTBUTTON_ALIGN = FL_ALIGN_CENTER; + +{**** Others ****} + +FL_LIGHTBUTTON_TOPCOL = FL_COL1; +FL_LIGHTBUTTON_MCOL = FL_MCOL; +FL_LIGHTBUTTON_MINSIZE = 12; + +{* round button defaults **} + + FL_ROUNDBUTTON_BOXTYPE = FL_NO_BOX; + FL_ROUNDBUTTON_COL1 = FL_MCOL; + FL_ROUNDBUTTON_COL2 = FL_YELLOW; + FL_ROUNDBUTTON_LCOL = FL_LCOL; + FL_ROUNDBUTTON_ALIGN = FL_ALIGN_CENTER; + + FL_ROUNDBUTTON_TOPCOL = FL_COL1; + FL_ROUNDBUTTON_MCOL = FL_MCOL; + +{* round3d button defaults **} + + FL_ROUND3DBUTTON_BOXTYPE = FL_NO_BOX; + FL_ROUND3DBUTTON3D_COL1 = FL_MCOL; + FL_ROUND3DBUTTON_COL2 = FL_YELLOW; + FL_ROUND3DBUTTON_LCOL = FL_LCOL; + FL_ROUND3DBUTTON_ALIGN = FL_ALIGN_CENTER; + + FL_ROUND3DBUTTON_TOPCOL = FL_COL1; + FL_ROUND3DBUTTON_MCOL = FL_MCOL; + +{* check button defaults **} + + FL_CHECKBUTTON_BOXTYPE = FL_NO_BOX; + FL_CHECKBUTTON_COL1 = FL_COL1; + FL_CHECKBUTTON_COL2 = FL_YELLOW; + FL_CHECKBUTTON_LCOL = FL_LCOL; + FL_CHECKBUTTON_ALIGN = FL_ALIGN_CENTER; + + FL_CHECKBUTTON_TOPCOL = FL_COL1; + FL_CHECKBUTTON_MCOL = FL_MCOL; + +{* bitmap button defaults *} + FL_BITMAPBUTTON_BOXTYPE = FL_UP_BOX; + FL_BITMAPBUTTON_COL1 = FL_COL1; { bitmap background } + FL_BITMAPBUTTON_COL2 = FL_BLUE; { "focus" color } + FL_BITMAPBUTTON_LCOL = FL_LCOL; { bitmap foreground } + FL_BITMAPBUTTON_ALIGN = FL_ALIGN_BOTTOM; + +{* bitmap button defaults *} + FL_PIXMAPBUTTON_BOXTYPE = FL_UP_BOX; + FL_PIXMAPBUTTON_COL1 = FL_COL1; { box col } + FL_PIXMAPBUTTON_COL2 = FL_YELLOW; { bound rect } + FL_PIXMAPBUTTON_LCOL = FL_LCOL; + FL_PIXMAPBUTTON_ALIGN = FL_ALIGN_BOTTOM; + +{**** Routines ****} + +Function fl_create_button(p1 : Longint ; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT; cdecl;external; +Function fl_create_roundbutton(p1 : Longint ; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT; cdecl;external; +Function fl_create_round3dbutton(p1 : Longint ; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT; cdecl;external; +Function fl_create_lightbutton(p1 : Longint ; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT; cdecl;external; +Function fl_create_checkbutton(p1 : Longint ; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT; cdecl;external; +Function fl_create_bitmapbutton(p1 : Longint ; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT; cdecl;external; +Function fl_create_pixmapbutton(p1 : Longint ; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT; cdecl;external; + +Function fl_add_roundbutton(p1 : Longint ; p2,p3,p4,p5 :TFL_Coord; p6: pchar) : PFL_OBJECT; cdecl;external; +Function fl_add_round3dbutton(p1 : Longint ; p2,p3,p4,p5 :TFL_Coord; p6: pchar) : PFL_OBJECT; cdecl;external; + +Function fl_add_lightbutton(p1 : Longint ; p2,p3,p4,p5 :TFL_Coord; p6: pchar) : PFL_OBJECT; cdecl;external; +Function fl_add_checkbutton(p1 : Longint ; p2,p3,p4,p5 :TFL_Coord; p6: pchar) : PFL_OBJECT; cdecl;external; +Function fl_add_button(p1 : Longint ; p2,p3,p4,p5 :TFL_Coord; p6: pchar) : PFL_OBJECT; cdecl;external; + + +Procedure fl_set_bitmapbutton_data (p1 : PFL_OBJECT; p2,p3 : Longint ; p4 : pchar); cdecl;external; +Procedure fl_set_bitmapbutton_file (p1 : PFL_OBJECT; p2: pchar); cdecl;external; +Function fl_add_bitmapbutton (p1 : longint; p2,p3,p4,p5: TFL_Coord;p6 : pchar) : PFL_OBJECT; cdecl;external; + +{ +#define fl_set_bitmapbutton_datafile fl_set_bitmapbutton_file +} + +Function fl_add_pixmapbutton(p1 : Longint ; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT; cdecl;external; +Procedure fl_set_pixmapbutton_data(p1 : PFL_OBJECT; p2 : ppchar); +Procedure fl_set_pixmapbutton_file(p1 : PFL_OBJECT; p2 : pchar); +Procedure fl_set_pixmapbutton_align(p1 : PFL_OBJECT; p2 : Longint ; p3 : Longint ; p4 : Longint ); +Procedure fl_set_pixmapbutton_pixmap(p1 : PFL_OBJECT; p2 : TPixmap; p3 :TPixmap); +Procedure fl_set_pixmapbutton_colorcloseness(p1 : Longint ; p2 : Longint ; p3 :Longint ); +Procedure fl_free_pixmapbutton_pixmap(p1 : PFL_OBJECT); +Function fl_get_pixmapbutton_pixmap(p1 : PFL_OBJECT; p2 : PPixmap; p3 : PPixmap) : TPixmap; + +Function fl_get_button(p1 : PFL_OBJECT ) : Longint ; cdecl;external; +Procedure fl_set_button(p1 : PFL_OBJECT; p2 : Longint ); cdecl;external; +Function fl_get_button_numb(p1 : PFL_OBJECT ) : Longint ; cdecl;external; + +Procedure fl_set_button_shortcut(p1 : PFL_OBJECT; p2 : pchar;p3 : Longint ); + +Function fl_create_generic_button(p1,p2 : Longint ; p3,p4,p5,p6 : TFL_Coord;p7 : pchar) : PFL_OBJECT; cdecl;external; +Procedure fl_add_button_class(p1 : Longint ; p2 : PFL_DRAWBUTTON; p3 : PFL_CLEANUPBUTTON); cdecl;external; + + +{ + * + * Header for FL_CANVAS + * + } + + + +type TFL_CANVAS_TYPE = Longint; + +const + FL_NORMAL_CANVAS = 0; + FL_SCROLLED_CANVAS = 1; + +Type +TFL_HANDLE_CANVAS = Procedure (P1 : PFL_OBJECT; P2 : TWindow; P3 : Longint ; P4 : Longint ; + P5 : PXEvent; P6 : pointer);cdecl; +PFL_HANDLE_CANVAS = ^TFL_HANDLE_CANVAS; + +TFL_MODIFY_CANVAS_PROP = Procedure (p1 : PFL_OBJECT); cdecl; +PFL_MODIFY_CANVAS_PROP = ^TFL_MODIFY_CANVAS_PROP; + +{******************* Default ********************} + +Const FL_CANVAS_BOXTYPE = FL_DOWN_BOX; + FL_CANVAS_ALIGN = FL_ALIGN_TOP; + + +{*********** Interfaces ***********************} + + +Function fl_create_generic_canvas(p1 : Longint; p2 : Longint ; p3,p4,p5,p6 : TFL_Coord; p7 : pchar) : PFL_OBJECT; cdecl;external; + +Function fl_add_canvas(p1 : Longint; p2,p3,p4,p5 : TFL_Coord; p6 : pchar): PFL_OBJECT; cdecl;external; + +Function fl_create_canvas(p1 : Longint; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT; cdecl;external; + +Function fl_create_mesacanvas(p1 : Longint; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT; cdecl;external; + +Function fl_add_mesacanvas(p1 : Longint; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT; cdecl;external; + + + +Procedure fl_set_canvas_decoration(p1 : PFL_OBJECT; p2 : Longint ); +Procedure fl_set_canvas_colormap(p1 : PFL_OBJECT; p2 : TColormap);cdecl;external; +Procedure fl_set_canvas_visual(p1 : PFL_OBJECT; p2 : PVisual);cdecl;external; +Procedure fl_set_canvas_depth(p1 : PFL_OBJECT; p2 : Longint );cdecl;external; +Procedure fl_set_canvas_attributes(p1 : PFL_OBJECT; p2 : word; p3 : PXSetWindowAttributes);cdecl;external; + +Function fl_add_canvas_handler(p1 : PFL_OBJECT; p2 : Longint ; p3 : PFL_HANDLE_CANVAS; p4 : pointer) : PFL_HANDLE_CANVAS ; cdecl;external; + +Function fl_get_canvas_id(p1 : PFL_OBJECT ) : TWindow ; cdecl;external; +Function fl_get_canvas_colormap(p1 : PFL_OBJECT ) : TColormap; cdecl;external; +Function fl_get_canvas_depth(p1 : PFL_OBJECT ) : Longint ; cdecl;external; +Procedure fl_remove_canvas_handler(p1 : PFL_OBJECT; p2 : Longint ; p3 : PFL_HANDLE_CANVAS); cdecl;external; +Procedure fl_hide_canvas(p1 : PFL_OBJECT); { internal use only } cdecl;external; +Procedure fl_canvas_yield_to_shortcut(p1 : PFL_OBJECT; p2 : Longint ); cdecl;external; +Procedure fl_share_canvas_colormap(p1 : PFL_OBJECT; p2 : TColormap); cdecl;external; +Procedure fl_modify_canvas_prop(p1 : PFL_OBJECT; + P2 : PFL_MODIFY_CANVAS_PROP; + p3 : PFL_MODIFY_CANVAS_PROP; + p4 : PFL_MODIFY_CANVAS_PROP);cdecl;external; + +{ OpenGL canvases } +Function fl_create_glcanvas(p1 : Longint; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT; cdecl;external; + +Function fl_add_glcanvas(p1 : Longint; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT; cdecl;external; + +Procedure fl_set_glcanvas_defaults(p1 : pointer); cdecl;external; +Procedure fl_get_glcanvas_defaults(p1 : pointer); cdecl;external; +Procedure fl_set_glcanvas_attributes(p1 : PFL_OBJECT; p2 : pointer); cdecl;external; +Procedure fl_get_glcanvas_attributes(p1 : PFL_OBJECT; p2 : pointer); cdecl;external; +Procedure fl_set_glcanvas_direct(p1 : PFL_OBJECT; p2 : Longint ); cdecl;external; +Procedure fl_activate_glcanvas(p1 : PFL_OBJECT); cdecl;external; + +Function fl_get_glcanvas_xvisualinfo(p1 : PFL_OBJECT ) : PXVisualInfo; cdecl;external; + +{ +# if defined(p1 : __GLX_glx_h__) || defined(p1 : GLX_H) +Function fl_get_glcanvas_context(p1 : PFL_OBJECT ob ) : GLXContext ; cdecl;external; +Function fl_glwincreate(p1 : *; p2 : GLXContext *; p3 : Longint ; p4 : Longint ) : TWindow ; cdecl;external; +Function fl_glwinopen(p1 : *; p2 : GLXContext *; p3 : Longint ; p4 : Longint ) : TWindow ; cdecl;external; +} + + + +{ + * + * Object Class: Chart + * + } + + +const + FL_BAR_CHART = 0; + FL_HORBAR_CHART = 1; + FL_LINE_CHART = 2; + FL_FILL_CHART = 3; + FL_SPIKE_CHART = 4; + FL_PIE_CHART = 5; + FL_SPECIALPIE_CHART = 6; + +Type TFL_CHART_TYPE = Longint; + +{**** Defaults ****} + +Const + FL_CHART_BOXTYPE = FL_BORDER_BOX; + FL_CHART_COL1 = FL_COL1; + FL_CHART_LCOL = FL_LCOL; + FL_CHART_ALIGN = FL_ALIGN_BOTTOM; + +{**** Others ****} + FL_CHART_MAX = 512; + +{**** Routines ****} + +Function fl_create_chart(p1 : Longint; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT; cdecl;external; +Function fl_add_chart(p1 : longint; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT; cdecl;external; + +Procedure fl_clear_chart(p1 : PFL_OBJECT); cdecl;external; +Procedure fl_add_chart_value(p1 : PFL_OBJECT; p2 : double; p3 : pchar; p4 : Longint ); cdecl;external; +Procedure fl_insert_chart_value(p1 : PFL_OBJECT; p2 : Longint ; p3 : double; p4 : pchar; p5 : Longint ); cdecl;external; +Procedure fl_replace_chart_value(p1 : PFL_OBJECT; p2 : Longint ; p3 : double; p4 : pchar; p5 : Longint ); cdecl;external; +Procedure fl_set_chart_bounds(p1 : PFL_OBJECT; p2 : double; p3 :double); cdecl;external; +Procedure fl_set_chart_maxnumb(p1 : PFL_OBJECT; p2 : Longint ); cdecl;external; +Procedure fl_set_chart_autosize(p1 : PFL_OBJECT; p2 : Longint ); cdecl;external; +Procedure fl_set_chart_lstyle(p1 : PFL_OBJECT; p2 : Longint ); cdecl;external; +Procedure fl_set_chart_lsize(p1 : PFL_OBJECT; p2 : Longint ); cdecl;external; +Procedure fl_set_chart_lcolor(p1 : PFL_OBJECT; p2 : TFL_COLOR); cdecl;external; + + +const + FL_NORMAL_CHOICE = 0; + FL_NORMAL_CHOICE2 = 1; + FL_DROPLIST_CHOICE = 2; + +Type + TFL_CHOICE_TYPE = Longint; + +Const + FL_SIMPLE_CHOICE = FL_NORMAL_CHOICE; + +{**** Defaults ****} + + FL_CHOICE_BOXTYPE = FL_ROUNDED_BOX; + FL_CHOICE_COL1 = FL_COL1; + FL_CHOICE_COL2 = FL_LCOL; + FL_CHOICE_LCOL = FL_LCOL; + FL_CHOICE_ALIGN = FL_ALIGN_LEFT; + +{**** Others ****} + + FL_CHOICE_MCOL = FL_MCOL; + FL_CHOICE_MAXITEMS = 63; + +{**** Routines ****} + +Function fl_create_choice(p1 : longint; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT; cdecl;external; + +Function fl_add_choice(p1 : longint; p2,p3,p4,p5 : TFL_Coord; p6 : pchar ) : PFL_OBJECT; cdecl;external; +Procedure fl_clear_choice(p1 : PFL_OBJECT); cdecl;external; +Procedure fl_addto_choice(p1 : PFL_OBJECT; p2 : pchar); cdecl;external; +Procedure fl_replace_choice(p1 : PFL_OBJECT; p2 : Longint ; p3 :pchar); cdecl;external; +Procedure fl_delete_choice(p1 : PFL_OBJECT; p2 : Longint ); cdecl;external; +Procedure fl_set_choice(p1 : PFL_OBJECT; p2 : Longint ); cdecl;external; +Procedure fl_set_choice_text(p1 : PFL_OBJECT; p2 : pchar); cdecl;external; +Function fl_get_choice(p1 : PFL_OBJECT ) : Longint ; cdecl;external; +Function fl_get_choice_item_text(p1 : PFL_OBJECT; p2 : Longint ) : pchar; cdecl;external; +Function fl_get_choice_maxitems(p1 : PFL_OBJECT ) : Longint ; cdecl;external; +Function fl_get_choice_text(p1 : PFL_OBJECT ) : pchar; cdecl;external; +Procedure fl_set_choice_fontsize(p1 : PFL_OBJECT; p2 : Longint ); cdecl;external; +Procedure fl_set_choice_fontstyle(p1 : PFL_OBJECT; p2 : Longint ); cdecl;external; +Procedure fl_set_choice_align(p1 : PFL_OBJECT; p2 : Longint ); cdecl;external; +Procedure fl_set_choice_item_mode(p1 : PFL_OBJECT; p2 : Longint ; p3 : word); cdecl;external; +Procedure fl_set_choice_item_shortcut(p1 : PFL_OBJECT; p2 : Longint ; p3 :pchar); cdecl;external; +Function fl_set_choice_entries(p1 : PFL_OBJECT ; p2 : PFL_PUP_ENTRY) : longint; cdecl;external; + + +Const + FL_ANALOG_CLOCK = 0; + FL_DIGITAL_CLOCK = 1; + + FL_CLOCK_BOXTYPE = FL_UP_BOX; + FL_CLOCK_COL1 = FL_INACTIVE_COL; + FL_CLOCK_COL2 = FL_BOTTOM_BCOL; + FL_CLOCK_LCOL = FL_BLACK; + FL_CLOCK_ALIGN = FL_ALIGN_BOTTOM; + + FL_CLOCK_TOPCOL = FL_COL1; + +Function fl_create_clock(p1 : longint; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT; cdecl;external; + +Function fl_add_clock(p1 : longint; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT; cdecl;external; +Procedure fl_get_clock(p1 : PFL_OBJECT; p2,p3,p4 : pointer); cdecl;external; +Function fl_set_clock_adjustment ( p1 : PFL_OBJECT; p2 : longint) : longint; cdecl;external; +Procedure fl_set_clock_ampm(p1 : PFL_OBJECT; p2 : Longint); cdecl;external; + + +Const + FL_NORMAL_COUNTER = 0; + FL_SIMPLE_COUNTER = 1; + +type TFL_COUNTER_TYPE = Longint; + +{**** Defaults ****} +Const + FL_COUNTER_BOXTYPE = FL_UP_BOX; + FL_COUNTER_COL1 = FL_COL1; + FL_COUNTER_COL2 = FL_BLUE; { ct label } + FL_COUNTER_LCOL = FL_LCOL; { ct reporting } + FL_COUNTER_ALIGN = FL_ALIGN_BOTTOM; + +{**** Others ****} + + FL_COUNTER_BW = FL_BOUND_WIDTH-1; + +{**** Routines ****} + +Function fl_create_counter(p1 : longint; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT; cdecl;external; + +Function fl_add_counter(p1 : longint; p2,p3,p4,p5 : TFL_Coord;p6: pchar) : PFL_OBJECT; cdecl;external; + +Procedure fl_set_counter_value(p1 : PFL_OBJECT; p2 : double); cdecl;external; +Procedure fl_set_counter_bounds(p1 : PFL_OBJECT; p2 : double; p3 :double); cdecl;external; +Procedure fl_set_counter_step(p1 : PFL_OBJECT; p2 : double; p3 :double); cdecl;external; +Procedure fl_set_counter_precision(p1 : PFL_OBJECT; p2 : Longint ); cdecl;external; +Function fl_get_counter_value(p1 : PFL_OBJECT ) : double ; cdecl;external; +Procedure fl_get_counter_bounds(p1 : PFL_OBJECT; p2,p3 : pdouble); cdecl;external; +Procedure fl_get_counter_step(p1 : PFL_OBJECT; p2,p3 : pdouble); cdecl;external; +Procedure fl_set_counter_return(p1 : PFL_OBJECT; p2 : Longint ); cdecl;external; +Procedure fl_set_counter_filter(p1 : PFL_OBJECT;p2 : pointer); {!!!!} cdecl;external; +{ + pchar(p1 : *)(p1 : PFL_OBJECT; p2 : double; p3 :Longint )); +} + +{ + * + * Cursor defs and prototypes + * + } + + +{$i cursorfont.inc} + +const FL_DEFAULT_CURSOR = -1; + FL_INVISIBLE_CURSOR = -2; + +Procedure fl_set_cursor(p1 : TWindow; p2 : Longint ); cdecl;external; +Procedure fl_set_cursor_color(p1 : longint; p2 : TFL_COLOR; p3 :TFL_COLOR); cdecl;external; +Function fl_create_bitmap_cursor(p1 : pchar; p2 : pchar; p3,p4,p5,p6 : Longint ) : TCursor; cdecl;external; +Function fl_get_cursor_byname(p1 : longint ) : TCursor; cdecl;external; +Function fl_create_animated_cursor(p1 : Plongint;p2 : longint): Longint; cdecl;external; + +{ +#define fl_reset_cursor(p1 : win) fl_set_cursor(p1 : win; p2 : -1); +} + + +Const + FL_NORMAL_DIAL = 0; + FL_LINE_DIAL = 1; + FL_FILL_DIAL = 2; + + FL_DIAL_CW = 0; + FL_DIAL_CCW = 1; + +Type + TFL_DIAL_TYPE = Longint; + +{**** Defaults ****} +Const + + FL_DIAL_BOXTYPE = FL_FLAT_BOX; + FL_DIAL_COL1 = FL_COL1; + FL_DIAL_COL2 = FL_RIGHT_BCOL; + FL_DIAL_LCOL = FL_LCOL; + FL_DIAL_ALIGN = FL_ALIGN_BOTTOM; + +{**** Others ****} + + FL_DIAL_TOPCOL = FL_COL1; + +{**** Routines ****} + +Function fl_create_dial(p1 : longint; p2,p3,p4,p5 : TFL_Coord;p6 :pchar) : PFL_OBJECT; cdecl;external; +Function fl_add_dial(p1 : longint; p2,p3,p4,p5 : TFL_Coord;p6: pchar) : PFL_OBJECT; cdecl;external; + +Procedure fl_set_dial_value(p1 : PFL_OBJECT; p2 : double); cdecl;external; +Function fl_get_dial_value(p1 : PFL_OBJECT ) : double ; cdecl;external; +Procedure fl_set_dial_bounds(p1 : PFL_OBJECT; p2 : double; p3 :double); cdecl;external; +Procedure fl_get_dial_bounds(p1 : PFL_OBJECT; p2 : pdouble; p3 :pdouble); cdecl;external; + +Procedure fl_set_dial_step(p1 : PFL_OBJECT; p2 : double); cdecl;external; +Procedure fl_set_dial_return(p1 : PFL_OBJECT; p2 : Longint ); cdecl;external; +Procedure fl_set_dial_angles(p1 : PFL_OBJECT; p2 : double; p3 :double); cdecl;external; +Procedure fl_set_dial_cross(p1 : PFL_OBJECT; p2 : Longint ); cdecl;external; +Procedure fl_set_dial_direction (p1 : PFL_OBJECT; p2 : Longint); cdecl;external; + +{ + * + * Convenience Functions to read a directory cdecl;external; + } + + +{ File types } + +Const + FT_FILE = 0; + FT_DIR = 1; + FT_LINK = 2; + FT_SOCK = 3; + FT_FIFO = 4; + FT_BLK = 5; + FT_CHR = 6; + FT_OTHER = 7; + +type TFL_Dirlist = record + name : pchar; { entry name } + ftype : longint; { FILE_TYPE } + dl_mtime : longint; + dl_size : cardinal; + filler : array[0..2] of longint; + end; + PFL_Dirlist = ^TFL_Dirlist; + + +TFL_DIRLIST_FILTER = Procedure (p1 : pchar; p2 : Longint ); cdecl; +PFL_DIRLIST_FILTER = ^TFL_DIRLIST_FILTER; + +Const + FL_ALPHASORT = 1; + FL_RALPHASORT = 2; + FL_MTIMESORT = 3; + FL_RMTIMESORT = 4; + FL_SIZESORT = 5; + FL_RSIZESORT = 6; + + +{ read dir with pattern filtering. All dirs read might be cached. + * must not change dirlist in anyway. + } +Function fl_get_dirlist(p1 : pchar; p2 : pchar; p3 : pointer;p4 :longint) : PFL_Dirlist; { rescan } cdecl;external; + + +Function fl_set_dirlist_filter (p1 : PFL_DIRLIST_FILTER ) : PFL_DIRLIST_FILTER ; cdecl;external; +Procedure fl_set_dirlist_sort ( p1 : longint); cdecl;external; + +Procedure fl_free_dirlist(p1 : PFL_Dirlist); cdecl;external; + +{ Free all directory caches } +Procedure fl_free_all_dirlist; cdecl;external; + +Function fl_is_valid_dir(p1 : pchar ) : Longint; cdecl;external; +Function fl_fmtime(p1 : pchar ) : cardinal ; cdecl;external; +Function fl_fix_dirname(p1 : pchar) : pchar; cdecl;external; + +Const + FLPS_AUTO = 0; + FLPS_LANDSCAPE = 1; + FLPS_PORTRAIT = 2; + + + FLPS_BW = -1; + FLPS_GRAYSCALE=0; + + type + TFLPS_CONTROL = record + ps_color,orientation,auto_fit,drawbox,eps : longint; + xdpi,ydpi,paper_w,paper_h, gamma : real; { Must be float } + end; + PFLPS_CONTROL = ^TFLPS_CONTROL; + +Function flps_init : PFLPS_CONTROL; cdecl;external; +Function fl_object_ps_dump (p1 : PFL_OBJECT; p2 : pchar) : longint; cdecl;external; + +{ types of frames } +Const + FL_NO_FRAME = 0; + FL_UP_FRAME = 1; + FL_DOWN_FRAME = 2; + FL_BORDER_FRAME = 3; + FL_SHADOW_FRAME = 4; + FL_ENGRAVED_FRAME = 5; + FL_ROUNDED_FRAME = 6; + FL_EMBOSSED_FRAME = 7; + FL_OVAL_FRAME = 8; + + FL_FRAME_COL1 = FL_BLACK; + FL_FRAME_COL2 = FL_COL1; + FL_FRAME_LCOL = FL_BLACK; + +Function fl_create_frame(p1 : longint; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT; cdecl;external; +Function fl_add_frame(p1 : longint; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT; cdecl;external; +Function fl_create_labelframe(p1 : longint; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT; cdecl;external; +Function fl_add_labelframe(p1 : longint; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT; cdecl;external; + + +{ + * + * Object Class: Free + } + +Const + FL_NORMAL_FREE = 0; + FL_INACTIVE_FREE = 1; + FL_INPUT_FREE = 2; + FL_CONTINUOUS_FREE = 3; + FL_ALL_FREE = 4; +Type + TFL_FREE_TYPE = Longint; + PFL_FREE_TYPE = ^TFL_FREE_TYPE; + +Const FL_SLEEPING_FREE = FL_INACTIVE_FREE; + + +Function fl_create_free(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord;p6: pchar; p7 : PFL_HANDLEPTR) : PFL_OBJECT; cdecl;external; +Function fl_add_free(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord;p6 : pchar; P7 : PFL_HANDLEPTR) : PFL_OBJECT; cdecl;external; + +Const + FLAlertDismissLabel = 'flAlert.dismiss.label'; + FLQuestionYesLabel = 'flQuestion.yes.label'; + FLQuestionNoLabel = 'flQuestion.no.label'; + FLOKLabel = 'flInput.ok.label'; + FLInputClearLabel = 'flInput.clear.label'; + FLInputCancelLabel = 'flInput.cancel.label'; + +{ from goodies.c } +Procedure fl_set_goodies_font(p1 : LongInt; p2 : Longint ); cdecl;external; +Procedure fl_show_message(p1 : pchar; p2 : pchar; p3 :pchar); cdecl;external; +Procedure fl_show_messages(p1 : pchar); cdecl;external; +Procedure fl_show_alert(p1 : pchar; p2 : pchar; p3 : pchar; p4 : Longint ); cdecl;external; +Function fl_show_question(p1 : pchar; p2 : longint) : Longint ; cdecl;external; +Function fl_show_input(p1 : pchar; p2 : pchar ) : pchar; cdecl;external; +Function fl_show_simple_input(p1 : pchar; p2 : pchar ) : pchar; cdecl;external; +Function fl_show_colormap(p1 : Longint ) : Longint ; cdecl;external; +Function fl_show_choice(p1,p2,p3 : pchar; p4 : Longint ; p5,p6,p7 : pchar; p8 : Longint) : Longint; cdecl;external; +Function fl_show_choices(p1 : pchar; p4 : Longint ; p5,p6,p7 : pchar; p8 : Longint) : Longint; cdecl;external; +Procedure fl_set_choices_shortcut(p1,p2,p3 :pchar); cdecl;external; + +Procedure fl_show_oneliner(p1 : pchar; p2 : TFL_Coord; p3 :TFL_Coord); cdecl;external; +Procedure fl_hide_oneliner; cdecl;external; +Procedure fl_set_oneliner_font(p1 : LongInt; p2 : Longint ); cdecl;external; +Procedure fl_set_oneliner_color(p1 : TFL_COLOR; p2 : TFL_COLOR); cdecl;external; + +type TFD_CMDLOG = record + form : PFL_FORM; + browser,close_browser,clear_browser : PFL_OBJECT; +end; +PFD_CMDLOG = ^TFD_CMDLOG; + +Function fl_exe_command(p1 : pchar; p2 : Longint) : Longint; cdecl;external; +Function fl_end_command(p1 : longint) : Longint; cdecl;external; +Function fl_check_command(p1 : longint) : longint; cdecl;external; +Function fl_end_all_command : Longint; cdecl;external; +Procedure fl_show_command_log(p1 : Longint); cdecl;external; +Procedure fl_hide_command_log; cdecl;external; +Procedure fl_clear_command_log; cdecl;external; +Procedure fl_addto_command_log(p1 : pchar); cdecl;external; +Procedure fl_set_command_log_position(p1,p2 :longint); cdecl;external; +Function fl_get_command_log_fdstruct : PFD_CMDLOG; cdecl;external; + +{ aliases } +{ +#define fl_open_command fl_exe_command +#define fl_close_command fl_end_command +} + +{****** from file selector ****************} + +Const FL_MAX_FSELECTOR = 6; + +type TFD_FSELECTOR = record + fselect : PFL_FORM; + browser, theinput, prompt, resbutt, + patbutt,dirbutt, cancel, ready : PFL_OBJECT; + dirlabel,patlabel : PFL_OBJECT; + appbut : array[0..2] of PFL_OBJECT; +end; + +PFD_FSELECTOR = ^TFD_FSELECTOR; + +Function fl_use_fselector(p1 : LongInt ) : LongInt; cdecl;external; +Function fl_show_fselector(p1,p2,p3,p4 : pchar) : pchar; cdecl;external; + +Procedure fl_set_fselector_fontsize (p1 : Longint); cdecl;external; +Procedure fl_set_fselector_fontstyle (p1 : longint); cdecl;external; +Procedure fl_set_fselector_placement(p1 : LongInt); cdecl;external; +Procedure fl_set_fselector_border(p1 : LongInt); cdecl;external; + +{ +#define fl_set_fselector_transient(p1 : b) \ + fl_set_fselector_border(p1 : (p1 : b)?FL_TRANSIENT:FL_FULLBORDER) +} + +Type TFSelector_Callback = Function (P1 : Pchar; P2 : Pointer) : Longint; cdecl; + PFSelector_Callback = ^TFSelector_Callback; + TFL_Procedure = Procedure; cdecl; + PFL_Procedure = ^TFL_Procedure; + +Procedure fl_set_fselector_callback( p1 : PFSelector_Callback; p2 : pointer); cdecl;external; +Function fl_get_filename : pchar; cdecl;external; +Function fl_get_directory : pchar; cdecl;external; +Function fl_get_pattern : pchar; cdecl;external; +Function fl_set_directory (p1 : pchar ) : LongInt; cdecl;external; +Procedure fl_set_pattern (p1 : pchar); cdecl;external; +Procedure fl_refresh_fselector; cdecl;external; +Procedure fl_add_fselector_appbutton(p1 : pchar; p2 : PFL_Procedure; p3 : pointer); cdecl;external; +Procedure fl_remove_fselector_appbutton(p1 : pchar); cdecl;external; +Procedure fl_disable_fselector_cache(p1 : LongInt); cdecl;external; +Procedure fl_invalidate_fselector_cache; cdecl;external; +Function fl_get_fselector_form : PFL_FORM; cdecl;external; +Function fl_get_fselector_fdstruct : PFD_FSELECTOR; cdecl;external; +Procedure fl_hide_fselector; cdecl;external; + + +Procedure fl_set_fselector_filetype_marker(p1,p2,p3,p4,p5 : Longint); cdecl;external; + +{ +#define fl_show_file_selector fl_show_fselector +#define fl_set_fselector_cb fl_set_fselector_callback +#define fl_set_fselector_title(p1 : s) fl_set_form_title(p1 : fl_get_fselector_form(p1 : ); p2 : s) +} + + +{**** Types ****} + +Const + FL_NORMAL_INPUT = 0; + FL_FLOAT_INPUT = 1; + FL_INT_INPUT = 2; + FL_DATE_INPUT = 3; + FL_MULTILINE_INPUT = 4; + FL_HIDDEN_INPUT = 5; + FL_SECRET_INPUT = 6; + + FL_INPUT_MMDD = 0; + FL_INPUT_DDMM = 1; + +Type TFL_INPUT_TYPE = Longint; + +{**** Defaults ****} + +Const + FL_INPUT_BOXTYPE = FL_DOWN_BOX; + FL_INPUT_COL1 = FL_COL1; + FL_INPUT_COL2 = FL_MCOL; + FL_INPUT_LCOL = FL_LCOL; + FL_INPUT_ALIGN = FL_ALIGN_LEFT; + +{**** Others ****} + + FL_INPUT_TCOL = FL_LCOL; + FL_INPUT_CCOL = FL_BLUE; + + cFL_RINGBELL = (1 shl 4); + +{**** Routines ****} + +Function fl_create_input(p1 : Longint; p2,p3,p4,p5 : TFL_Coord; p6: pchar) : PFL_OBJECT; cdecl;external; + +Function fl_add_input(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord; P6 : pchar ) : PFL_OBJECT; cdecl;external; + +Procedure fl_set_input(p1 : PFL_OBJECT; p2 : pchar); cdecl;external; +Procedure fl_set_input_color(p1 : PFL_OBJECT; p2 : Longint ; p3 :Longint ); cdecl;external; +Procedure fl_set_input_return(p1 : PFL_OBJECT; p2 : Longint ); cdecl;external; +Procedure fl_set_input_scroll(p1 : PFL_OBJECT; p2 : Longint ); cdecl;external; +Procedure fl_set_input_cursorpos(p1 : PFL_OBJECT; p2 : Longint ; p3 :Longint ); cdecl;external; +Procedure fl_set_input_selected(p1 : PFL_OBJECT; p2 : Longint ); cdecl;external; +Procedure fl_set_input_selected_range(p1 : PFL_OBJECT; p2 : Longint ; p3 :Longint ); cdecl;external; +Procedure fl_set_input_maxchars(p1 : PFL_OBJECT; p2 : Longint ); cdecl;external; +Procedure fl_set_input_format(p1 : PFL_OBJECT; p2,p3 : Longint ); cdecl;external; +Procedure fl_set_input_hscrollbar(p1 : PFL_OBJECT; p2 : Longint ); cdecl;external; +Procedure fl_set_input_vscrollbar(p1 : PFL_OBJECT; p2 : Longint ); cdecl;external; +Procedure fl_set_input_xoffset(p1 : PFL_OBJECT; p2 : Longint ); cdecl;external; +Procedure fl_set_input_topline(p1 : PFL_OBJECT; p2 : Longint ); cdecl;external; +Procedure fl_set_input_scrollbarsize(p1 : PFL_OBJECT; p2,p3 : Longint ); cdecl;external; + +Function fl_get_input(p1 : PFL_OBJECT ) : pchar; cdecl;external; +Function fl_get_input_cursorpos(p1 : PFL_OBJECT; p2,p3 : Pointer ) : LongInt; cdecl;external; +Function fl_get_input_topline(p1 : PFL_OBJECT;p2,p3 : PLongint) : Longint; cdecl;external; +Function fl_get_input_screenlines(p1 : PFL_OBJECT) : Longint; cdecl;external; +Function fl_get_input_numberoflines(p1 : PFL_OBJECT) : Longint; cdecl;external; +Procedure fl_get_input_format(p1 : PFL_OBJECT;p2,p3 : PLongint); cdecl;external; +Function fl_get_input_selected_range(p1 : PFL_OBJECT; p2 : Longint ; p3 :Longint ) : pchar ; cdecl;external; + + + +type + TFL_INPUTVALIDATOR = Procedure (p1 : PFL_OBJECT; p2,p3 : pchar; p4 : Longint ); cdecl; + PFL_INPUTVALIDATOR= ^TFL_INPUTVALIDATOR; + +Function fl_set_input_filter(p1 : PFL_OBJECT; p2 : PFL_INPUTVALIDATOR ) : PFL_INPUTVALIDATOR ; cdecl;external; + +{ +#define fl_set_input_shortcut fl_set_object_shortcut +#define ringbell(p1 : ) XBell(p1 : fl_display; p2 : 0) +} + +type TFL_EditKeymap = record + { basic editing } + del_prev_char : Longint; { delete previous char } + del_next_char : Longint; { delete next char } + del_prev_word : Longint; { delete previous word } + del_next_word : Longint; { delete next word } + + { movement } + moveto_prev_line : Longint; { one line up } + moveto_next_line : Longint; { one line down } + moveto_prev_char : Longint; { one char left } + moveto_next_char : Longint; { one char right } + moveto_prev_word : Longint; { one word left } + moveto_next_word : Longint; { one word right } + moveto_prev_page : Longint; { one page up } + moveto_next_page : Longint; { one page down } + moveto_bol : Longint; { move to begining of line } + moveto_eol : Longint; { move to end of line } + moveto_bof : Longint; { move to begin of file } + moveto_eof : Longint; { move to end of file } + + { misc. stuff } + transpose : Longint; { switch two char positions } + paste : Longint; { paste the edit buffer } + backspace : Longint; { another del_prev_char } + del_to_bol : Longint; { cut to begining of line } + del_to_eol : Longint; { cut to end of line } + clear_field : Longint; { delete everything } + del_to_eos : Longint; { not implemented } + reserverd : array[0..3] of Longint; { fillter } +end; +PFL_EditKeymap = ^TFL_EditKeymap; + +Procedure fl_set_input_editkeymap(a: PFL_EditKeymap); cdecl;external; + + +{*********** Object Class: Menu ***********} + +Const + FL_TOUCH_MENU = 0; + FL_PUSH_MENU = 1; + FL_PULLDOWN_MENU = 2; + +Type TFL_MENU_TYPE = Longint; + +{**** Defaults ****} + +Const + FL_MENU_BOXTYPE = FL_BORDER_BOX; + FL_MENU_COL1 = FL_COL1; + FL_MENU_COL2 = FL_MCOL; + FL_MENU_LCOL = FL_LCOL; + FL_MENU_ALIGN = FL_ALIGN_CENTER; + +{**** Others ****} + + FL_MENU_MAXITEMS = 128; + FL_MENU_MAXSTR = 64; + +{**** Routines ****} + +Function fl_create_menu(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord; P6 : pchar) : PFL_OBJECT; cdecl;external; + +Function fl_add_menu(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord; P6 : pchar) : PFL_OBJECT; cdecl;external; + +Procedure fl_clear_menu(p1 : PFL_OBJECT); cdecl;external; +Procedure fl_set_menu(p1 : PFL_OBJECT; p2 : pchar); cdecl;external; +Procedure fl_addto_menu(p1 : PFL_OBJECT; p2 : pchar); cdecl;external; +Procedure fl_replace_menu_item(p1 : PFL_OBJECT; p2 : Longint ; p3 :pchar); cdecl;external; +Procedure fl_delete_menu_item(p1 : PFL_OBJECT; p2 : Longint ); cdecl;external; + +Procedure fl_set_menu_item_shortcut(p1 : PFL_OBJECT; p2 : Longint ; p3 :pchar); cdecl;external; +Procedure fl_set_menu_item_mode(p1 : PFL_OBJECT; p2 : Longint ; p3 : Cardinal); cdecl;external; +Procedure fl_show_menu_symbol(p1 : PFL_OBJECT; p2 : Longint ); cdecl;external; +Procedure fl_set_menu_popup(p1 : PFL_OBJECT; p2 : Longint ); cdecl;external; +Function fl_get_menu_popup(p1 : pfl_object): longint; cdecl;external; + +Function fl_get_menu(p1 : PFL_OBJECT ) : Longint ; cdecl;external; +Function fl_get_menu_item_text(p1 : PFL_OBJECT; p2 : Longint ) : pchar; cdecl;external; +Function fl_get_menu_maxitems(p1 : PFL_OBJECT ) : Longint ; cdecl;external; +Function fl_get_menu_item_mode(p1 : PFL_OBJECT; p2 : Longint ) : Cardinal ; cdecl;external; +Function fl_get_menu_text(p1 : PFL_OBJECT ) : pchar; cdecl;external; + + + +Const + FL_NORMAL_MENUBAR = 0; + + FL_MENUBAR_BOXTYPE =FL_UP_BOX; + FL_MENUBAR_COL1 =FL_COL1; + FL_MENUBAR_COL2 =FL_MCOL; + FL_MENUBAR_LCOL =FL_LCOL; + +Function fl_create_menubar(p1 : longint; p2,p3,p4,p5 : TFL_COORD;p6 : Pchar): PFL_OBJECT; cdecl;external; +Function fl_add_menubar(p1 : longint;p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT; cdecl;external; + +Procedure fl_clear_menubar(p1 : PFL_OBJECT); cdecl;external; +Procedure fl_set_menubar(p1 : PFL_OBJECT; p2 : pchar); cdecl;external; +Procedure fl_set_menubar_entries(p1 : PFL_OBJECT; p2 : pchar;p3 : PFL_PUP_ENTRY); cdecl;external; + + +{ + * + * Prototypes for pop-up menus + } + + +Const + FL_MAXPUPI = 80; { max item each pup } + FL_PUP_PADH = 4; { space between each items } + + type + TFL_PUP_ENTERCB = Procedure (p1 : longint; p2: pointer); cdecl; + PFL_PUP_ENTERCB = ^TFL_PUP_ENTERCB; + + TFL_PUP_LEAVECB =Procedure (p1 : longint; p2: pointer); cdecl; + PFL_PUP_LEAVECB = ^TFL_PUP_LEAVECB; + +Function fl_setpup_entries(p1 : Longint; p2 : PFL_PUP_ENTRY) : Longint; cdecl;external; +Function fl_newpup(p1 : TWindow ) : LongInt; cdecl;external; + +Function fl_defpup(p1 : TWindow; p2 : pchar) : LongInt; cdecl;external; +Function fl_addtopup(p1 : longint; p2 : pchar) : LongInt; cdecl;external; + +Function fl_setpup_mode(p1 : Longint; p2 : Longint ; p3 : Cardinal) : Longint; cdecl;external; +Procedure fl_freepup(p1 : Longint); cdecl;external; +Function fl_dopup(p1 : Longint ) : LongInt; cdecl;external; + +Procedure fl_setpup_shortcut(p1 : Longint; p2 : Longint ; p3 :pchar); cdecl;external; +Procedure fl_setpup_position(p1 : Longint; p2 : Longint ); cdecl;external; +Procedure fl_setpup_selection(p1 : Longint; p2 : Longint ); cdecl;external; +Procedure fl_setpup_shadow(p1 : LongInt; p2 : Longint {was LongInt}); cdecl;external; +Procedure fl_setpup_softedge(p1 : LongInt; p2 : Longint ); cdecl;external; +Function fl_setpup_fontsize(p1 : LongInt) : Longint; cdecl;external; +Function fl_setpup_fontstyle(p1 : LongInt) : Longint; cdecl;external; +Procedure fl_setpup_color(p1 : TFL_COLOR; p2 : TFL_COLOR); cdecl;external; +Procedure fl_setpup_checkcolor(p1 : TFL_COLOR); cdecl;external; +Function fl_setpup_default_fontsize(p1 : LongInt) : Longint; +Function fl_setpup_default_fontstyle(p1 : LongInt) : Longint; +Procedure fl_setpup_default_color(p1 : TFL_COLOR; p2 : TFL_COLOR); +Procedure fl_setpup_default_checkcolor(p1 : TFL_COLOR); +Procedure fl_setpup_title(p1 : LongInt; p2 : pchar); cdecl;external; +Procedure fl_setpup_bw(p1 : LongInt; p2 : Longint ); cdecl;external; +Procedure fl_setpup_pad(p1 : LongInt; p2 : Longint ; p3 :Longint ); cdecl;external; +Function fl_setpup_cursor(p1 : LongInt; p2 : Longint ) : TCursor ; cdecl;external; +Function fl_setpup_default_cursor(p1 : LongInt ) : TCursor ; cdecl;external; +Function fl_setpup_maxpup(p1 : LongInt ) : LongInt; cdecl;external; +Function fl_getpup_mode(p1 : LongInt; p2 : Longint ) : Cardinal; cdecl;external; +Function fl_getpup_text(p1 : LongInt; p2 : Longint ) : pchar; cdecl;external; +Procedure fl_showpup(p1 : LongInt); cdecl;external; +Procedure fl_hidepup(p1 : LongInt); cdecl;external; + +{ +#define fl_setpup_hotkey fl_setpup_shortcut +} + +Function fl_setpup_itemcb(p1 : LongInt; p2 : Longint ; p3 :PFL_PUP_CB ) : PFL_PUP_CB ; cdecl;external; +Function fl_setpup_menucb(p1 : LongInt; p2 : PFL_PUP_CB ) : PFL_PUP_CB ; cdecl;external; +Procedure fl_setpup_submenu(p1 : LongInt; p2 : Longint ; p3 :Longint ); cdecl;external; + +{ +#define fl_setpup fl_setpup_mode +} + +Const + FL_NORMAL_POSITIONER = 0; + +{**** Defaults ****} + + FL_POSITIONER_BOXTYPE = FL_DOWN_BOX; + FL_POSITIONER_COL1 = FL_COL1; + FL_POSITIONER_COL2 = FL_RED; + FL_POSITIONER_LCOL = FL_LCOL; + FL_POSITIONER_ALIGN = FL_ALIGN_BOTTOM; + +{**** Others ****} + + +{**** Routines ****} + +Function fl_create_positioner(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT; cdecl;external; +Function fl_add_positioner(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT; cdecl;external; + +Procedure fl_set_positioner_xvalue(p1 : PFL_OBJECT; p2 : double); cdecl;external; +Function fl_get_positioner_xvalue(p1 : PFL_OBJECT ) : double ; cdecl;external; +Procedure fl_set_positioner_xbounds(p1 : PFL_OBJECT; p2 : double; p3 :double); cdecl;external; +Procedure fl_get_positioner_xbounds(p1 : PFL_OBJECT; p2 : pdouble ; p3 : pdouble); cdecl;external; +Procedure fl_set_positioner_yvalue(p1 : PFL_OBJECT; p2 : double); cdecl;external; +Function fl_get_positioner_yvalue(p1 : PFL_OBJECT ) : double ; cdecl;external; +Procedure fl_set_positioner_ybounds(p1 : PFL_OBJECT; p2 : double; p3 :double); cdecl;external; +Procedure fl_get_positioner_ybounds(p1 : PFL_OBJECT; p2 ,p3 :pdouble); cdecl;external; +Procedure fl_set_positioner_xstep(p1 : PFL_OBJECT; p2 : double); cdecl;external; +Procedure fl_set_positioner_ystep(p1 : PFL_OBJECT; p2 : double); cdecl;external; +Procedure fl_set_positioner_return(p1 : PFL_OBJECT; p2 : Longint ); cdecl;external; + +Const + FL_HOR_SCROLLBAR = 0; + FL_VERT_SCROLLBAR = 1; + FL_HOR_THIN_SCROLLBAR = 2; + FL_VERT_THIN_SCROLLBAR = 3; + FL_HOR_NICE_SCROLLBAR = 4; + FL_VERT_NICE_SCROLLBAR = 5; + FL_HOR_PLAIN_SCROLLBAR = 6; + FL_VERT_PLAIN_SCROLLBAR = 7; + + FL_HOR_BASIC_SCROLLBAR = FL_HOR_PLAIN_SCROLLBAR; + FL_VERT_BASIC_SCROLLBAR = FL_VERT_PLAIN_SCROLLBAR; + + FL_THIN_SCROLLBAR = 0; + FL_PLAIN_SCROLLBAR = 1; + FL_NORMAL_SCROLLBAR = 2; + FL_NICE_SCROLLBAR = 3; + +Function fl_create_scrollbar(p1 : longint;p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT ; cdecl;external; +Function fl_add_scrollbar(p1 : longint;p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT ; cdecl;external; + +Function fl_get_scrollbar_value(p1 : PFL_OBJECT) : double ; cdecl;external; +Procedure fl_set_scrollbar_value(p1 : PFL_OBJECT; p2: double); cdecl;external; +Procedure fl_set_scrollbar_size(p1 : PFL_OBJECT; p2 : double); cdecl;external; +Procedure fl_set_scrollbar_increment(p1 : PFL_OBJECT;p2,p3: double); cdecl;external; +Procedure fl_get_scrollbar_increment(p1 : PFL_OBJECT; p2,p3 : real {float !!}); cdecl;external; +Procedure fl_set_scrollbar_bounds(p1 : PFL_OBJECT; p2,p3 : double); cdecl;external; +Procedure fl_get_scrollbar_bounds(p1 : PFL_OBJECT; p2,p3 : real {float !!!}); cdecl;external; +Procedure fl_set_scrollbar_return(p1 : PFL_OBJECT; p2 : longint); cdecl;external; +Procedure fl_set_scrollbar_step(P1 : PFL_OBJECT;p2 : double); cdecl;external; + + + +{ + * + * Object Class: Slider + * + } + + +Const + FL_VERT_SLIDER = 0; + FL_HOR_SLIDER = 1; + FL_VERT_FILL_SLIDER = 2; + FL_HOR_FILL_SLIDER = 3; + FL_VERT_NICE_SLIDER = 4; + FL_HOR_NICE_SLIDER = 5; + FL_HOR_BROWSER_SLIDER = 6; + FL_VERT_BROWSER_SLIDER = 7; + FL_HOR_BROWSER_SLIDER2 = 8; { for Longint ernal use only } + FL_VERT_BROWSER_SLIDER2 = 9; { for Longint ernal use only } + FL_HOR_THIN_SLIDER = 10; { internal use } + FL_VERT_THIN_SLIDER = 11; { internal use } + FL_HOR_BASIC_SLIDER = 12; { internal use } + FL_VERT_BASIC_SLIDER = 13; { internal use } + +Type + TFL_SLIDER_TYPE = Longint; + PFL_SLIDER_TYPE = ^TFL_SLIDER_TYPE; + + +{**** Defaults ****} +Const + FL_SLIDER_BW1 = FL_BOUND_WIDTH; + FL_SLIDER_BW2 = FL_BOUND_WIDTH-1; + + FL_SLIDER_BOXTYPE = FL_DOWN_BOX; + FL_SLIDER_COL1 = FL_COL1; + FL_SLIDER_COL2 = FL_COL1; + FL_SLIDER_LCOL = FL_LCOL; + FL_SLIDER_ALIGN = FL_ALIGN_BOTTOM; + +{**** Others ****} + + FL_SLIDER_FINE = 0.05; + FL_SLIDER_WIDTH = 0.10; + + +{**** Routines ****} + +Function fl_create_slider(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord;p6: pchar) : PFL_OBJECT; cdecl;external; +Function fl_add_slider(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord;p6: pchar) : PFL_OBJECT; cdecl;external; + +Function fl_create_valslider(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord;p6: pchar): PFL_OBJECT; cdecl;external; +Function fl_add_valslider(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord;P6: pchar) : PFL_OBJECT; cdecl;external; + +Procedure fl_set_slider_value(p1 : PFL_OBJECT; p2 : double); cdecl;external; +Function fl_get_slider_value(p1 : PFL_OBJECT ) : double ; cdecl;external; +Procedure fl_set_slider_bounds(p1 : PFL_OBJECT; p2 : double; p3 :double); cdecl;external; +Procedure fl_get_slider_bounds(p1 : PFL_OBJECT; p2,p3 : pdouble); cdecl;external; + +Procedure fl_set_slider_return(p1 : PFL_OBJECT; p2 : Longint ); cdecl;external; + +Procedure fl_set_slider_step(p1 : PFL_OBJECT; p2 : double); cdecl;external; +Procedure fl_set_slider_increment(p1 : PFL_OBJECT; p2,p3 : double); cdecl;external; +Procedure fl_set_slider_size(p1 : PFL_OBJECT; p2 : double); cdecl;external; +Procedure fl_set_slider_precision(p1 : PFL_OBJECT; p2 : Longint ); cdecl;external; + +Type + TFL_SLIDER_FILTER = Procedure (p1 : PFL_OBJECT; p2 : double; p3 :Longint ); cdecl; + PTFL_SLIDER_FILTER= ^TFL_SLIDER_FILTER ; + +Procedure fl_set_slider_filter(p1 : PFL_OBJECT; p2 : PTFL_SLIDER_FILTER); cdecl;external; + +const +FL_TOP_TABFOLDER = 0; +FL_BOTTOM_TABFOLDER = 1; +FL_LEFT_TABFOLDER = 2; +FL_RIGHT_TABFOLDER = 3; + +FL_NORMAL_TABFOLDER = FL_TOP_TABFOLDER; + +Function fl_create_tabfolder (p1 : longint;p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT ; cdecl;external; +Function fl_add_tabfolder(p1 : longint;p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT ; cdecl;external; +Function fl_addto_tabfolder(p1 : PFL_OBJECT; p2 : pchar; p3 : PFL_FORM) : PFL_OBJECT; cdecl;external; +Procedure fl_delete_folder(p1 : PFL_OBJECT; p2 : PFL_FORM); cdecl;external; +Procedure fl_delete_folder_bynumber(p1 : PFL_OBJECT; p2 : longint); cdecl;external; +Procedure fl_delete_folder_byname(p1 : PFL_OBJECT; p2 : pchar); cdecl;external; + +Procedure fl_set_folder(p1 : PFL_OBJECT; P2 : PFL_FORM); cdecl;external; +Procedure fl_set_folder_byname(p1 : PFL_OBJECT; p2 : pchar); cdecl;external; +Procedure fl_set_folder_bynumber(p1 : PFL_OBJECT; p2 : longint); cdecl;external; +Function fl_get_folder(p1 : PFL_OBJECT) : PFL_FORM; cdecl;external; +Function fl_get_folder_number(p1 : PFL_OBJECT) : longint; cdecl;external; +Function fl_get_folder_name(p1 : PFL_OBJECT) : pchar; cdecl;external; +Function fl_get_active_folder(p1 : PFL_OBJECT) : PFL_FORM; cdecl;external; +Function fl_get_active_folder_number(P1 : PFL_OBJECT) : longint; cdecl;external; +Function fl_get_active_folder_name(p1 : PFL_OBJECT) : Pchar; cdecl;external; +Procedure fl_get_folder_area(p1 : PFL_OBJECT; p2,p3,p4,p5 : PFL_Coord); cdecl;external; + +Procedure fl_replace_folder_bynumber(p1 : PFL_OBJECT;p2 : longint;p3 : PFL_FORM); cdecl;external; + +Const + FL_NORMAL_TEXT = 0; + + FL_TEXT_BOXTYPE = FL_FLAT_BOX; + FL_TEXT_COL1 = FL_COL1; + FL_TEXT_COL2 = FL_MCOL; + FL_TEXT_LCOL = FL_LCOL; + FL_TEXT_ALIGN = FL_ALIGN_LEFT; + +Function fl_create_text(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT; cdecl;external; +Function fl_add_text(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord; p6 : pchar): PFL_OBJECT; cdecl;external; + + + +{ + * + * Object Class: Timer + * + } + + +Const + FL_NORMAL_TIMER = 0; + FL_VALUE_TIMER = 1; + FL_HIDDEN_TIMER = 2; + +Type TFL_TIMER_TYPE = Longint; + +{**** Defaults ****} +Const + +FL_TIMER_BOXTYPE = FL_DOWN_BOX; +FL_TIMER_COL1 = FL_COL1; +FL_TIMER_COL2 = FL_RED; +FL_TIMER_LCOL = FL_LCOL; +FL_TIMER_ALIGN = FL_ALIGN_CENTER; + +{**** Others ****} + + FL_TIMER_BLINKRATE = 0.2; + +Type TFL_TIMER_FILTER = Function (P1 : PFL_OBJECT;p2 : double) : pchar; cdecl; + PFL_TIMER_FILTER = ^TFL_TIMER_FILTER; + +{**** Routines ****} + +Function fl_create_timer(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT; cdecl;external; + +Function fl_add_timer(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord;p6: pchar) : PFL_OBJECT; cdecl;external; + +Procedure fl_set_timer(p1 : PFL_OBJECT; p2 : double); cdecl;external; +Function fl_get_timer(p1 : PFL_OBJECT ) : double ; cdecl;external; +Procedure fl_set_timer_countup(p1 : PFL_OBJECT; p2 : Longint); cdecl;external; +Function fl_set_timer_filter (p1 : PFL_OBJECT; p2 : PFL_TIMER_FILTER) : PFL_TIMER_FILTER; cdecl;external; +Procedure fl_suspend_timer(p1 : PFL_OBJECT); cdecl;external; +Procedure fl_resume_timer(p1 : PFL_OBJECT); cdecl;external; + +{ + * Class FL_XYPLOT + } + +Const + FL_NORMAL_XYPLOT = 0; { solid line } + FL_SQUARE_XYPLOT = 1; { with added square } + FL_CIRCLE_XYPLOT = 2; { with added circle } + FL_FILL_XYPLOT = 3; { fill completely } + FL_POINTS_XYPLOT = 4; { only data points } + FL_DASHED_XYPLOT = 5; { dashed line } + FL_IMPULSE_XYPLOT = 6; + FL_ACTIVE_XYPLOT = 7; { accepts Longint eractive manipulations } + FL_EMPTY_XYPLOT = 8; +Type + TFL_XYPLOT_TYPE = Longint; + +Const + FL_LINEAR = 0; + FL_LOG = 1; + +Const + FL_GRID_NONE = 0; + FL_GRID_MAJOR = 1; + FL_GRID_MINOR = 2; + +{**** Defaults ****} + + FL_XYPLOT_BOXTYPE = FL_FLAT_BOX; + FL_XYPLOT_COL1 = FL_COL1; + FL_XYPLOT_LCOL = FL_LCOL; + FL_XYPLOT_ALIGN = FL_ALIGN_BOTTOM; + FL_MAX_XYPLOTOVERLAY = 32; + +{**** Others ****} + +Function fl_create_xyplot(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord; p6: pchar) : PFL_OBJECT; cdecl;external; +Function fl_add_xyplot(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord; P6 : pchar ) : PFL_OBJECT; cdecl;external; +Procedure fl_set_xyplot_data(p1 : PFL_OBJECT; p2,p3 : pfloat; p4 : Longint ; p5,p6,p7 : pchar); cdecl;external; +Procedure fl_set_xyplot_file(p1 : PFL_OBJECT; p2,p3,p4,p5 :pchar); cdecl;external; + +Procedure fl_set_xyplot_return(p1 : PFL_OBJECT; p2 : Longint ); cdecl;external; +Procedure fl_set_xyplot_xtics(p1 : PFL_OBJECT; p2 : Longint ; p3 :Longint ); cdecl;external; +Procedure fl_set_xyplot_ytics(p1 : PFL_OBJECT; p2 : Longint ; p3 :Longint ); cdecl;external; +Procedure fl_set_xyplot_xbounds(p1 : PFL_OBJECT; p2 : double; p3 :double); cdecl;external; +Procedure fl_set_xyplot_ybounds(p1 : PFL_OBJECT; p2 : double; p3 :double); cdecl;external; +Function fl_set_xyplot_maxoverlays(p1 : PFL_OBJECT; p2 : Longint ) : Longint ; cdecl;external; +Procedure fl_set_xyplot_overlay_type(p1 : PFL_OBJECT; p2 : Longint ; p3 : Longint ); cdecl;external; +Procedure fl_set_xyplot_interpolate(p1 : PFL_OBJECT; p2 : Longint ; p3 : Longint ; p4 : double); cdecl;external; +Procedure fl_set_xyplot_fontsize(p1 : PFL_OBJECT; p2 : Longint ); cdecl;external; +Procedure fl_set_xyplot_fontstyle(p1 : PFL_OBJECT; p2 : Longint ); cdecl;external; +Procedure fl_set_xyplot_inspect(p1 : PFL_OBJECT; p2 : Longint ); cdecl;external; +Procedure fl_set_xyplot_symbolsize(p1 : PFL_OBJECT; p2 : Longint ); cdecl;external; +Procedure fl_set_xyplot_xscale(p1 : PFL_OBJECT; p2 : Longint ; p3 :double); cdecl;external; +Procedure fl_set_xyplot_yscale(p1 : PFL_OBJECT; p2 : Longint ; p3 :double); cdecl;external; + +Procedure fl_set_xyplot_linewidth(p1 : PFL_OBJECT; p2,p3 : Longint); cdecl;external; +Procedure fl_set_xyplot_xgrid(p1 : PFL_OBJECT; p2 : Longint); cdecl;external; +Procedure fl_set_xyplot_ygrid(p1 : PFL_OBJECT; p2 : Longint); cdecl;external; +Procedure fl_set_xyplot_alphaxtics(p1 : PFL_OBJECT; p2,p3 : pchar); cdecl;external; +Procedure fl_set_xyplot_alphaytics(p1 : PFL_OBJECT; p2,p3 : pchar); cdecl;external; +Procedure fl_set_xyplot_fixed_xaxis(p1 : PFL_OBJECT; p2,p3 : pchar); cdecl;external; +Procedure fl_set_xyplot_fixed_yaxis(p1 : PFL_OBJECT; p2,p3 : pchar); cdecl;external; + + +Procedure fl_get_xyplot_xbounds(p1 : PFL_OBJECT; p2,p3 : pfloat ); cdecl;external; +Procedure fl_get_xyplot_ybounds(p1 : PFL_OBJECT; p2,p3 : pfloat ); cdecl;external; +Procedure fl_get_xyplot(p1 : PFL_OBJECT; p2,p3 : pfloat; p4 : pointer); cdecl;external; +Procedure fl_get_xyplot_data(p1 : PFL_OBJECT; p2,p3 : pfloat; p4 : pointer); cdecl;external; +Procedure fl_get_xyplot_xmapping(p1 : PFL_OBJECT; p2,p3 : pfloat); cdecl;external; +Procedure fl_get_xyplot_ymapping(p1 : PFL_OBJECT; p2,p3 : pfloat); cdecl;external; + +{ +#define fl_set_xyplot_datafile fl_set_xyplot_file +} +Procedure fl_add_xyplot_text(p1 : PFL_OBJECT; p2,p3 : double; p4 : pchar;p5 : Longint ; p6 :TFL_COLOR); cdecl;external; +Procedure fl_add_xyplot_overlay(p1 : PFL_OBJECT; p2 : Longint ; p3,p4 : pfloat; p5 : Longint ; p6 :TFL_COLOR); cdecl;external; +Procedure fl_delete_xyplot_text(p1 : PFL_OBJECT; p2 : pchar); cdecl;external; +Procedure fl_delete_xyplot_overlay(p1 : PFL_OBJECT; p2 : Longint ); cdecl;external; + +Procedure fl_replace_xyplot_point(p1 : PFL_OBJECT; p2 : Longint ; p3 : double; p4 : double); cdecl;external; +Function fl_interpolate(p1,p2 : pfloat; p3 :Longint ;p4,p5 : pfloat; p6 : double; p7 : Longint ) : Longint; cdecl;external; +Procedure fl_xyplot_s2w(p1 : PFL_OBJECT; p2 : double; p3 : double; p4,p5 : pfloat); cdecl;external; +Procedure fl_xyplot_w2s(p1 : PFL_OBJECT; p2 : double; p3 : double; p4,p5 : pfloat); cdecl;external; + +implementation + +{ From here we implement function aliases which were #defined } + +procedure fl_set_button_shortcut(p1 : PFL_OBJECT; p2 : pchar;p3 : Longint ); + +begin + fl_set_object_shortcut (p1,p2,p3); +end; + +procedure fl_set_pixmapbutton_data(p1 : PFL_OBJECT; p2 : ppchar); + +begin + fl_set_pixmap_data(p1,p2); +end; + +procedure fl_set_pixmapbutton_file(p1 : PFL_OBJECT; p2 : pchar); + +begin + fl_set_pixmap_file(p1,p2); +end; + +procedure fl_set_pixmapbutton_align(p1 : PFL_OBJECT; p2 : Longint ; p3 : Longint ; p4 : Longint ); +begin + fl_set_pixmap_align(p1,p2,p3,p4); +end; + +procedure fl_set_pixmapbutton_pixmap(p1 : PFL_OBJECT; p2 : TPixmap; p3 :TPixmap); +begin + fl_set_pixmap_pixmap(p1,p2,p3); +end; + +procedure fl_set_pixmapbutton_colorcloseness(p1 : Longint ; p2 : Longint ; p3 :Longint ); +begin +fl_set_pixmap_colorcloseness(p1,p2,p3); +end; + +procedure fl_free_pixmapbutton_pixmap(p1 : PFL_OBJECT); +begin + fl_free_pixmap_pixmap(p1); +end; + +function fl_get_pixmapbutton_pixmap(p1 : PFL_OBJECT; p2 : PPixmap; p3 : PPixmap) : TPixmap ; + +begin + fl_get_pixmapbutton_pixmap:=fl_get_pixmap_pixmap(p1,p2,p3); +end; + +Function FL_ObjWin ( P : PFL_Object) : TWindow; + +begin +if P^.objclass <> FL_CANVAS then + FL_ObjWin :=P^.form^.window +else + FL_objWin := fl_get_canvas_id (p) +end; + +procedure fl_rectf(x,y,w,h : TFL_COORD;c : TFL_COLOR); +begin + fl_rectangle(1,x,y,w,h,c) +end; + +procedure fl_rect(x,y,w,h : TFL_COORD;c : TFL_COLOR); +begin + fl_rectangle(0,x,y,w,h,c) +end; + + +procedure fl_set_canvas_decoration(p1 : PFL_OBJECT; p2 : Longint ); + +begin +fl_set_object_boxtype (p1,p2); +end; + +function fl_setpup_default_fontsize(p1 : LongInt) : Longint; + +begin + fl_setpup_default_fontsize:=fl_setpup_fontsize(p1) +end; + +function fl_setpup_default_fontstyle(p1 : LongInt) : Longint; + +begin + fl_setpup_default_fontstyle:=fl_setpup_fontstyle(p1); +end; + +procedure fl_setpup_default_color(p1 : TFL_COLOR; p2 : TFL_COLOR); +begin + fl_setpup_color(p1,p2); +end; + +procedure fl_setpup_default_checkcolor(p1 : TFL_COLOR); +begin + fl_setpup_default_checkcolor(p1); +end; + +end. |