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
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.

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

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
Junior Member
FlashFXP Beta Tester
kalieb's Avatar
Join Date: Feb 2010
Location: Cali
Posts: 2

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
FlashFXP Developer
FlashFXP Administrator
ioFTPD Beta Tester
bigstar's Avatar
Join Date: Oct 2001
Posts: 8,012

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
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

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 03:20 AM.

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