.net - Embedded Font Causes a Crash -

-

i have winform app. using custom font in embedded resources.
works @ first, causes program crash after while.
using following code example, if keep resizing form, forcing redraw itself, crash within few seconds. message 'error in 'form1_paint()'. object in use elsewhere.'.
doing wrong? how can avoid this?
got font here.
thanks.

imports system.drawing.text imports system.runtime.interopservices  public class form1     friend harabara font      private sub form1_load(byval sender system.object, byval e system.eventargs) handles mybase.load         loadfonts()     end sub      private sub form1_paint(byval sender object, byval e system.windows.forms.painteventargs) handles me.paint         try             e.graphics.drawstring("this drawn using custom font 'harabara'", harabara, brushes.lime, 10.0f, 10.0f)         catch ex exception             msgbox("error in form1_paint()'" & vbcrlf & ex.message)         end try     end sub      public sub loadfonts()         try             harabara = getfontinstance(my.resources.harabarahand, 24.0f, fontstyle.italic)         catch ex exception             msgbox("error in 'loadfonts()'" & vbcrlf & ex.message)         end try     end sub      private function getfontinstance(byval data() byte, byval size single, byval style fontstyle) font         dim result font         try             dim pfc = new privatefontcollection             'load memory pointer font resource             dim fontptr system.intptr = marshal.alloccotaskmem(data.length)             'copy data memory location             marshal.copy(data, 0, fontptr, data.length)             'load memory font private font collection             pfc.addmemoryfont(fontptr, data.length)             'free unsafe memory             marshal.freecotaskmem(fontptr)              result = new font(pfc.families(0), size, style)             pfc.families(0).dispose()             pfc.dispose()         catch ex exception             'error loading font. handle exception here             msgbox("error in 'getfontinstance()'" & vbcrlf & ex.message)             result = new font(fontfamily.genericmonospace, 8)         end try         return result     end function end class 

        marshal.freecotaskmem(fontptr)

the msdn documentation privatefontcollection obtuse this. need keep memory added font valid until can no longer use font. or put way, addmemoryfont() not make copy of font. program fall on mysterious gdi+ error when tries access font data , got overwritten unmanaged memory allocation.

move freecotaskmem() call formclosed event handler. or don't bother if closing form terminates program.


Comments

Post a Comment

Popular posts from this blog

Perl - how to grep a block of text from a file -

-
it can in xml or text format. how in general grep block of text in perl? <track type="ws"> <range> <rangestart>0</rangestart> <rangeend>146.912</rangeend> <locationindex>0</locationindex> <propertyindex>0</propertyindex> </range> </track> <track type="ps" id="1"> <range> <rangestart>0</rangestart> <rangeend>146.912</rangeend> <locationindex>1</locationindex> <propertyindex>1</propertyindex> </range> </track> i want grep type="ps" , till </range> . one solution open file, read line line , match block. open(fh, "file.txt"); foreach $line (<fh>) { if ($line =~ m/type="cc"(.*?)<\/range>/) { print $1; } } but there more optimal solution without reading file line l
Read more

delphi - How to remove all the grips on a coolbar if I have several coolbands? -

-
Image
if set mycoolbar.fixedorder true,only grip on first band hidden. well,if use delphi 7 create vcl forms application,then put coolbar on , create 3 coolbans hold other controls,only grip , top coolbands can hidden setting mycoolbar.fixedorder:=true. i've uploaded picture make things clear. you got fixedorder property wrong. fixed property not allow bands rearranged if set true . setting property of coolbar true keep user changing bands order @ runtime, user can still move , resize bands. can give advice can do, actual solution problem, well, have wait answer. my advice use 3 coolbars in row , setting "fixedorder" property true , bandborderstyle bsnone . way grip hidden on of them. about property, it's not bug of ide, actual preference of property.
Read more

javascript - Animating array of divs; only the final element is modified -

-
this baffling me @ moment. i'm experienced programmer looking throw bit of surprise fiancee on countdown page our wedding. desired effect simulated confetti falling behind main page. setup follows: i have array of divs in javascript. each div absolutely positioned on page. have interval set updates every 50 or milliseconds. on each tick, run loop on array of divs, , calculations , update positions. problem problem having, however, though can see divs created, stored array, , modified (in case, each has slight randomized rotation) during initialization phase, once tick update position starts, div stored in whatever last slot of array gets position updated. tried hard-coding each div index testing purposes, strictly last element update position. upon printing current "left" , "top" style values each div before , after calculations shows value has been changed, no visible change noticeable. here's basic code: javascript var container;
Read more