diff options
Diffstat (limited to 'src/corelib')
| -rw-r--r-- | src/corelib/fpgfx.pas | 4 | ||||
| -rw-r--r-- | src/corelib/gfxbase.pas | 24 |
2 files changed, 21 insertions, 7 deletions
diff --git a/src/corelib/fpgfx.pas b/src/corelib/fpgfx.pas index ddbee4d5..e915db0a 100644 --- a/src/corelib/fpgfx.pas +++ b/src/corelib/fpgfx.pas @@ -36,12 +36,12 @@ type txtAutoSize); TMouseButton = (mbLeft, mbRight, mbMiddle); - + const AllAnchors = [anLeft, anRight, anTop, anBottom]; TextFlagsDflt = [txtLeft, txtTop, txtEnabled]; - + // Used for the internal message queue cMessageQueueSize = 1024; diff --git a/src/corelib/gfxbase.pas b/src/corelib/gfxbase.pas index 67548997..e1e5400a 100644 --- a/src/corelib/gfxbase.pas +++ b/src/corelib/gfxbase.pas @@ -27,11 +27,12 @@ uses gfx_impl; type - TfpgCoord = integer; // we might use floating point coordinates in the future... - TfpgColor = type longword; // Always in RRGGBB (Alpha, Red, Green, Blue) format!! - TfpgString = type string; - TfpgChar = type string[4]; - + TfpgCoord = integer; // we might use floating point coordinates in the future... + TfpgColor = type longword; // Always in RRGGBB (Alpha, Red, Green, Blue) format!! + TfpgString = type string; + TfpgChar = type string[4]; + TfpgModalResult = Low(integer)..High(integer); + TRGBTriple = record Red: word; Green: word; @@ -81,6 +82,19 @@ const // The special keys, based on the well-known keyboard scan codes {$I keys.inc} + { TfpgModalResult values } + mrNone = 0; + mrOk = mrNone + 1; + mrCancel = mrOk + 1; + mrYes = mrCancel + 1; + mrNo = mrYes + 1; + mrAbort = mrNo + 1; + mrRetry = mrAbort + 1; + mrIgnore = mrRetry + 1; + mrAll = mrIgnore + 1; + mrNoToAll = mrAll + 1; + mrYesToAll = mrNoToAll + 1; + var FPG_DEFAULT_FONT_DESC: string = 'Arial-10:antialias=true'; |