I used this screenshot as it showed everything there is to be shown.
The program I wrote... well it contained most of all code generated by Lazarus, I only added a command showing a message box, but the error shown already aborted the compilation before those lines of code are even accessed.
If that code in the screenshot sucks, well, then you are insulting Lazarus' own code and not mine.
Oh yeah, I'm a community moderator myself (on another site), so you don't have to tell me what forum manners are, and checking dubious links and helping people in trouble is my job too.
Well if you really want me to attach the shot then, I'd love to do that, but the file is too large (and making it smaller will make it unreadable), and I didn't use the IMG tags as I didn't want to spook the page (or the shot itself up in case of auto-resizing).
But if you really want code:
function FindCarbonFontID(const FontName: String): ATSUFontID;
var
fn : String;
begin
Result := 0;
//DebugLn('FindCarbonFontID ' + FontName);
if SameText(FontName, 'default')
then fn:=CarbonDefaultFont
else fn:=FontName;
if (fn <> '') then
begin
OSError(ATSUFindFontFromName(@fn[1], Length(fn),
lclFontName, lclFontPlatform, lclFontScript,
lclFontLanguage, Result),
'FindCarbonFontID', 'ATSUFindFontFromName');
end;
end;
Part of the Carbon.pp resulting in "carbonproc.pp(513,13) Error: Identifier not found "ATSUFindFontFromName"
he search function of this board.
Used it, but I got redirected to the SMF help board in stead of the actual search feature.
In fact I even googled this before I came here, but I didn't find any useful hits on the subject.