急！急！急！ListView的标题(Column)怎么改变颜色？

2004-06-29 09:20:43 369 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

循环单链表的实现c语言 1.循环单链表和单链表的区别在于链表中最后一个结点的指针不是指向NULL，而是指向头结点，这样链表结点就形成了一个环。循环单链表是一个环，所以在链表中任意位置插入或者删除结点时都是等价的，不需要根据所操作结点是否是尾结点分类讨论，因此简化了代码。 2.下面是循环单链表的具体操作详细代码，由c语言实现。 #include<stdio.h> #include<malloc.h> #define ElemType int typedef struct LinkNode{ ElemTy 阅读详情

如题！哪样仁兄能帮帮小弟！

...全文

C++实现循环单链表的基本操作领会循环单链表存储结构和掌握循环单链表中的各种基本运算算法设计，实现循环单链表的各种基本运算和整体建表算法。阅读详情

smallyan

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

jackie168 2004-09-29

打赏
举报

修改樓上得來的：//效果好像還不如沒改過的，呵呵~~
uses CommCtrl;
procedure TForm1.Button1Click(Sender: TObject);
var
dc:hdc;
r1,r2:trect;
hhwnd:Thandle;
begin
hhwnd := SendMessage(listview1.Handle, LVM_GETHEADER, 0, 0);

dc:=getwindowdc(hhwnd);
getwindowrect(hhwnd,r1);
offsetrect(r1,-r1.Left,-r1.Top);
r2:=r1;
r2.Right:=listview1.Columns[0].Width;
fillrect(dc,r2,getstockobject(LTGRAY_BRUSH));
r2.Left:=r2.Right;
r2.Right:=r2.Left+listview1.Columns[1].Width;
fillrect(dc,r2,getstockobject(GRAY_BRUSH));
releasedc(hhwnd,dc);
end;

fj218 2004-09-29

打赏
举报

引用CommCtrl单元，listview1的viewstyle设为vsReport。

procedure TForm1.Button1Click(Sender: TObject);
var
dc:hdc;
r1,r2:trect;
begin
hhwnd := SendMessage(listview1.Handle, LVM_GETHEADER, 0, 0);

dc:=getwindowdc(hhwnd);
getwindowrect(hhwnd,r1);
offsetrect(r1,-r1.Left,-r1.Top);
r2:=r1;
r2.Right:=listview1.Columns[0].Width;
fillrect(dc,rc2,getstockobject(white_brush));
r2.Left:=r2.Right;
r2.Right:=r2.Left+listview1.Columns[1].Width;
fillrect(dc,rc2,getstockobject(white_brush));
releasedc(hhwnd,dc);
end;
参考一下，自己再做修改

jackystar 2004-09-29

打赏
举报

这个画出来都是黑色？
有人搞定没？

aushqh 2004-08-03

打赏
举报

这个会一直闪动，关注中。。。。

juliens 2004-07-28

打赏
举报

把GetClientRect(hwnd, Rect);这句改成Windows.GetClientRect(hwnd, Rect);就行了！

Result := CallWindowProc(nil, hwnd,uMsg, wParam, lParam);这句没有错！

bluesky23 2004-07-28

打赏
举报

学习

fei19790920 2004-06-29

打赏
举报

procedure SetListHeadColor(hListView:HWND; Color:TColor);
var
hHeader: HWND;
OldProc: FARPROC;

function NewHeadProc(hwnd:HWND; uMsg:UINT;
wParam:WPARAM; lParam:LPARAM): Longint; stdcall;
var
Rect:TRect;
Canvas: TCanvas;
Bmp: TBitmap;
begin
Result := CallWindowProc(OldProc, hwnd,
uMsg, wParam, lParam);
if uMsg = WM_PAINT then
begin
GetClientRect(hwnd, Rect);
Bmp := TBitmap.Create;
Bmp.Width := Rect.Right;
Bmp.Height := Rect.Bottom;
Canvas := TCanvas.Create;
Canvas.Handle := GetDC(hwnd);
Bmp.Canvas.CopyRect(Rect, Canvas, Rect);
Bmp.Transparent := true;
Bmp.TransparentColor := clBtnFace;
Canvas.Brush.Color := Color;
Canvas.Rectangle(Rect);
Canvas.Draw(0, 0, Bmp);
ReleaseDC(hwnd, Canvas.Handle);
Canvas.Free; Bmp.Free;
end;
end;

begin
hHeader := FindWindowEx(hListView, 0,
'SysHeader32', Nil);
OldProc := FARPROC(SetWindowLong(hHeader,
GWL_WNDPROC, LongInt(@NewHeadProc)));
InvalidateRect(hHeader, Nil, FALSE);
end;

smallyan 2004-06-29

打赏
举报

为什么会报错

错在这行！
Result := CallWindowProc(nil, hwnd,uMsg, wParam, lParam);

急！急！急！ListView的标题(Column)怎么改变颜色？

相关推荐