From: André S. <asn...@us...> - 2004-08-27 11:59:22
|
Update of /cvsroot/jvcl/dev/JVCL3/run In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16671/JVCL3/run Modified Files: JvSwitch.pas Log Message: cleaned ifdefs Index: JvSwitch.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvSwitch.pas,v retrieving revision 1.20 retrieving revision 1.21 diff -C2 -d -r1.20 -r1.21 *** JvSwitch.pas 24 Jul 2004 16:35:23 -0000 1.20 --- JvSwitch.pas 27 Aug 2004 11:59:12 -0000 1.21 *************** *** 31,41 **** uses SysUtils, Classes, - {$IFDEF VCL} Windows, Messages, Graphics, Controls, Forms, Menus, - {$ENDIF VCL} {$IFDEF VisualCLX} ! Qt, Types, QGraphics, QControls, QForms, QMenus, QWindows, {$ENDIF VisualCLX} ! JvComponent; type --- 31,39 ---- uses SysUtils, Classes, Windows, Messages, Graphics, Controls, Forms, Menus, {$IFDEF VisualCLX} ! Qt, {$ENDIF VisualCLX} ! JvJCLUtils, JvComponent; type *************** *** 431,442 **** end; Text := Caption; - {$IFDEF VCL} - DrawText(Handle, PChar(Text), Length(Caption), ARect, - DT_EXPANDTABS or DT_VCENTER or DT_CENTER); - {$ENDIF VCL} - {$IFDEF VisualCLX} DrawText(Canvas, Text, Length(Caption), ARect, DT_EXPANDTABS or DT_VCENTER or DT_CENTER); - {$ENDIF VisualCLX} end; end; --- 429,434 ---- |