BorlandTalk.com Borland discussion newsgroups   Archives   FAQ   Search   Memberlist   Usergroups   Register   Profile   Log in to check your private messages   Log in  Help with Paint procedure!          BorlandTalk.com Forum Index -> Delphi Graphics View previous topic :: View next topic   Author Message Guthrie Ward Guest Posted: Sat Nov 18, 2006 7:21 pm    Post subject: Help with Paint procedure! I'm looking for help with the Paint procedure of my TGraphicControl descendant, TNimbusButton. A transparent button-like control who's bitmap changes to what state the mouse is in (Normal, Over, Pressed). What I'm getting at the moment is what looks like the bitmaps are painted over each other. How do I buffer the control so that it will return to the Normal bitmap (FBitmap), no matter what the other bitmaps look like? Here's my current code, and thanks in advance. Gus procedure TNimbusButton.Paint; var CurrentBmp: TBitmap; begin if csDesigning in ComponentState then with Canvas do begin Pen.Style := psDash; Brush.Style := bsClear; Rectangle(0, 0, Width, Height); end; CurrentBmp := FBitmap; if FMouseDown then begin if not FBitmapPressed.Empty then CurrentBmp := FBitmapPressed; end else if FMouseOver then begin if not FBitmapOver.Empty then CurrentBmp := FBitmapOver; end; CurrentBmp.TransparentColor := FTransparentColor; CurrentBmp.Transparent := True; Canvas.Draw(0, 0, CurrentBmp); end; Back to top Peter Below (TeamB) Guest Posted: Sun Nov 19, 2006 2:25 pm    Post subject: Re: Help with Paint procedure! Guthrie Ward wrote: Quote: I'm looking for help with the Paint procedure of my TGraphicControl descendant, TNimbusButton. A transparent button-like control who's bitmap changes to what state the mouse is in (Normal, Over, Pressed). What I'm getting at the moment is what looks like the bitmaps are painted over each other. How do I buffer the control so that it will return to the Normal bitmap (FBitmap), no matter what the other bitmaps look like? Here's my current code, and thanks in advance. Gus procedure TNimbusButton.Paint; var CurrentBmp: TBitmap; begin if csDesigning in ComponentState then with Canvas do begin Pen.Style := psDash; Brush.Style := bsClear; Rectangle(0, 0, Width, Height); end; CurrentBmp := FBitmap; You need to start by filling the buttons background with the buttons Color, that will erase whatever bitmap you have displayed last. -- Peter Below (TeamB) Don't be a vampire (http://slash7.com/pages/vampires), use the newsgroup archives : http://www.tamaracka.com/search.htm http://groups.google.com http://www.prolix.be Back to top Guthrie Ward Guest Posted: Mon Nov 20, 2006 4:33 pm    Post subject: Re: Help with Paint procedure! The button is transparent, that "takes the shape of the main bitmap" and the other bmps are just eye candy. The problem I have is that the OnMouseOver bmp is a different shape to the normal bmp, as it's used to add information to the button. So I need to get rid (repaint) it without loosing the transparency. "Peter Below (TeamB)" <none> wrote in message news:xn0etwg7nohts001 (AT) newsgroups (DOT) borland.com... Quote: Guthrie Ward wrote: I'm looking for help with the Paint procedure of my TGraphicControl descendant, TNimbusButton. A transparent button-like control who's bitmap changes to what state the mouse is in (Normal, Over, Pressed). What I'm getting at the moment is what looks like the bitmaps are painted over each other. How do I buffer the control so that it will return to the Normal bitmap (FBitmap), no matter what the other bitmaps look like? Here's my current code, and thanks in advance. Gus procedure TNimbusButton.Paint; var CurrentBmp: TBitmap; begin if csDesigning in ComponentState then with Canvas do begin Pen.Style := psDash; Brush.Style := bsClear; Rectangle(0, 0, Width, Height); end; CurrentBmp := FBitmap; You need to start by filling the buttons background with the buttons Color, that will erase whatever bitmap you have displayed last. -- Peter Below (TeamB) Don't be a vampire (http://slash7.com/pages/vampires), use the newsgroup archives : http://www.tamaracka.com/search.htm http://groups.google.com http://www.prolix.be Back to top Peter Below (TeamB) Guest Posted: Mon Nov 20, 2006 11:42 pm    Post subject: Re: Help with Paint procedure! Guthrie Ward wrote: Quote: The button is transparent, that "takes the shape of the main bitmap" and the other bmps are just eye candy. The problem I have is that the OnMouseOver bmp is a different shape to the normal bmp, as it's used to add information to the button. So I need to get rid (repaint) it without loosing the transparency. Invalidate the button when the mouse goes down or up. If you set the ControlStyle of the button to exclude the csOpaque flag (that should be done in the constructor) the controls parent will paint the area underneath before the buttons Paint method is called. Do not try to directly call Paint from the mouse event handlers or corresponding mouse methods. -- Peter Below (TeamB) Don't be a vampire (http://slash7.com/pages/vampires), use the newsgroup archives : http://www.tamaracka.com/search.htm http://groups.google.com http://www.prolix.be Back to top Guthrie Ward Guest Posted: Sat Nov 25, 2006 9:11 am    Post subject: Re: Help with Paint procedure! Sorted thank. I didin't inlclude the ControlStyle in the create procedure. :D "Peter Below (TeamB)" <none> wrote in message news:xn0ety8osg4yl000 (AT) newsgroups (DOT) borland.com... Quote: Guthrie Ward wrote: The button is transparent, that "takes the shape of the main bitmap" and the other bmps are just eye candy. The problem I have is that the OnMouseOver bmp is a different shape to the normal bmp, as it's used to add information to the button. So I need to get rid (repaint) it without loosing the transparency. Invalidate the button when the mouse goes down or up. If you set the ControlStyle of the button to exclude the csOpaque flag (that should be done in the constructor) the controls parent will paint the area underneath before the buttons Paint method is called. Do not try to directly call Paint from the mouse event handlers or corresponding mouse methods. -- Peter Below (TeamB) Don't be a vampire (http://slash7.com/pages/vampires), use the newsgroup archives : 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.