From: Marcel B. <jed...@us...> - 2002-08-27 10:51:09
|
Update of /cvsroot/jvcl/dev/restructured/source In directory usw-pr-cvs1:/tmp/cvs-serv14622/dev/restructured/source Modified Files: JvDSADialogs.pas Log Message: * Bug fix for dckScreenCenter * Allowed CheckMarkTextSuffix to be altered in TDSAQueueStorage Index: JvDSADialogs.pas =================================================================== RCS file: /cvsroot/jvcl/dev/restructured/source/JvDSADialogs.pas,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** JvDSADialogs.pas 23 Aug 2002 12:03:27 -0000 1.1 --- JvDSADialogs.pas 27 Aug 2002 10:51:05 -0000 1.2 *************** *** 24,33 **** Known Issues: -----------------------------------------------------------------------------} - {$I JVCL.INC} - unit JvDSADialogs; interface uses Classes, Contnrs, Controls, Dialogs, Forms, Graphics, SysUtils, Windows, --- 24,33 ---- Known Issues: -----------------------------------------------------------------------------} unit JvDSADialogs; interface + {$I JVCL.INC} + uses Classes, Contnrs, Controls, Dialogs, Forms, Graphics, SysUtils, Windows, *************** *** 159,162 **** --- 159,163 ---- private FList: TStrings; + FCheckMarkSuffix: string; protected procedure AddDSA(const DSAInfo: TDSARegItem); *************** *** 199,202 **** --- 200,205 ---- procedure WriteString(const DSAInfo: TDSARegItem; const Key: string; const Value: string); override; + + property CheckMarkTextSuffix: string read GetCheckMarkTextSuffix write SetCheckMarkTextSuffix; end; *************** *** 647,652 **** ButtonHeight := MulDiv(mcButtonHeight, DialogUnits.Y, 8); ButtonSpacing := MulDiv(mcButtonSpacing, DialogUnits.X, 4); ! if (Screen.Width div 2) > (CenterParWidth + (2 * TWinControl(CenterParent).Left)) then ! SetRect(TextRect, 0, 0, CenterParWidth + (2 * TWinControl(CenterParent).Left), 0) else SetRect(TextRect, 0, 0, Screen.Width div 2, 0); --- 650,655 ---- ButtonHeight := MulDiv(mcButtonHeight, DialogUnits.Y, 8); ButtonSpacing := MulDiv(mcButtonSpacing, DialogUnits.X, 4); ! if (Screen.Width div 2) > (CenterParWidth + (2 * CenterParLeft)) then ! SetRect(TextRect, 0, 0, CenterParWidth + (2 * CenterParLeft), 0) else SetRect(TextRect, 0, 0, Screen.Width div 2, 0); *************** *** 1303,1307 **** function TDSAQueueStorage.GetCheckMarkTextSuffix: string; begin ! Result := 'in the current queue'; end; --- 1306,1310 ---- function TDSAQueueStorage.GetCheckMarkTextSuffix: string; begin ! Result := FCheckMarkSuffix; end; *************** *** 1346,1349 **** --- 1349,1354 ---- procedure TDSAQueueStorage.SetCheckMarkTextSuffix(Value: string); begin + if Value <> CheckMarkTextSuffix then + FCheckMarkSuffix := Value; end; *************** *** 1379,1382 **** --- 1384,1388 ---- FList := TStringList.Create; TStringList(FList).Sorted := True; + FCheckMarkSuffix := 'in the current queue'; end; |