Commit 63f8a75

Adrian Siekierka committed on
trackergrid: fall back to Courier New if PixeliteTTF not found
commit 63f8a753cf20d086d885914b63e38bc52a88de1a parent 6619a10
1 changed files +11−1
Modifiedsrc/trackergrid.pas +11−1
@@ -192,6 +192,8 @@ var
192 192
193 implementation 193 implementation
194 194
195 uses Forms;
196
195 { TTableGrid } 197 { TTableGrid }
196 198
197 procedure TTableGrid.RenderCell(const Cell: TCell); 199 procedure TTableGrid.RenderCell(const Cell: TCell);
@@ -1338,7 +1340,15 @@ procedure TTrackerGrid.ChangeFontSize;
1338 begin 1340 begin
1339 // Kind of a hack 1341 // Kind of a hack
1340 with Canvas.Font do begin 1342 with Canvas.Font do begin
1341 Name := 'PixeliteTTF'; 1343 if Screen.Fonts.IndexOf('PixeliteTTF') >= 0 then begin
1344 Name := 'PixeliteTTF';
1345 Style := [];
1346 end
1347 else
1348 begin
1349 Name := 'Courier New';
1350 Style := [fsBold];
1351 end;
1342 Size := FontSize; 1352 Size := FontSize;
1343 ColumnWidth := GetTextWidth('C-5 01v64C01 '); 1353 ColumnWidth := GetTextWidth('C-5 01v64C01 ');
1344 RowHeight := GetTextHeight('C-5 01v64C01 '); 1354 RowHeight := GetTextHeight('C-5 01v64C01 ');