delphi 如何调用windows系统颜色板
如题
帮顶
Delphi(Pascal) code:
var
Pal: HPalette;
LogPal: TMaxLogPalette;
DC: HDC;
count: Integer;
begin
DC := GetDC(0);
// 获取当前屏幕的调色板
Pal := CreateHalftonePalette(DC);
// 获取当前屏幕的调色板的颜色表
count := GetPaletteEntries(Pal, 0, 256, LogPal.palPalEntry);
// 下面这个函数调用失败，可能是我的显示器设置不是256色的原因
// count := GetSystempaletteEntries(DC, 0, 256, LogPal.palPalEntry);
ShowMessage(IntToStr(count));
DeleteObject(Pal);
ReleaseDC(0, DC);
end;
楼主的意思是不是调出系统调色板的窗口来？
恩，是的
Delphi(Pascal) code:
procedure TForm1.Button1Click(Sender: TObject);
begin
if colordialog1.Execute then
begin
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if colordialog1.Execute then
begin
edit1.Font.Color:=colordialog1.Color;
end;
end;
不知，是不是这样？
楼上的colordialog1.Execute是什么？
colordialog是按件
相关问答：
我在模块里自定义了一个函数:stradd()
可是在adoquery1.sql.add('select stradd(author) from book');
时提示stradd未定义...
这个问题有什么办法可以解决的吗? 非常感激!
(在A ......
delphi 异步线程怎么怎么实现？
请各位大佬帮忙！
最好有个实例！
多谢
你不同步就是异步了,还写啥
默认情况下，线程就是异步的…………*^_^*
估计楼主同步和异步概念都没弄清
真无语。。可 ......
我写了个小程序，上面添加了一个shockwaveflash控件，然后在movie里写入swf文件的路径，然后执行没有问题。
当我把这个程序转移到另一台电脑执行时， shockwaveflash 控件显示空白。也就是没有加载那个swf文件。 ......
接收到的文本内容是ucs2编码格式，请问怎样转换成中文
按我的理解，UCS-2是字符集，具体的编码有UTF-8，UTF-16 (LE/BE)等。
如果你用Delphi 2009及以上版本，可以看看TEncoding类。
btw. 你说的转换成中文是啥意� ......
返回的内容是如下代码,怎么能渠道2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......
