moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-25 10:42:20 -05:00
Code Issues Releases Wiki Activity

Reverted something, because it was not needed :)

Browse Source
This commit is contained in:
Niels 2010-03-28 20:08:50 +02:00
parent fc4a3b0acf
commit 14be0488ae
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Units/Misc/v_autocompleteform.pas
View File

@ -34,7 +34,7 @@ type
{$IFDEF ccFORMCAPTION} {$IFDEF ccFORMCAPTION}
procedure DoSelectionChange(User: Boolean); override; procedure DoSelectionChange(User: Boolean); override;
{$ENDIF} {$ENDIF}
procedure DrawItem(Control: TWinControl; Index: Integer; ARect: TRect; State: TOwnerDrawState); procedure DrawItem(Index: Integer; ARect: TRect; State: TOwnerDrawState); override;
{$IFDEF FPC} {$IFDEF FPC}
procedure WMEraseBkgnd(var message: TLMEraseBkgnd); message LM_ERASEBKGND; procedure WMEraseBkgnd(var message: TLMEraseBkgnd); message LM_ERASEBKGND;
procedure WMVScroll(var message: TLMVScroll); message LM_VSCROLL; procedure WMVScroll(var message: TLMVScroll); message LM_VSCROLL;
@ -300,7 +300,7 @@ begin
end; end;
{$ENDIF} {$ENDIF}
procedure TAutoCompleteListBox.DrawItem(Control: TWinControl; Index: Integer; ARect: TRect; State: TOwnerDrawState); procedure TAutoCompleteListBox.DrawItem(Index: Integer; ARect: TRect; State: TOwnerDrawState);
var var
p1, p2, p3, tl, col: Integer; p1, p2, p3, tl, col: Integer;
s, c: string; s, c: string;
@ -398,7 +398,6 @@ begin
ControlStyle := ControlStyle + [csOpaque]; ControlStyle := ControlStyle + [csOpaque];
BorderStyle := bsNone; BorderStyle := bsNone;
Style := lbOwnerDrawFixed; Style := lbOwnerDrawFixed;
OnDrawItem := {$IFDEF FPC}@{$ENDIF}DrawItem;
IntegralHeight := True; IntegralHeight := True;
{$IFDEF FPC} {$IFDEF FPC}