pascal/kolmck
1
0
Fork 0
Code Issues Releases Activity

3.08

Browse Source 
git-svn-id: https://svn.code.sf.net/p/kolmck/code@103 91bb2d04-0c0c-4d2d-88a5-bbb6f4c1fa07
This commit is contained in:
dkolmck
2011-02-05 14:52:05 +00:00
parent 02035890a5
commit f06b874897
6 changed files with 968 additions and 1179 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
mirror.pas
View File

@ -8228,6 +8228,8 @@ begin
if (KF <> nil) and KF.FormCompact then
begin
KF.FormAddCtlCommand( Name, 'TControl.SetDefaultBtn' );
KF.FormAddNumParameter( 13 );
KF.FormAddNumParameter( 1 );
// param = 1
end else
SL.Add( Prefix + AName + '.DefaultBtn := TRUE;' );
@ -8235,7 +8237,9 @@ begin
if fCancelBtn then
if (KF <> nil) and KF.FormCompact then
begin
KF.FormAddCtlCommand( Name, 'TControl.SetCancelBtn' );
KF.FormAddCtlCommand( Name, 'TControl.SetDefaultBtn' );
KF.FormAddNumParameter( 27 );
KF.FormAddNumParameter( 1 );
// param = 1
end else
SL.Add( Prefix + AName + '.CancelBtn := TRUE;' );
@ -8247,11 +8251,13 @@ begin
Integer( AnchorTop ) shl 1 +
Integer( AnchorRight ) shl 2 +
Integer( AnchorBottom ) shl 3;
if (i = 1) or (i = 2) or (i = 4) or (i = 8) then
KF.FormAddCtlCommand( Name, 'TControl.SetAnchor' );
CASE i OF
1: KF.FormAddCtlCommand( Name, 'TControl.SetAnchorLeft' );
2: KF.FormAddCtlCommand( Name, 'TControl.SetAnchorTop' );
4: KF.FormAddCtlCommand( Name, 'TControl.SetAnchorRight' );
8: KF.FormAddCtlCommand( Name, 'TControl.SetAnchorBottom' );
1: KF.FormAddNumParameter( ANCHOR_LEFT );
2: KF.FormAddNumParameter( ANCHOR_TOP );
4: KF.FormAddNumParameter( ANCHOR_RIGHT );
8: KF.FormAddNumParameter( ANCHOR_BOTTOM );
else
KF.FormAddCtlCommand( Name, 'FormSetAnchor' );
KF.FormAddNumParameter( i );