paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 18:19:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

carbon: change converting FixedWidth variable to float, instead of integer to determine LineOffsets. #18681

Browse Source 
git-svn-id: trunk@30288 -
This commit is contained in:
dmitry 2011-04-14 01:24:21 +00:00
parent c20cf07caf
commit e3864724ca
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/carbon/carbonedits.pp
View File

@ -804,6 +804,7 @@ end;
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
procedure TCarbonComboBox.ValueChanged; procedure TCarbonComboBox.ValueChanged;
begin begin
writeln('crb: ', LCLObject.Name,' value changed!');
if FReadOnly then ListItemSelected(GetValue - 1); if FReadOnly then ListItemSelected(GetValue - 1);
end; end;
@ -1575,8 +1576,8 @@ begin
if OSError(TXNGetLineMetrics(O, AIndex, W, H), Self, SName, 'TXNGetLineMetrics') then Exit; if OSError(TXNGetLineMetrics(O, AIndex, W, H), Self, SName, 'TXNGetLineMetrics') then Exit;
if OSError(TXNOffsetToHIPoint(O, 0, P), Self, SName, 'TXNOffsetToHIPoint') then Exit; if OSError(TXNOffsetToHIPoint(O, 0, P), Self, SName, 'TXNOffsetToHIPoint') then Exit;
LineTop := P.y + AIndex * (H / $10000); LineTop := P.y + AIndex * Fix2X(H);
LineBottom := LineTop + H / $10000; LineBottom := LineTop + Fix2X(H);
// find line offset with bisection // find line offset with bisection
TextStart := 0; TextStart := 0;