FiveTech Software tech support forums

https://x.com/jiayi_pirate/status/1882839370505621655

https://huggingface.co/datasets/Jiayi-P ... Tasks-3to4

https://t.co/UcGKN2SVGj

... define PBM_SETBARCOLOR (WM_USER+9) // lParam = bar color
#endif // _WIN32_IE >= 0x0400
#define PBM_SETBKCOLOR CCM_SETBKCOLOR // lParam = bkColor
#endif // _WIN32_IE >= 0x0300

#if (_WIN32_WINNT >= 0x0501)
#define PBS_MARQUEE 0x08
#define PBM_SETMARQUEE (WM_USER+10)
#endif // _WIN32_WINNT >= 0x0501

Anderson,

Please make this change:

SetWindowLong(oMeter:hWnd, GWL_STYLE, nOr( GetWindowLong(oMeter:hWnd, GWL_STYLE), PBS_MARQUEE ) )

... 41;;  private    { Private declarations }  public    { Public declarations }  end;const  PBS_MARQUEE = 8;  PBM_SETMARQUEE = WM_USER + 10;var  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender ...

... 41;; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end;const PBS_MARQUEE = 8; PBM_SETMARQUEE = WM_USER + 10;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject&#41 ...

Marquee Style

By creating the progress bar control with the PBS_MARQUEE style, you can animate it in a way that shows activity but does not indicate what proportion of the task is complete. The highlighted part of the progress bar moves repeatedly along the length of the bar. You can start and stop ...

Marquee Style

By creating the progress bar control with the PBS_MARQUEE style, you can animate it in a way that shows activity but does not indicate what proportion of the task is complete. The highlighted part of the progress bar moves repeatedly along the length of the bar. You can start and stop ...

... de barra de progreso (Win32 Progress Bar). Puedes usar la clausula VERTICAL si lo creas desde código fuente (el control), ó el estilo #define PBS_VERTICAL 4 si lo creas desde recursos. Por favor revise samples\Progres1.prg para un ejemplo funcionando.

* Mejora: Mejoras en el comportamiento ...

... Enhancement: New VERTICAL clause for Win32 Progress Bars. You may use the VERTICAL clause if you create them from source code, or the style #define PBS_VERTICAL 4 if you create them from resources. Please review samples\Progres1.prg for a working sample.

* Enhancement: Class TDialog, DATA ...

Solo había que darle doble click al control en el Workshop y agregar en
style | PBS_VERTICAL

... nuevo fivewin.ch

2) Recompilar el tprogres.prg y agregar el obj resultante a mi compilación

3) Editar mi archivo RC y al principio agregar #define PBS_VERTICAL 4

Entonces en el PRG para usarlo hago

REDEFINE PROGRESS oProgress ID 331 OF oDlg VERTICAL

Al compilar me aparece un
warning W0001 ...

... lo enviamos por email para que lo pruebes. A que email te lo enviamos ?

Aqui puedes ver como queda:
http://img309.imageshack.us/img309/8584/progress2oi.png

Desde código fuente se usa la nueva cláusula VERTICAL, y desde recurso hay que especificar el estilo #define PBS_VERTICAL 4

... Te lo enviamos por email para que lo pruebes. A que email te lo enviamos ?

Aqui puedes ver como queda:
http://img309.imageshack.us/img309/8584/progress2oi.png

Desde código fuente se usa la nueva cláusula VERTICAL, y desde recurso hay que especificar el estilo #define PBS_VERTICAL 4