SHARE
TWEET

Untitled

a guest Jun 26th, 2019 52 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. for d := 1 to Textlength do
  2. begin
  3.   DrawTextW(
  4.     bmp.Canvas.Handle,
  5.     PWideChar(copy(TextW,d,1)),
  6.     1,
  7.     tmpArea,
  8.     DT_SINGLELINE or DT_NOCLIP);
  9.  
  10.   // widest is width of widest char, for spacing
  11.   //
  12.   // this is where I could check if next is a nonspacing/combining
  13.   // to avoid adding space.
  14.   if dtoPitch in Options.Option then
  15.     tmpArea.Left := tmpArea.Left + widest;
  16. end;
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top