published TComboBox.OnDbClick

git-svn-id: trunk@6647 -

ideintf/propedits.pp

@@ -4907,14 +4907,17 @@ end;
 procedure TURLPropertyEditor.SetFilename(const Filename: string);
 
   function FilenameToURL(const Filename: string): string;
+  {$IFDEF Windows}
   var
     i: Integer;
+  {$ENDIF}
   begin
     Result:=Filename;
-    if PathDelim<>'/' then
+    {$IFDEF Windows}
       for i:=1 to length(Result) do
-        if Result[i]=PathDelim then
+        if Result[i]='\' then
           Result[i]:='/';
+    {$ENDIF}
     if Result<>'' then
       Result:='file://'+Result;
   end;

lcl/include/customcombobox.inc

@@ -744,39 +744,17 @@ end;
 procedure TCustomComboBox.CNCommand(var TheMessage: TLMCommand);
 begin
   case TheMessage.NotifyCode of
-    {CBN_DBLCLK:
-      DblClick;
-    CBN_EDITCHANGE:
-      Change;}
     CBN_DROPDOWN:
       begin
         FDroppedDown:=true;
         DropDown;
         AdjustDropDown;
       end;
-    {CBN_SELCHANGE:
-      begin
-        Text := Items[ItemIndex];
-        Click;
-        Select;
-      end;}
     CBN_CLOSEUP:
       begin
         FDroppedDown:=false;
         CloseUp;
       end;
-    {CBN_SETFOCUS:
-      begin
-        FIsFocused := True;
-        FFocusChanged := True;
-        SetIme;
-      end;
-    CBN_KILLFOCUS:
-      begin
-        FIsFocused := False;
-        FFocusChanged := True;
-        ResetIme;
-      end;}
   end;
 end;
 
@@ -793,6 +771,9 @@ end;
 
 {
   $Log$
+  Revision 1.51  2005/01/20 16:58:16  mattias
+  published TComboBox.OnDbClick
+
   Revision 1.50  2005/01/13 18:39:45  mattias
   fixed getting ItemIndex before combobox destroys handle
 

lcl/stdctrls.pp

@@ -349,6 +349,7 @@ type
     property OnChangeBounds;
     property OnClick;
     property OnCloseUp;
+    property OnDblClick;
     property OnDrawItem;
     property OnDropDown;
     property OnEditingDone;
@@ -1213,6 +1214,9 @@ end.
 { =============================================================================
 
   $Log$
+  Revision 1.185  2005/01/20 16:58:16  mattias
+  published TComboBox.OnDbClick
+
   Revision 1.184  2005/01/17 16:42:35  mattias
   improved TLabel autosizing