procedure TApplication.Initialize;
var
Res: TFPResourceHandle;
begin
inherited Initialize;
// interface object and screen
if (WidgetSet=nil) or (WidgetSet.ClassType = TWidgetSet)
then begin
DebugLn('ERROR: ',rsNoWidgetSet);
raise Exception.Create(rsNoWidgetSet);
end;
WidgetSet.AppInit(ScreenInfo);
-- ЁБАНЫЕ КЛОУНЫ!...
Комментариев нет:
Отправить комментарий