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

* make sure example also works without an application bundle

Browse Source 
git-svn-id: trunk@13193 -
This commit is contained in:
Jonas Maebe 2009-05-24 12:26:38 +00:00
parent 7f0631d311
commit 1456e82a6a
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/univint/examples/controldemo.pas
View File

@ -111,7 +111,12 @@ var
cmdEvent: EventTypeSpec; cmdEvent: EventTypeSpec;
eventHandler: EventHandlerUPP; eventHandler: EventHandlerUPP;
fontStyle: ControlFontStyleRec; fontStyle: ControlFontStyleRec;
psn: ProcessSerialNumber;
begin begin
psn.highLongOfPSN:=0;
psn.lowLongOfPSN:=kCurrentProcess;
TransformProcessType( psn, kProcessTransformToForegroundApplication );
setFrontProcess( psn );
status := CreateNewWindow(kDocumentWindowClass, status := CreateNewWindow(kDocumentWindowClass,
(kWindowStandardDocumentAttributes or kWindowStandardHandlerAttribute (kWindowStandardDocumentAttributes or kWindowStandardHandlerAttribute
or kWindowCompositingAttribute), or kWindowCompositingAttribute),