Source position: gmessages.inc line 12
type TGLogFunc = procedure(
log_domain: Pgchar;
log_level: TGLogLevelFlags;
TheMessage: Pgchar;
user_data: gpointer
);