Re: Vertical Text

Article View: borland.public.cppbuilder.nativeapi

Article #8741

Back to borland.public.cppbuilder.nativeapi Previous Next

#8741

From: PaoloItaly
Date: Wed, 22 Sep 2004 07:07

26 lines
1474 bytes

Thanks,

void changeEscapement(TCanvas *c, int escapement)
{
  LOGFONT lf;

  escapement *= 10;
  ::GetObject(c->Font->Handle, sizeof(lf), &lf);
  if (lf.lfEscapement != escapement)
  {
    lf.lfEscapement  = escapement;
    if (escapement)
      lf.lfOrientation = -90;
    else
      lf.lfOrientation = -0;
    lf.lfOutPrecision = OUT_TT_ONLY_PRECIS;
    c->Font->Handle = ::CreateFontIndirect(&lf);
  }
}

....
changeEscapement(c, 270);
::SetGraphicsMode(c->Handle, GM_ADVANCED);
c->TextOut(x+(((x1-x))/2), rect.top+20, lde->varTag1);
changeEscapement(c, 0);
::SetGraphicsMode(c->Handle, GM_COMPATIBLE);

Technical Details

Message-ID: <415124cf@newsgroups.borland.com>

Path:

arc1-ca.pugleaf.net!g2news1.google.com!news1.google.com!news.glorb.com!newsfeed00.sul.t-online.de!newsfeed01.sul.t-online.de!t-online.de!newsgroups.borland.com!not-for-mail

References: <41502ded$1@newsgroups.borland.com>

Show Full Headers

Complete Article Headers

X-Google-Thread: 10cc67,3dfd67295aae8ebb
X-Google-Attributes: gid10cc67,public
X-Google-Language: ENGLISH,ASCII-7-bit
From: "PaoloItaly" <paolot@FAKETHESPAMMERsirius-es.it>
Newsgroups: borland.public.cppbuilder.nativeapi
References: <41502ded$1@newsgroups.borland.com>
Subject: Re: Vertical Text
Date: Wed, 22 Sep 2004 09:07:40 +0200
Lines: 29
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1437
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1441
NNTP-Posting-Host: 82.105.234.125
Message-ID: <415124cf@newsgroups.borland.com>
X-Trace: newsgroups.borland.com 1095836879 82.105.234.125 (22 Sep 2004 00:07:59 -0700)
Path: arc1-ca.pugleaf.net!g2news1.google.com!news1.google.com!news.glorb.com!newsfeed00.sul.t-online.de!newsfeed01.sul.t-online.de!t-online.de!newsgroups.borland.com!not-for-mail

Reply to Parent Message