로 되어 있네요.. 겨우 4개밖에 안되는데...
그냥 if문 가지고 비교하면 안될까요..??
var Str :String;
begin
Str := '';
if fsBold in Label1.Font.Style then
Str := Str + 'fsBold'
if fsItalic in Label1.Font.Style then
Str := Str + 'fsItalic'
if fsUnderline in Label1.Font.Style then
Str := Str + 'fsUnderline'
if fsStrikeOut in Label1.Font.Style then
Str := Str + 'fsStrikeOut'
end;
Font.Style의 정의를 보니..
type
TFontStyle = (fsBold, fsItalic, fsUnderline, fsStrikeOut);
TFontStyles = set of TFontStyle;
로 되어 있네요.. 겨우 4개밖에 안되는데...
그냥 if문 가지고 비교하면 안될까요..??
var Str :String;
begin
Str := '';
if fsBold in Label1.Font.Style then
Str := Str + 'fsBold'
if fsItalic in Label1.Font.Style then
Str := Str + 'fsItalic'
if fsUnderline in Label1.Font.Style then
Str := Str + 'fsUnderline'
if fsStrikeOut in Label1.Font.Style then
Str := Str + 'fsStrikeOut'
end;
좀 무식하긴 하지만요.. 아직은... 하수라서.. ㅠ.ㅠ
도움이 되었기를...