paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 17:29:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Fixed Font handling

Browse Source
This commit is contained in:
michael 2000-07-11 08:51:05 +00:00
parent a1c21be436
commit 260042d09f
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
install/demo/win32/edit.pp
View File

@ -221,7 +221,7 @@ begin
begin
DeleteObject(TheFont);
TheColor := ChooseFontRec.rgbColors;
TheFont := CreateFontIndirect(TheLogFont);
TheFont := CreateFontIndirect(@TheLogFont);
SendMessage(HEdit,WM_SETFONT,TheFont,1);
end;
end;
@ -363,7 +363,7 @@ Begin
Strcopy(lfFaceName,'Courier New'); // pointer to typeface name string
end;
TheColor := GetSysColor(COLOR_WINDOWTEXT);
TheFont := CreateFontIndirect(TheLogFont);
TheFont := CreateFontIndirect(@TheLogFont);
SendMessage(HEdit,WM_SETFONT,TheFont,1);
ShowWindow(Hedit,SW_Show);
UpdateWindow(HEdit);
@ -461,7 +461,10 @@ End.
{
$Log$
Revision 1.2 2000-02-27 21:07:58 florian
Revision 1.3 2000-07-11 08:51:05 michael
+ Fixed Font handling
Revision 1.2 2000/02/27 21:07:58 florian
* updated version from Goran and Morton
Revision 1.1 2000/02/20 20:33:37 florian