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

IDE: fixed crash: accessing the wrong canvas

Browse Source 
git-svn-id: trunk@25697 -
This commit is contained in:
mattias 2010-05-27 15:27:24 +00:00
parent fd51b5dcdc
commit 19f9f16b28
1 changed files with 2 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/fpdocselectlink.pas
View File

@ -69,7 +69,6 @@ type
FTree: TAvgLvlTree; // tree of TFPDocLinkCompletionItem
function GetCount: integer;
function GetItems(Index: integer): TFPDocLinkCompletionItem;
procedure SetSelected(const AValue: integer);
procedure SetSorted(const AValue: Boolean);
procedure SetTop(const AValue: integer);
public
@ -87,7 +86,7 @@ type
property ItemHeight: integer read FItemHeight write FItemHeight;// pixel per item
property VisibleItems: integer read FVisibleItems write FVisibleItems;// visible lines
property Top: integer read FTop write SetTop;
property Selected: integer read FSelected write SetSelected;
property Selected: integer read FSelected write FSelected;
property Prefix: string read FPrefix write FPrefix;
property BGColor: TColor read FBGColor write FBGColor;
property TextColor: TColor read FTextColor write FTextColor;
@ -224,7 +223,7 @@ begin
fItems.TextColor:=clWindowText;
fItems.SelectedBGColor:=clHighlight;
fItems.SelectedTextColor:=clHighlightText;
fItems.ItemHeight:=Canvas.TextHeight('ABCTWSMgqp')+4;
fItems.ItemHeight:=CompletionBox.Canvas.TextHeight('ABCTWSMgqp')+4;
fItems.VisibleItems:=CompletionBox.ClientHeight div fItems.ItemHeight;
fItems.Draw(CompletionBox.Canvas,
CompletionBox.ClientWidth,CompletionBox.ClientHeight);
@ -581,12 +580,6 @@ begin
Result:=TFPDocLinkCompletionItem(FItems[Index]);
end;
procedure TFPDocLinkCompletionList.SetSelected(const AValue: integer);
begin
if FSelected=AValue then exit;
FSelected:=AValue;
end;
procedure TFPDocLinkCompletionList.SetSorted(const AValue: Boolean);
begin
if FSorted=AValue then exit;