5,939
社区成员
发帖
与我相关
我的任务
分享我想改变headercontrol的sections里面文字的颜色，怎么办？
我想改变headercontrol的sections里面文字的颜色，怎么办？
...全文
请发表友善的回复…
发表回复
ABLE__323 2006-09-17
- 打赏
- 举报
没人说啊，再up一下
ABLE__323 2006-09-16
- 打赏
- 举报
没人说啊，up一下
ABLE__323 2006-09-14
- 打赏
- 举报
我注意到您是想用hsownerdraw的办法重画，但是有没有办法在hstext的情况下来改变字体颜色呢？
王集鹄 2006-09-13
- 打赏
- 举报
object HeaderControl1: THeaderControl
Sections = <
item
ImageIndex = -1
Style = hsOwnerDraw
end
>
OnDrawSection = HeaderControl1DrawSection
end
procedure TForm1.HeaderControl1DrawSection(HeaderControl: THeaderControl;
Section: THeaderSection; const Rect: TRect; Pressed: Boolean);
var
vRect: TRect;
begin
vRect := Rect;
HeaderControl.Canvas.Font.Color := clRed;
DrawText(HeaderControl.Canvas.Handle, PChar(Section.Text),
Length(Section.Text), vRect, DT_CENTER or DT_VCENTER or DT_SINGLELINE);
end;
Sections = <
item
ImageIndex = -1
Style = hsOwnerDraw
end
>
OnDrawSection = HeaderControl1DrawSection
end
procedure TForm1.HeaderControl1DrawSection(HeaderControl: THeaderControl;
Section: THeaderSection; const Rect: TRect; Pressed: Boolean);
var
vRect: TRect;
begin
vRect := Rect;
HeaderControl.Canvas.Font.Color := clRed;
DrawText(HeaderControl.Canvas.Handle, PChar(Section.Text),
Length(Section.Text), vRect, DT_CENTER or DT_VCENTER or DT_SINGLELINE);
end;
ABLE__323 2006-09-13
- 打赏
- 举报
怎么没有人回答呢？
