pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

First commit for release 0.2.2, which restores Ctl3D so it can again be compiled by Lazarus 0.9.27+

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@963 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
macpgmr
2009-09-22 01:00:15 +00:00
parent c369d3321e
commit f557d85ab0
22 changed files with 244 additions and 49 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/orpheus/mymisc.pas
View File

@@ -472,7 +472,11 @@ begin
else
begin
if nIndex = SM_CYBORDER then
nIndex := SM_CYEDGE; //Substitute for now so returned value is valid.
// nIndex := SM_CYEDGE; //Substitute for now so returned value is valid.
begin //Neither implemented, so catch here to eliminate TODO messages.
Result := 0; //0 was being returned before.
Exit;
end;
Result := LclIntf.GetSystemMetrics(nIndex);
end;
end;