Declaration ​
pascal
procedure VertLine(X, Y1, Y2: Integer; Value: TColor32);
procedure VertLineS(X, Y1, Y2: Integer; Value: TColor32);
procedure VertLineT(X, Y1, Y2: Integer; Value: TColor32);
procedure VertLineTS(X, Y1, Y2: Integer; Value: TColor32);
procedure VertLineTSP(X, Y1, Y2: Integer);
procedure VertLineX(X, Y1, Y2: TFixed; Value: TColor32);
procedure VertLineXS(X, Y1, Y2: TFixed; Value: TColor32);Parameters ​
| Parameter | Type | Description |
|---|---|---|
X, Y1, Y2 | Integer | X column, start Y, and end Y coordinates. |
Value | TColor32 | 32-bit ARGB color. |
Description ​
The VertLine methods draw fast 1-pixel wide vertical lines between vertical coordinates Y1 and Y2 at column X.
Method variants support integer (Integer) or 16.16 fixed-point (TFixed) coordinates, boundary clipping (S), alpha blending (T), and pattern stippling (P).
Variants ​
| Variant | Coordinate Type | Modifiers | Description |
|---|---|---|---|
VertLine | Integer | Direct | Fast direct vertical line fill without boundary clipping or alpha blending. |
VertLineS | Integer | Safe | Vertical line fill clipped against ClipRect. |
VertLineT | Integer | Transparent | Unclipped vertical line fill with alpha blending using DrawMode / CombineMode. |
VertLineTS | Integer | Transparent + Safe | Clipped vertical line fill with alpha blending using DrawMode / CombineMode. |
VertLineTSP | Integer | Transparent + Safe + Stipple | Clipped alpha-blended vertical line using active stipple pattern. |
VertLineX | TFixed | Fixed Sub-pixel | Unclipped 16.16 fixed-point vertical line with anti-aliasing. |
VertLineXS | TFixed | Fixed Sub-pixel + Safe | Clipped 16.16 fixed-point vertical line with anti-aliasing. |
Example ​
pascal
// Fast direct vertical line
Bitmap.VertLine(50, 10, 200, clRed32);
// Clipped alpha-blended vertical line
Bitmap.VertLineTS(75, 0, 300, clTrBlue32);