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:
parent
ce94bf3b43
commit
25ad9b2dd5
@ -1,6 +1,6 @@
|
|||||||
//Code Insight
|
//Code Insight
|
||||||
{$IFNDEF LINUX}
|
{$IFNDEF LINUX}
|
||||||
{$DEFINE ccFORMRESIZE}
|
// {$DEFINE ccFORMRESIZE}
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
{.$DEFINE ccFORMCAPTION}
|
{.$DEFINE ccFORMCAPTION}
|
||||||
|
|
||||||
|
@ -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;
|
||||||
|
Loading…
Reference in New Issue
Block a user