diff options
Diffstat (limited to 'gui/fpgui.pas')
| -rw-r--r-- | gui/fpgui.pas | 294 |
1 files changed, 294 insertions, 0 deletions
diff --git a/gui/fpgui.pas b/gui/fpgui.pas new file mode 100644 index 00000000..592397fa --- /dev/null +++ b/gui/fpgui.pas @@ -0,0 +1,294 @@ +{ + fpGUI - Free Pascal Graphical User Interface + Copyright (C) 2000 - 2001 by + Areca Systems GmbH / Sebastian Guenther + Copyright (C) 2006 by Graeme Geldenhuys + member of the fpGUI development team. + + fpGUI master file + + See the file COPYING.fpGUI, included in this distribution, + for details about the copyright. + + 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. + + **********************************************************************} + +{ + Description: + It is fully object-oriented; its main goal is to provide its services + independent of any operating system or graphics environment. All painting + is done using fpGFX, while fpGUI provides a comfortable widget set and + other high-level classes. +} + + +unit fpGUI; + +{.$DEFINE LAYOUTTRACES} +{.$DEFINE TRACEEVENTS} + +{$IFDEF Debug} + {$ASSERTIONS On} +{$ENDIF} +{$mode objfpc}{$h+} + +interface + +uses +{$IFDEF mswindows} + Windows, GFX_GDI, // This must be removed!!! +{$ENDIF} + SysUtils + ,Classes +// ,DOM + ,GFXBase +// ,GFXInterface + ,fpgfx +// ,Types { used for OffsetRect() } +// ,Contnrs + ; + +type + TColor = type LongWord; + +const + + InfiniteSize = 16383; + +{$I colors.inc} + +resourcestring + mbText_Yes = 'Yes'; + mbText_No = 'No'; + mbText_Ok = 'Ok'; + mbText_Cancel = 'Cancel'; + mbText_Apply = 'Apply'; + mbText_Abort = 'Abort'; + mbText_Retry = 'Retry'; + mbText_Ignore = 'Ignore'; + mbText_All = 'All'; + mbText_NoToAll = 'No to all'; + mbText_YesToAll = 'Yes to all'; + mbText_Help = 'Help'; + + +type + TWidget = class; + TEventObj = class; + TCustomForm = class; + + + TWidgetState = set of ( + wsEnabled, + wsIsVisible, + wsSizeIsForced, + wsHasFocus, + wsMouseInside, + wsClicked + ); + + + TOrientation = (Horizontal, Vertical); + + + // The following flags are used for styles + + TButtonFlags = set of (btnIsEmbedded, btnIsDefault, btnIsPressed, + btnIsSelected, btnHasFocus); + + TCheckboxFlags = set of (cbIsPressed, cbHasFocus, cbIsEnabled, cbIsChecked); + + + // Other stuff + + TMsgDlgBtn = (mbYes, mbNo, mbOK, mbCancel, mbApply, mbAbort, mbRetry, + mbIgnore, mbAll, mbNoToAll, mbYesToAll, mbHelp); + TMsgDlgButtons = set of TMsgDlgBtn; + + + // Panel & Frame types + + TBevelStyle = (bsPlain, bsLowered, bsRaised); + + TBevelShape = (bsNoFrame, bsBox, bsFrame, bsBottomLine, bsLeftLine, + bsRightLine, bsTopLine); + + + +{ This lets us use a single include file for both the Interface and + Implementation sections. } +{$define read_interface} +{$undef read_implementation} + + +{$I style.inc} +{$I widget.inc} +{$I container.inc} +{$I bin.inc} +{$I layouts.inc} +{$I form.inc} +{$I popupwindow.inc} +{$I label.inc} +{$I edit.inc} +{$I buttons.inc} +{$I scrollbar.inc} +{$I scrollbox.inc} +{$I checkbox.inc} +{$I radiobutton.inc} +{$I separator.inc} +{$I groupbox.inc} +{$I listbox.inc} +{$I combobox.inc} +{$I grid.inc} +{$I dialogs.inc} +{.$I application.inc} +{$I panel.inc} +{$I menus.inc} +{$I progressbar.inc} + + +//var +// Application: TApplication; + + +function Min(a, b: Integer): Integer; inline; +function Max(a, b: Integer): Integer; inline; +function ClipMinMax(val, min, max: Integer): Integer; inline; + + +implementation +uses +// XMLRead {!!!:, XMLStreaming} + Math + ,StyleManager + ; + + +resourcestring + sListIndexError = 'List index exceeds bounds (%d)'; + + +{$IFDEF TraceEvents} +var + EventNestingLevel: Integer; +{$ENDIF} + + +function Min(a, b: Integer): Integer; +begin + if a < b then + Result := a + else + Result := b; +end; + + +function Max(a, b: Integer): Integer; +begin + if a > b then + Result := a + else + Result := b; +end; + + +function ClipMinMax(val, min, max: Integer): Integer; +begin + if val < min then + Result := min + else if val > max then + begin + Result := max; + if Result < min then + Result := min; + end else + Result := val; +end; + + +{$IFDEF LAYOUTTRACES} +procedure LAYOUTTRACE(const Position: String; const args: array of const); +{$IFDEF TraceEvents} +var + i: Integer; +{$ENDIF} +begin + {$IFDEF TraceEvents} + for i := 1 to EventNestingLevel do + Write(' '); + {$ENDIF} + WriteLn(Format(Position, args)); +end; +{$ELSE} +procedure LAYOUTTRACE(const Position: String; const args: array of const); +begin +end; +{$ENDIF} + + +{ This lets us use a single include file for both the Interface and + Implementation sections. } +{$undef read_interface} +{$define read_implementation} + + +{$I style.inc} +{$I widget.inc} +{$I container.inc} +{$I bin.inc} +{$I layouts.inc} +{$I form.inc} +{$I popupwindow.inc} +{$I label.inc} +{$I edit.inc} +{$I buttons.inc} +{$I scrollbar.inc} +{$I scrollbox.inc} +{$I checkbox.inc} +{$I radiobutton.inc} +{$I separator.inc} +{$I groupbox.inc} +{$I listbox.inc} +{$I combobox.inc} +{$I grid.inc} +{$I dialogs.inc} +{.$I application.inc} +{$I panel.inc} +{$I menus.inc} +{$I progressbar.inc} + + +const + Orientations: array[TOrientation] of TIdentMapEntry = ( + (Value: Ord(Horizontal); Name: 'Horizontal'), + (Value: Ord(Vertical); Name: 'Vertical') + ); + + +function IdentToOrientation(const Ident: String; var Orientation: LongInt): Boolean; +begin + Result := IdentToInt(Ident, Orientation, Orientations); +end; + + +function OrientationToIdent(Orientation: LongInt; var Ident: String): Boolean; +begin + Result := IntToIdent(Orientation, Ident, Orientations); +end; + + +initialization + RegisterIntegerConsts(TypeInfo(TOrientation), + @IdentToOrientation, @OrientationToIdent); + +// Application := TApplication.Create; + + +finalization +// Application.Free; + +end. + |