[JVCL-Checkins] CVS: rm/source JvDSADialogs.pas,1.2,1.3 JvDropDownForm.pas,1.2,1.3 JvDsgn.pas,1.2,1.3

[Robert M. <mar...@us...>]

Update of /cvsroot/jvcl/rm/source
In directory sc8-pr-cvs1:/tmp/cvs-serv24366/source

Modified Files:
	JvDSADialogs.pas JvDropDownForm.pas JvDsgn.pas 
Log Message:
first compile then commit :-(

Index: JvDSADialogs.pas
===================================================================
RCS file: /cvsroot/jvcl/rm/source/JvDSADialogs.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** JvDSADialogs.pas	18 Jan 2003 18:05:56 -0000	1.2
--- JvDSADialogs.pas	18 Jan 2003 18:28:32 -0000	1.3
***************
*** 1719,1723 ****
  function MessageDlgEx(const Msg: string; const DlgType: TMsgDlgType;
    const Buttons: array of string; const Results: array of Integer; const HelpCtx: Longint;
!   const Center: TDlgCenterKind = dckScreen; const DefaultButton: Integer;
    const CancelButton: Integer; const HelpButton: Integer): TModalResult;
  var
--- 1719,1723 ----
  function MessageDlgEx(const Msg: string; const DlgType: TMsgDlgType;
    const Buttons: array of string; const Results: array of Integer; const HelpCtx: Longint;
!   const Center: TDlgCenterKind; const DefaultButton: Integer;
    const CancelButton: Integer; const HelpButton: Integer): TModalResult;
  var
***************
*** 2180,2184 ****
  procedure TJvDSADialog.DoApplyKeys(const Storage: TDSAStorage; const DSAInfo: TDSARegItem);
  begin
!   if AssignedFOnApplyKeys) then
      OnApplyKeys(Self, DSAInfo, Storage);
  end;
--- 2180,2184 ----
  procedure TJvDSADialog.DoApplyKeys(const Storage: TDSAStorage; const DSAInfo: TDSARegItem);
  begin
!   if Assigned(FOnApplyKeys) then
      OnApplyKeys(Self, DSAInfo, Storage);
  end;

Index: JvDropDownForm.pas
===================================================================
RCS file: /cvsroot/jvcl/rm/source/JvDropDownForm.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** JvDropDownForm.pas	18 Jan 2003 18:05:56 -0000	1.2
--- JvDropDownForm.pas	18 Jan 2003 18:28:32 -0000	1.3
***************
*** 122,126 ****
  begin
    AAction := caFree;
!   inherited CreateParams(AAction);
  end;
  
--- 122,126 ----
  begin
    AAction := caFree;
!   inherited;
  end;
  

Index: JvDsgn.pas
===================================================================
RCS file: /cvsroot/jvcl/rm/source/JvDsgn.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** JvDsgn.pas	18 Jan 2003 18:05:56 -0000	1.2
--- JvDsgn.pas	18 Jan 2003 18:28:32 -0000	1.3
***************
*** 94,106 ****
    with TOpenDialog.Create(Application) do
      try
!       FilenName := GetValue;
!       InitialDir := ExtractFilePath(FilenName);
!       if (ExtractFileName(FilenName) = '') or not
!         ValidFileName(ExtractFileName(FilenName)) then
!         FilenName := '';
        Filter := GetFilter;
        Options := Options + [ofHideReadOnly];
        if Execute then
!         SetValue(FilenName);
      finally
        Free;
--- 94,106 ----
    with TOpenDialog.Create(Application) do
      try
!       FileName := GetValue;
!       InitialDir := ExtractFilePath(FileName);
!       if (ExtractFileName(FileName) = '') or not
!         ValidFileName(ExtractFileName(FileName)) then
!         FileName := '';
        Filter := GetFilter;
        Options := Options + [ofHideReadOnly];
        if Execute then
!         SetValue(FileName);
      finally
        Free;