BorlandTalk.com Borland discussion newsgroups   Archives   FAQ   Search   Memberlist   Usergroups   Register   Profile   Log in to check your private messages   Log in  vertical text          BorlandTalk.com Forum Index -> Delphi Graphics View previous topic :: View next topic   Author Message Lutz Kutscher Guest Posted: Tue Sep 14, 2004 4:55 pm    Post subject: vertical text Hi, maybe I'm just missing something obvious, but I just can't seem to find a (simple) way to draw rotated (vertical) text onto a canvas. Thanks Lutz Back to top Michael Koop Guest Posted: Tue Sep 14, 2004 6:21 pm    Post subject: Re: vertical text Try this one http://www.delphipages.com/threads/thread.cfm?ID=38386&G=38380 Best regards Michael Lutz Kutscher schrieb: Quote: Hi, maybe I'm just missing something obvious, but I just can't seem to find a (simple) way to draw rotated (vertical) text onto a canvas. Thanks Lutz Back to top Peter Below (TeamB) Guest Posted: Wed Sep 15, 2004 6:17 pm    Post subject: Re: vertical text In article <opsebs92pgabzsfn (AT) lutzkutscher (DOT) preussgmbh.local>, Lutz Kutscher wrote: Quote: maybe I'm just missing something obvious, but I just can't seem to find a (simple) way to draw rotated (vertical) text onto a canvas. You have to mix in a little API stuff: procedure TForm1.Button3Click(Sender: TObject); var lf: TLogfont; begin with printer do begin begindoc; canvas.font.Name := 'Arial'; canvas.font.Size := 24; canvas.textout( 100, 100, 'Das ist normaler Text' ); GetObject( canvas.font.handle, Sizeof(lf), @lf); lf.lfescapement := 450; lf.lforientation := 450; Canvas.Font.handle := CreateFontIndirect( lf ); canvas.TextOut( 100, 1500, 'Das ist gedrehter Text'); Canvas.Font.Handle := 0; EndDoc; end; end; -- Peter Below (TeamB) Use the newsgroup archives : http://www.mers.com/searchsite.html http://www.tamaracka.com/search.htm http://groups.google.com http://www.prolix.be Back to top Lutz Kutscher Guest Posted: Thu Sep 16, 2004 1:36 pm    Post subject: Re: vertical text Thanks to you both, it took me a while though, to get it working in my component: The moment I removed that one line "canvas.font.name='arial'" the text suddenly came out horizontally. After trashing a few monitors I found out, that the problem wasn't removing that line, but that the default font of the canvas I tried to draw on used font "MS Sans Serif" as a default. I changed this font to arial (or any other ttf font) and it works fine. Did I miss anything else, or is it true, that the system fonts can't be drawn vertical? (no need to answer, this was just meant as a comment, the question purely retorical) Lutz On Wed, 15 Sep 2004 20:17:59 +0200, Peter Below (TeamB) <100113.1101 (AT) compuXXserve (DOT) com> wrote: Quote: In article <opsebs92pgabzsfn (AT) lutzkutscher (DOT) preussgmbh.local>, Lutz Kutscher wrote: maybe I'm just missing something obvious, but I just can't seem to find a (simple) way to draw rotated (vertical) text onto a canvas. You have to mix in a little API stuff: procedure TForm1.Button3Click(Sender: TObject); var lf: TLogfont; begin with printer do begin begindoc; canvas.font.Name := 'Arial'; canvas.font.Size := 24; canvas.textout( 100, 100, 'Das ist normaler Text' ); GetObject( canvas.font.handle, Sizeof(lf), @lf); lf.lfescapement := 450; lf.lforientation := 450; Canvas.Font.handle := CreateFontIndirect( lf ); canvas.TextOut( 100, 1500, 'Das ist gedrehter Text'); Canvas.Font.Handle := 0; EndDoc; end; end; -- Peter Below (TeamB) Use the newsgroup archives : http://www.mers.com/searchsite.html http://www.tamaracka.com/search.htm http://groups.google.com http://www.prolix.be Back to top Peter Below (TeamB) Guest Posted: Thu Sep 16, 2004 5:13 pm    Post subject: Re: vertical text In article <opsee9fclzabzsfn (AT) lutzkutscher (DOT) preussgmbh.local>, Lutz Kutscher wrote: Quote: it took me a while though, to get it working in my component: The moment I removed that one line "canvas.font.name='arial'" the text suddenly came out horizontally. After trashing a few monitors I found out, that the problem wasn't removing that line, but that the default font of the canvas I tried to draw on used font "MS Sans Serif" as a default. I changed this font to arial (or any other ttf font) and it works fine. Did I miss anything else, or is it true, that the system fonts can't be drawn vertical? Yes, you can only rotate TT fonts (basically outline or vector fonts), the GDI cannot rotate bitmap fonts. -- Peter Below (TeamB) Use the newsgroup archives : http://www.mers.com/searchsite.html http://www.tamaracka.com/search.htm http://groups.google.com http://www.prolix.be Back to top Display posts from previous: All Posts1 Day7 Days2 Weeks1 Month3 Months6 Months1 Year Oldest FirstNewest First         BorlandTalk.com Forum Index -> Delphi Graphics All times are GMT Page 1 of 1   Jump to: Select a forum C++ Builder Newsgroups----------------C++ BuilderC++ Builder (ActiveX)C++ Builder (Announcements)C++ Builder (Command Line Tools)C++ Builder DatabasesC++ Builder Databases (ADO)C++ Builder Databases (Desktop)C++ Builder Databases (InterBase Express)C++ Builder Databases (Multi-Tier)C++ Builder Databases (SQL Servers)C++ Builder (Graphics)C++ Builder (IDE)C++ Builder (Internet)C++ Builder (Internet Socket)C++ Builder (Internet Web)C++ Builder (Jobs)C++ Builder (Language)C++ Builder (Language C++)C++ Builder (Compatibility with MFC)C++ Builder (Native API)C++ Builder (Non-Technical)C++ Builder (Students)C++ Builder (Third Party Tools)C++ Builder (Upgrade)C++ Builder (VCL)C++ Builder (VCL Components Usage)C++ Builder (VCL Components Development)C++ Builder (VCL Usage)C++ Builder (WinAPI)C++ Builder Installation Delphi Newsgroups----------------Delphi (General)Delphi ActiveX Controls UsageDelphi ActiveX Controls DevelopmentDelphi As400Delphi DatabasesDelphi Databases (ADO)Delphi Databases (dbExpress)Delphi Databases (Desktop)Delphi Databases (InterBase Express)Delphi Databases (Multi-Tier)Delphi Databases (SQL Servers)Delphi DeploymentDelphi GraphicsDelphi IDEDelphi InternationalizationDelphi InternetDelphi Internet Isapi-WebBrokerDelphi Internet WebSnapDelphi Internet WinsockDelphi JobsDelphi Language BASMDelphi Language ObjectPascalDelphi Model Driven Architecture (General)Delphi Model Driven Architecture (Third Party)Delphi MultimediaDelphi Native APIDelphi Non-TechnicalDelphi ObjectPascalDelphi OLE AutomationDelphi OO designDelphi OpenToolsAPIDelphi Reporting-ChartingDelphi RTLDelphi StudentsDelphi TeamSourceDelphi Thirdparty ToolsDelphi Thirdparty Tools (General)Delphi Thirdparty Tools (IntraWeb)Delphi Thirdparty Tools (RaveReports)Delphi UpgradeDelphi VCLDelphi VCL ComponentsDelphi VCL Components UsingDelphi VCL Components WritingDelphi WebServices SOAPDelphi WinAPIDelphi XMLDelphi Installationcomp.lang.pascal.delphi.components.misccomp.lang.pascal.delphi.components.usagecomp.lang.pascal.delphi.components.writingcomp.lang.pascal.delphi.databasescomp.lang.pascal.delphi.misccomp.sources.delphi JBuilder Newsgroups----------------JBuilderJBuilder AnnouncementsJBuilder Applet IssuesJBuilder As400JBuilder CompilerJBuilder CORBA/RMIJBuilder DatabasesJBuilder DB SwingJBuilder DebuggerJBuilder DeploymentJBuilder DocumentationJBuilder EnterpriseJBuilder HandheldJBuilder IDEJBuilder JavaJBuilder JavaAPIJBuilder Java LanguageJBuilder Java SwingJBuilder Java BeansJBuilder Java Beans UsageJBuilder Java Beans DevelopmentJBuilder JBCLJBuilder JDataStoreJBuilder JobsJBuilder LinuxJBuilder MacintoshJBuilder & MobileSetJBuilder MultiLingual AppsJBuilder Non-TechnicalJBuilder OpenToolsJBuilder Servlets (JSP)JBuilder StudentsJBuilder Team DevelopmentJBuilder Thirdparty ToolsJBuilder UpgradeJBuilder Installation InterBase Newsgroups----------------InterBaseInterBase Bug DiscussionInterBase GeneralInterBase IBConsoleInterBase OpenSourceInterBase ReplicationInterBase SQLInterBase ThirdpartyInterBase Installation Miscellaneous Borland Newsgroups----------------AppCenterAppServerEnteraVisiBroker  You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum Powered by phpBB © 2001, 2006 phpBB Group SEO toolkit © 2004-2006 webmedic.