paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-02 01:41:53 +02:00
Code Issues Packages Projects Releases Wiki Activity

cocoa: cleaning up compiler warnings in cocoawsstdctrls

Browse Source 
git-svn-id: trunk@56920 -
This commit is contained in:
dmitry 2018-01-02 11:28:34 +00:00
parent f1f6d63834
commit 2a82b83b2d
1 changed files with 24 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
lcl/interfaces/cocoa/cocoawsstdctrls.pp
View File

@ -1130,7 +1130,11 @@ var
txt: TCocoaTextView;
begin
txt := GetTextView(ACustomEdit);
if not Assigned(txt) then Exit;
if not Assigned(txt) then
begin
Result:=0;
Exit;
end;
Result := txt.selectedRange.location;
end;
@ -1140,7 +1144,11 @@ var
ns: NSArray;
begin
txt := GetTextView(ACustomEdit);
if not Assigned(txt) then Exit;
if not Assigned(txt) then
begin
Result:=0;
Exit;
end;
Result := txt.selectedRange.length;
end;
@ -1265,7 +1273,10 @@ class function TCocoaWSCustomComboBox.GetItemIndex(const ACustomComboBox:
TCustomComboBox):integer;
begin
if (not Assigned(ACustomComboBox)) or (not ACustomComboBox.HandleAllocated) then
begin
Result:=-1;
Exit;
end;
if ACustomComboBox.ReadOnly then
Result := TCocoaReadOnlyComboBox(ACustomComboBox.Handle).indexOfSelectedItem
@ -1304,7 +1315,10 @@ end;
class function TCocoaWSCustomComboBox.GetItems(const ACustomComboBox: TCustomComboBox): TStrings;
begin
if (not Assigned(ACustomComboBox)) or (not ACustomComboBox.HandleAllocated) then
begin
Result:=nil;
Exit;
end;
if ACustomComboBox.ReadOnly then
Result:=TCocoaReadOnlyComboBox(ACustomComboBox.Handle).list
@ -1316,7 +1330,10 @@ class function TCocoaWSCustomComboBox.GetItemHeight(const ACustomComboBox:
TCustomComboBox):Integer;
begin
if (not Assigned(ACustomComboBox)) or (not ACustomComboBox.HandleAllocated) then
begin
Result:=0;
Exit;
end;
if ACustomComboBox.ReadOnly then
Result := 26 // ToDo
@ -1508,7 +1525,11 @@ var
lPoint: NSPoint;
begin
list := GetListBox(ACustomListBox);
if not Assigned(list) then Exit();
if not Assigned(list) then
begin
Result:=-1;
Exit();
end;
lPoint := LCLCoordsToCocoa(ACustomListBox, X, Y);
Result := list.rowAtPoint(lPoint);
end;