index 8df881acebef45500174bfb4790c7daddc8e0873..64d4f533ab39c7fd89e4704d808258864489a51e 100644 (file)
result := self.info.ch[c].w;
if result = 0 then
result := self.info.w;
+ if self.info.kern < 0 then
+ result := result + self.info.kern;
end;
function TGLFont.GetMaxWidth (): Integer;