1
0
mirror of https://github.com/moparisthebest/Simba synced 2025-02-07 02:30:19 -05:00

Temporary fix.. It's ugly.

This commit is contained in:
Raymond 2011-02-17 19:31:54 +01:00
parent ce94bf3b43
commit 25ad9b2dd5
2 changed files with 3 additions and 2 deletions

View File

@ -1,6 +1,6 @@
//Code Insight //Code Insight
{$IFNDEF LINUX} {$IFNDEF LINUX}
{$DEFINE ccFORMRESIZE} // {$DEFINE ccFORMRESIZE}
{$ENDIF} {$ENDIF}
{.$DEFINE ccFORMCAPTION} {.$DEFINE ccFORMCAPTION}

View File

@ -479,7 +479,7 @@ end;
constructor TAutoCompletePopup.Create(TheOwner: TComponent); constructor TAutoCompletePopup.Create(TheOwner: TComponent);
begin begin
inherited; inherited CreateNew(TheOwner);
l := TAutoCompleteListBox.Create(Self); l := TAutoCompleteListBox.Create(Self);
with l do with l do
@ -524,6 +524,7 @@ begin
ClientHeight := (Round(ClientHeight / l.ItemHeight) * l.ItemHeight); ClientHeight := (Round(ClientHeight / l.ItemHeight) * l.ItemHeight);
Constraints.MinHeight := l.ItemHeight; Constraints.MinHeight := l.ItemHeight;
Constraints.MinWidth := 100; Constraints.MinWidth := 100;
Resize;
end; end;
procedure TAutoCompletePopup.DoHide; procedure TAutoCompletePopup.DoHide;