unit tiGUIConstants; {$mode objfpc}{$H+} interface uses fpg_base ; const clError = clYellow; implementation end.