paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-20 17:49:25 +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 begin
DeleteObject(TheFont); DeleteObject(TheFont);
TheColor := ChooseFontRec.rgbColors; TheColor := ChooseFontRec.rgbColors;
TheFont := CreateFontIndirect(TheLogFont); TheFont := CreateFontIndirect(@TheLogFont);
SendMessage(HEdit,WM_SETFONT,TheFont,1); SendMessage(HEdit,WM_SETFONT,TheFont,1);
end; end;
end; end;
@ -363,7 +363,7 @@ Begin
Strcopy(lfFaceName,'Courier New'); // pointer to typeface name string Strcopy(lfFaceName,'Courier New'); // pointer to typeface name string
end; end;
TheColor := GetSysColor(COLOR_WINDOWTEXT); TheColor := GetSysColor(COLOR_WINDOWTEXT);
TheFont := CreateFontIndirect(TheLogFont); TheFont := CreateFontIndirect(@TheLogFont);
SendMessage(HEdit,WM_SETFONT,TheFont,1); SendMessage(HEdit,WM_SETFONT,TheFont,1);
ShowWindow(Hedit,SW_Show); ShowWindow(Hedit,SW_Show);
UpdateWindow(HEdit); UpdateWindow(HEdit);
@ -461,7 +461,10 @@ End.
{ {
$Log$ $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 * updated version from Goran and Morton
Revision 1.1 2000/02/20 20:33:37 florian Revision 1.1 2000/02/20 20:33:37 florian