有些是MFC或SDK的东西,转到Delphi里比较没可能
解决方案 »
- 两个IdFTP的问题,在线等待,急....
- DBGrid
- 如何取时间格式为200501010809呢。
- 为何 down 下 Speedbutton 后不显示透明背景图,而显示白色?如何解决! 急啊
- Clientsocket和Serversocket几问!
- 在treeview中怎么显示每个项的鼠标onmouseover提示?
- 如何禁止修改dbgrid中的数据元素?
- 操作系统版本的问题,up有分。
- 在Delphi6中最好用什么数据控件访问SQL Sever2000?
- 设置工具栏上按纽的状态
- 谁能做一个软件,能对所有的EXE文件进行加密码解密码,高分相送。邮箱[email protected]
- 关于传递params的小问题.
按照语法来说:-> 应该改成 ^.
Type
PLOGPALETTE=^LOGPALETTE;
var
PDC:HDC;
pScrnPalette :HPalette;
lplgpl:PLOGPALETTE;
Palbuf:array[0..1047] of BYTE;
k:integer;
begin
PDC:= GetDC(form1.Handle);
lplgpl := PLOGPALETTE(@Palbuf);
lplgpl.palNumEntries :=GetDeviceCaps(PDC,SIZEPALETTE);lplgpl.palVersion := $300;
for k:=0 to integer(lplgpl.palNumEntries) do
begin
pScrnPalette:=CreatePalette(lplgpl^);
SelectPalette(PDC,pScrnPalette,false);
RealizePalette(PDc);
ReleaseDC(form1.Handle ,pDC);
end;
end;
Win Api HDC GetDC(
HWND hWnd // handle of window
);你的
CDC* pDC = GetDC();
GetDC()的参数呢?还是别的东东?
Type
PLOGPALETTE=^LOGPALETTE;
var
PDC:HDC;
pScrnPalette :HPalette;
lplgpl:PLOGPALETTE;
Palbuf:array[0..1047] of BYTE;
k:integer;
begin
PDC:= GetDC(form1.Handle);
lplgpl := PLOGPALETTE(@Palbuf);
lplgpl.palNumEntries :=GetDeviceCaps(PDC,SIZEPALETTE);lplgpl.palVersion := $300;
for k:=0 to integer(lplgpl.palNumEntries) do
begin lplgpl.palPalEntry[k].peRed := BYTE(k)+10;
lplgpl.palPalEntry[k].peGreen := BYTE(k)+10;
lplgpl.palPalEntry[k].peBlue:= BYTE(k)+10;
lplgpl.palPalEntry[k].peFlags:= PC_NOCOLLAPSE;end;
pScrnPalette:=CreatePalette(lplgpl^);
SelectPalette(PDC,pScrnPalette,false);
RealizePalette(PDc);
ReleaseDC(form1.Handle ,pDC);end;
ReleaseDC(0,pDC);
再次感谢!!