VC中 HPALETTE hPalette; LOGPALETTE *pPal; hPalette=CreatePale

I

ISY

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-18

• #1

VC中 HPALETTE hPalette
LOGPALETTE *pPal
hPalette=CreatePalette(pPal)
Delphi中应该怎么定义hPalette和pPal？第三句又应该怎么写呢？？？(50分)<br />VC中
HPALETTE hPalette

LOGPALETTE *pPal

hPalette=CreatePalette(pPal);
Delphi中应该怎么定义hPalette和pPal？第三句又应该怎么写呢？？？

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-18

• #2

procedure TForm1.Button1Click(Sender: TObject);
var
hP:HPALETTE;
pPal:TLogPalette;
begin
// 对 pPal 进行赋值
hP:=CreatePalette(pPal);
end;






type
tagLOGPALETTE = packed record
palVersion: Word;
palNumEntries: Word;
palPalEntry: array[0..0] of TPaletteEntry;
end;
TLogPalette = tagLOGPALETTE;
{$EXTERNALSYM LOGPALETTE}
LOGPALETTE = tagLOGPALETTE;

 

I

ISY

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-18

• #3

TLogPalette和PLogPalette有什么区别呢？
如果VC中有语句
HLOCAL hPal

LOGPALETTE *pPal

pPal =(LOGPALETTE *)LocalLock(hPal);
Delphi中又应该怎么写呢？谢谢。

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-18

• #4

PLogPalette = ^TLogPalette
是指针


procedure TForm1.Button1Click(Sender: TObject);
var
hP:HPALETTE;
pPal:TLogPalette;
hPal:HLocal;
ppPalLogPalette;
begin
// 对 pPal 进行赋值
hP:=CreatePalette(pPal);
ppPal:=PLogPalette(LocalLock(hPal));
end;

 

I

ISY

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-18

• #5

源程序是这样的
HPALETTE hPalette

LOGPALETTE *pPal

HLOCAL hPal

.....
hPalette=CreatePalette(pPal);
.....
pPal =(LOGPALETTE *)LocalLock(hPal);
....
Delphi中不加入 ppal 可以实现吗？

 

I

ISY

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-18

• #6

源程序是这样的
HPALETTE hPalette

LOGPALETTE *pPal

HLOCAL hPal

.....
hPalette=CreatePalette(pPal);
.....
pPal =(LOGPALETTE *)LocalLock(hPal);
....
Delphi中应该怎么写？？？急，谢谢

 

I

ISY

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-18

• #7

jsxjd你在哪里啊？？？

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-19

• #8

procedure TForm1.Button1Click(Sender: TObject);
var
hP:HPALETTE;
hPal:HLocal;
pPalLogPalette;
begin
// pPal 应该初始化
hP:=CreatePalette(pPal^);
pPal:=PLogPalette(LocalLock(hPal));
end;

 

I

ISY

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-19

• #9

jsxjd，有些问题需要你的帮助，如果你愿意的话能不能把你的邮箱或者其他联系方式给我，如果不方便在这里给出，能否发邮件到blue1947@163.com？谢谢。

 

I

ISY

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-19

• #10

接受答案了.