|
@@ -163,7 +163,6 @@ begin
|
|
Menu.SetStyleAttr('display','')
|
|
Menu.SetStyleAttr('display','')
|
|
else
|
|
else
|
|
Menu.SetStyleAttr('display','none');
|
|
Menu.SetStyleAttr('display','none');
|
|
- writeln('TDemoCombobox.CaptionDivMouseDown ',Name,' "',Menu.Style,'"');
|
|
|
|
end;
|
|
end;
|
|
|
|
|
|
procedure TDemoCombobox.SetCaption(const AValue: string);
|
|
procedure TDemoCombobox.SetCaption(const AValue: string);
|
|
@@ -202,13 +201,12 @@ begin
|
|
CaptionIcon:=TImage.Create(Self);
|
|
CaptionIcon:=TImage.Create(Self);
|
|
with CaptionIcon do begin
|
|
with CaptionIcon do begin
|
|
Name:='CaptionIcon';
|
|
Name:='CaptionIcon';
|
|
- //Caption:=#$E2#$8C#$84; // Down Arrowhead
|
|
|
|
|
|
+ //Caption:=#$E2#$8C#$84; // Down Arrowhead, needs font that has it
|
|
CSSClasses.Add('ComboboxCaptionIcon');
|
|
CSSClasses.Add('ComboboxCaptionIcon');
|
|
Parent:=CaptionDiv;
|
|
Parent:=CaptionDiv;
|
|
end;
|
|
end;
|
|
aStream:=TMemoryStream.Create;
|
|
aStream:=TMemoryStream.Create;
|
|
try
|
|
try
|
|
- writeln('TDemoCombobox.Create ',ord(ArrowDownImage[1]),' ',length(ArrowDownImage));
|
|
|
|
aStream.WriteBuffer(ArrowDownImage[1],length(ArrowDownImage));
|
|
aStream.WriteBuffer(ArrowDownImage[1],length(ArrowDownImage));
|
|
aStream.Position:=0;
|
|
aStream.Position:=0;
|
|
CaptionIcon.Image.LoadFromStream(aStream);
|
|
CaptionIcon.Image.LoadFromStream(aStream);
|