ATGauge
About
ATGauge is OS-independant progress indicator component. It's like Delphi TGauge. The same properties (with some additions) but totally new code (it's smaller than Delphi 7 code). It has class name and properties compatible with the Delphi 7 version, but different unit name.
"Kind" property supports same kinds as D7:
- only text
- horiz bar
- vert bar
- needle (half-circle)
- pie (full circle)
Author: Alexey Torgashin (Russia)
License: MPL 2.0 or LGPL.
Download
Homepage at github: https://github.com/Alexey-T/ATFlatControls
Property ShowTextInverted
This property is to look like Delphi's component.
- Off: text (e.g. "20%") is painted with color Font.Color at all places. This is fast.
- On: text is painted with inverted color regarding image under it. Font.Color is ignored. Temp bitmap is created (with a size of text), then this bitmap is copied over image-bitmap with Canvas.CopyMode=cmSrcInvert. This is slower and don't work on GTK2 (I see pixelated text over green bar). This is OK on Windows and QT.
From the Free Pascal wiki, page "ATGauge", as it stood on 2021-12-16 after a change by Alextp, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's Licensing page. If you have concerns about this material, message the admin.