TPanopticForm -
TFlagInfo
AussieFlagInfo
TRainbowColors
TTextColor
USStateFlagInfo
PanopticForm
TFlagInfo = record
GlyphHandle : PChar;
Title : String;
BkgrndColor : TColor;
end;
AussieFlagInfo = (
(GlyphHandle: 'ASACT'; Title: 'Australian Capital Territory'; BkgrndColor: clAqua),
(GlyphHandle: 'ASNSW'; Title: 'New South Wales'; BkgrndColor: clAqua),
(GlyphHandle: 'ASNT'; Title: 'Northern Territory'; BkgrndColor: clYellow),
(GlyphHandle: 'ASQLD'; Title: 'Queensland'; BkgrndColor: clAqua),
(GlyphHandle: 'ASSA'; Title: 'South Australia'; BkgrndColor: clYellow),
(GlyphHandle: 'ASTAS'; Title: 'Tasmania'; BkgrndColor: clAqua),
(GlyphHandle: 'ASVIC'; Title: 'Victoria'; BkgrndColor: clAqua),
(GlyphHandle: 'ASWA'; Title: 'Western Australia'; BkgrndColor: clWhite) )
TRainbowColors = (clRed, $000080FF, clYellow, clLime, clBlue,
clPurple, clFuchsia)
TTextColor = (clBlack, clRed, clYellow, clLime, clGreen, clAqua,
clNavy, clBlue, clSilver, clFuchsia)
USStateFlagInfo = (
(GlyphHandle: 'USALABAMA'; Title: 'Alabama'; BkgrndColor: clAqua),
(GlyphHandle: 'USALASKA'; Title: 'Alaska'; BkgrndColor: clRed),
(GlyphHandle: 'USARIZONA'; Title: 'Arizona'; BkgrndColor: clWhite),
(GlyphHandle: 'USARKANSAS'; Title: 'Arkansas'; BkgrndColor: clYellow),
(GlyphHandle: 'USCALIFORNIA'; Title: 'California'; BkgrndColor: clLime),
(GlyphHandle: 'USCOLORADO'; Title: 'Colorado'; BkgrndColor: clWhite),
(GlyphHandle: 'USCONNECTICUT'; Title: 'Connecticut'; BkgrndColor: clAqua),
(GlyphHandle: 'USDELAWARE'; Title: 'Delaware'; BkgrndColor: clAqua),
(GlyphHandle: 'USDISTRICTOFCOLUMBIA'; Title: 'District of Columbia'; BkgrndColor: clAqua),
(GlyphHandle: 'USFLORIDA'; Title: 'Florida'; BkgrndColor: clAqua),
(GlyphHandle: 'USGEORGIA'; Title: 'Georgia'; BkgrndColor: clAqua),
(GlyphHandle: 'USHAWAII'; Title: 'Hawaii'; BkgrndColor: clRed),
(GlyphHandle: 'USIDAHO'; Title: 'Idaho'; BkgrndColor: clWhite),
(GlyphHandle: 'USILLINOIS'; Title: 'Illinois'; BkgrndColor: clYellow),
(GlyphHandle: 'USINDIANNA'; Title: 'Indianna'; BkgrndColor: clAqua),
(GlyphHandle: 'USIOWA'; Title: 'Iowa'; BkgrndColor: clYellow),
(GlyphHandle: 'USKANSAS'; Title: 'Kansas'; BkgrndColor: clYellow),
(GlyphHandle: 'USKENTUCKY'; Title: 'Kentucky'; BkgrndColor: clAqua),
(GlyphHandle: 'USLOISIANA'; Title: 'Louisiana'; BkgrndColor: clAqua),
(GlyphHandle: 'USMAINE'; Title: 'Maine'; BkgrndColor: clAqua),
(GlyphHandle: 'USMARYLAND'; Title: 'Maryland'; BkgrndColor: clAqua),
(GlyphHandle: 'USMASSACHUSETTS'; Title: 'Massachusetts'; BkgrndColor: clAqua),
(GlyphHandle: 'USMICHIGAN'; Title: 'Michigan'; BkgrndColor: clAqua),
(GlyphHandle: 'USMINNESOTA'; Title: 'Minnesota'; BkgrndColor: clAqua),
(GlyphHandle: 'USMISSISSIPPI'; Title: 'Mississippi'; BkgrndColor: clAqua),
(GlyphHandle: 'USMISSOURI'; Title: 'Missouri'; BkgrndColor: clYellow),
(GlyphHandle: 'USMONTANA'; Title: 'Montana'; BkgrndColor: clWhite),
(GlyphHandle: 'USNEBRASKA'; Title: 'Nebraska'; BkgrndColor: clAqua),
(GlyphHandle: 'USNEVADA'; Title: 'Nevada'; BkgrndColor: clWhite),
(GlyphHandle: 'USNEWHAMPSHIRE'; Title: 'New Hampshire'; BkgrndColor: clAqua),
(GlyphHandle: 'USNEWJERSEY'; Title: 'New Jersey'; BkgrndColor: clAqua),
(GlyphHandle: 'USNEWMEXICO'; Title: 'New Mexico'; BkgrndColor: clWhite),
(GlyphHandle: 'USNEWYORK'; Title: 'New York'; BkgrndColor: clAqua),
(GlyphHandle: 'USNORTHCAROLINA'; Title: 'North Carolina'; BkgrndColor: clAqua),
(GlyphHandle: 'USNORTHDAKOTA'; Title: 'North Dakota'; BkgrndColor: clYellow),
(GlyphHandle: 'USOHIO'; Title: 'Ohio'; BkgrndColor: clAqua),
(GlyphHandle: 'USOKLAHOMA'; Title: 'Oklahoma'; BkgrndColor: clYellow),
(GlyphHandle: 'USOREGON'; Title: 'Oregon'; BkgrndColor: clLime),
(GlyphHandle: 'USPENNSYLVANIA'; Title: 'Pennsylvania'; BkgrndColor: clAqua),
(GlyphHandle: 'USRHODEISLAND'; Title: 'Rhode Island'; BkgrndColor: clAqua),
(GlyphHandle: 'USSOUTHCAROLINA'; Title: 'South Carolina'; BkgrndColor: clAqua),
(GlyphHandle: 'USSOUTHDAKOTA'; Title: 'South Dakota'; BkgrndColor: clYellow),
(GlyphHandle: 'USTENNESSEE'; Title: 'Tennessee'; BkgrndColor: clAqua),
(GlyphHandle: 'USTEXAS'; Title: 'Texas'; BkgrndColor: clAqua),
(GlyphHandle: 'USUTAH'; Title: 'Utah'; BkgrndColor: clWhite),
(GlyphHandle: 'USVERMONT'; Title: 'Vermont'; BkgrndColor: clAqua),
(GlyphHandle: 'USVIRGINIA'; Title: 'Virginia'; BkgrndColor: clAqua),
(GlyphHandle: 'USWASHINGTON'; Title: 'Washington'; BkgrndColor: clLime),
(GlyphHandle: 'USWESTVIRGINIA'; Title: 'West Virginia'; BkgrndColor: clAqua),
(GlyphHandle: 'USWISCONSIN'; Title: 'Wisconsin'; BkgrndColor: clYellow),
(GlyphHandle: 'USWYOMING'; Title: 'Wyoming'; BkgrndColor: clWhite) )
PanopticForm : TPanopticForm