Go Back   FlashFXP Forums > >

Programming Need help with C/C++/Delphi? Ask here and make us all laugh.

Closed Thread
 
Thread Tools Rate Thread Display Modes
Old 02-23-2006, 05:24 PM   #1
x-dream
Junior Member
 
Join Date: Jan 2002
Posts: 16
Default Progressbar with text

How do i get text in my progressbar like in flashfxp maybe author could paste his code from ffxp for this. Including the nice textcolor change when it progresses.

Thanks
x-dream is offline  
Old 02-23-2006, 05:43 PM   #2
EwarWoo
Senior Member
FlashFXP Registered User
ioFTPD Registered User
 
Join Date: Oct 2002
Posts: 462
Default

Hehe.
And maybe he could make it open source too whilst hes at it. Not likely to happen bud
EwarWoo is offline  
Old 03-01-2010, 12:36 PM   #3
kalieb
Junior Member
FlashFXP Beta Tester
 
kalieb's Avatar
 
Join Date: Feb 2010
Location: Cali
Posts: 2
Default

the most easy way to make a progress bar with text inside is to use a picture box and place a transparent label inside.
kalieb is offline  
Old 03-01-2010, 01:01 PM   #4
bigstar
FlashFXP Developer
FlashFXP Administrator
ioFTPD Beta Tester
 
bigstar's Avatar
 
Join Date: Oct 2001
Posts: 8,012
Default

I use a custom component that I wrote to get the desired effect in FlashFXP.

I basically do all the drawing myself. If the OS is themesd and blending is enabled then I create a gray scale mask of the themed progressbar and blend my own colors into it.

I could post the component however its written in Borland Delphi 4 and its not commented, it would require some changes to work with newer versions of delphi, since Delphi 4 doesn't support themes I use a 3rd party component to get the desired effect.
bigstar is offline  
Old 03-01-2010, 01:11 PM   #5
kalieb
Junior Member
FlashFXP Beta Tester
 
kalieb's Avatar
 
Join Date: Feb 2010
Location: Cali
Posts: 2
Default Example VB

Public Sub PictureProgress(Shape As Control, done As Integer, total As Variant)
On Error Resume Next
Dim x As Integer
x = done / total * Shape.Width
Shape.Line (0, 0)-(Shape.Width, Shape.Height), RGB(176, 212, 255), BF
Shape.Line (0, 0)-(x - 10, Shape.Height), RGB(32, 84, 144), BF
Shape.CurrentX = (Shape.Width / 2) - 100
Shape.CurrentY = (Shape.Height / 2) - 125
Shape.ForeColor = RGB(150, 150, 150)
End Sub
kalieb is offline  
Closed Thread

Tags
ffxp, flashfxp, including, progressbar, text

Thread Tools
Display Modes Rate This Thread
Rate This Thread:

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump


All times are GMT -5. The time now is 08:21 PM.

Parts of this site powered by vBulletin Mods & Addons from DragonByte Technologies Ltd. (Details)