200元RMB+200分,求解(200分)

  • 主题发起人 主题发起人 xingtek
  • 开始时间 开始时间
X

xingtek

Unregistered / Unconfirmed
GUEST, unregistred user!
公司需要将logo显示在ComboBox里。有谁可以将任意图片作为ComboBox的背景显示出来?我可以给您的账号电汇200元,作为酬劳。谢谢!
 
呵呵,这样说大家就没人帮你了,什么钱不钱的,多俗啊,呵呵钱太少了吧
 
我会的话我马上告诉你:)
 
可以试试看,我的邮箱szqhebei2000@163.com
 
combobox.style:=csOwnerDrawFixed;

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
if ComboBox1.DroppedDown then
begin
StretchBlt(ComboBox1.Canvas.Handle,Rect.Left,Rect.Top,Rect.Right-Rect.Left,Rect.Bottom-Rect.Top,Image1.Canvas.Handle,Rect.Left,Rect.Top,Rect.Right-Rect.Left,Rect.Bottom-Rect.Top, cmSrcCopy);
// ComboBox1.Canvas.CopyRect(Rect,Image1.Canvas,Rect);
ComboBox1.Canvas.Brush.Style:=bsClear;
ComboBox1.Canvas.TextOut(Rect.Left + 2, Rect.Top, ComboBox1.Items[Index]);
end
else
begin
ComboBox1.Canvas.TextOut(Rect.Left + 2, Rect.Top, ComboBox1.Items[Index]);
end;
end;
 
需要 style=csDropDown, 可以键入字符的模式,只在背景显示图片,不是在下拉框里

有没有人会?

 
我会作,告诉我您的MAIL,我写好演示后发过去。
 
xingtek@163.com, 谢谢
 
yaya1996, 把你的银行账号给我
 
多人接受答案了。
 

Similar threads

D
回复
0
查看
822
DelphiTeacher的专栏
D
D
回复
0
查看
788
DelphiTeacher的专栏
D
D
回复
0
查看
765
DelphiTeacher的专栏
D
D
回复
0
查看
825
DelphiTeacher的专栏
D
后退
顶部