From: Andreas H. <ah...@pr...> - 2004-01-30 16:41:38
|
Update of /cvsroot/jvcl/dev/JVCL3/run In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22487/run Modified Files: JvToolEdit.pas Log Message: Changed FPopup: TCustomControl to TWinControl Index: JvToolEdit.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvToolEdit.pas,v retrieving revision 1.54 retrieving revision 1.55 diff -C2 -d -r1.54 -r1.55 *** JvToolEdit.pas 29 Jan 2004 00:32:08 -0000 1.54 --- JvToolEdit.pas 29 Jan 2004 20:58:58 -0000 1.55 *************** *** 66,75 **** TPopupAlign = (epaRight, epaLeft); - {$IFDEF VCL} - TJvPopupWindow = class(TJvCustomControl) - {$ENDIF} - {$IFDEF VisualCLX} TJvPopupWindow = class(TCustomForm) - {$ENDIF} private FEditor: TWinControl; --- 66,70 ---- *************** *** 224,233 **** FPopupVisible: Boolean; // Polaris FFocused: Boolean; // Polaris ! {$IFDEF VCL} ! FPopup: TCustomControl; ! {$ENDIF VCL} ! {$IFDEF VisualCLX} ! FPopup: TCustomForm; ! {$ENDIF VisualCLX} procedure DoClearText; override; procedure DoClipboardCut; override; --- 219,223 ---- FPopupVisible: Boolean; // Polaris FFocused: Boolean; // Polaris ! FPopup: TWinControl; procedure DoClearText; override; procedure DoClipboardCut; override; |