<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
</head>
<body bgcolor="#ffffff" text="#000000">
Hello group,<br>
<br>
I'm trying to convert some Delphi component to Lazarus. But without
much success.<br>
It's an Edit control with buttons in it and a dropdown panel. Just
like a combobox. I use this component for creating date selection
controls and custom lookup comboboxes.<br>
<br>
It uses some windows specific calls. I need some help to
convert/rewrite it under Lazarus. I would be very happy if I can get
it to work under Windows and Linux but for now Windows only is good
enough. I’m porting a one million lines project from Delphi to
Lazarus and these custom components are very important for that
project.<br>
<br>
I have written a small Delphi app/unit with the main functionality.
(Delphi 2007)<br>
<br>
<a class="moz-txt-link-freetext" href="http://download.fpc-lazarus.nl/DropdownCtrl.rar">http://download.fpc-lazarus.nl/DropdownCtrl.rar</a><br>
<br>
There is a compiled exe included. Please take a look at the code.
Can it be done with Lazarus?<br>
<br>
Thanks!<br>
<br>
Regards,<br>
Erwin van den Bosch<br>
<br>
<!--[if gte mso 9]><xml>
<w:WordDocument>
<w:View>Normal</w:View>
<w:Zoom>0</w:Zoom>
<w:HyphenationZone>21</w:HyphenationZone>
<w:PunctuationKerning/>
<w:ValidateAgainstSchemas/>
<w:SaveIfXMLInvalid>false</w:SaveIfXMLInvalid>
<w:IgnoreMixedContent>false</w:IgnoreMixedContent>
<w:AlwaysShowPlaceholderText>false</w:AlwaysShowPlaceholderText>
<w:Compatibility>
<w:BreakWrappedTables/>
<w:SnapToGridInCell/>
<w:WrapTextWithPunct/>
<w:UseAsianBreakRules/>
<w:DontGrowAutofit/>
</w:Compatibility>
<w:BrowserLevel>MicrosoftInternetExplorer4</w:BrowserLevel>
</w:WordDocument>
</xml><![endif]--><!--[if gte mso 9]><xml>
<w:LatentStyles DefLockedState="false" LatentStyleCount="156">
</w:LatentStyles>
</xml><![endif]--><!--[if !mso]><object
classid="clsid:38481807-CA0E-42D2-BF39-B33AF135CC4D" id=ieooui></object>
<style>
st1\:*{behavior:url(#ieooui) }
</style>
<![endif]--><!--[if gte mso 10]>
<style>
/* Style Definitions */
table.MsoNormalTable
{mso-style-name:Standaardtabel;
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-parent:"";
mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
mso-para-margin:0cm;
mso-para-margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:10.0pt;
font-family:"Times New Roman";
mso-ansi-language:#0400;
mso-fareast-language:#0400;
mso-bidi-language:#0400;}
</style>
<![endif]-->
</body>
</html>