TPen class private m_Color Integer function Get_Color Integer procedur

1
2
3
4
5
6
7
8
TPen = class
private
m_Color: Integer;
function Get_Color: Integer;
procedure Set_Color(RHS: Integer);
public
property Color: Integer read Get_Color write Set_Color;
end;