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

fixed initial size

Browse Source 
git-svn-id: trunk@3884 -
This commit is contained in:
mattias 2003-02-28 15:49:43 +00:00
parent e775dd8fa8
commit e105af18d2
4 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
designer/propedits.pp
View File

@ -3712,8 +3712,10 @@ begin
TheDialog:= TStringsPropEditorDlg.Create(Application);
try
TheDialog.Memo.Text:= Strings.Text;
if (TheDialog.ShowModal = mrOK) then
if (TheDialog.ShowModal = mrOK) then begin
Strings.Text:=TheDialog.Memo.Text;
Modified;
end;
finally
TheDialog.Free;
end;

2
lcl/include/customlistbox.inc
View File

@ -353,7 +353,7 @@ begin
FItemIndex:=-1;
FCanvas := TControlCanvas.Create;
TControlCanvas(FCanvas).Control := Self;
SetBounds(1, 1, 100, 25);
SetBounds(1, 1, 100, 80);
end;
{------------------------------------------------------------------------------}

5
lcl/include/customlistview.inc
View File

@ -31,7 +31,7 @@ begin
FImageChangeLink := TChangeLink.Create;
FImageChangeLink.OnChange := @ImageChanged;
FSelected := nil;
Setbounds(2,2,300,300);
Setbounds(2,2,100,90);
end;
@ -557,6 +557,9 @@ end;
{ =============================================================================
$Log$
Revision 1.26 2003/02/28 15:49:43 mattias
fixed initial size
Revision 1.25 2002/11/25 11:37:18 mattias
applied patch from Vasily

5
lcl/stdctrls.pp
View File

@ -380,7 +380,7 @@ type
property Items : TStrings read FItems write SetItems;
property MultiSelect : boolean read FMultiSelect write SetMultiSelect;
property SelCount : integer read GetSelCount;
property Selected[Index : integer] : boolean read GetSelected write SetSelected;
property Selected[Index: integer]: boolean read GetSelected write SetSelected;
property TopIndex: Integer read GetTopIndex write SetTopIndex;
end;
@ -1393,6 +1393,9 @@ end.
{ =============================================================================
$Log$
Revision 1.76 2003/02/28 15:49:43 mattias
fixed initial size
Revision 1.75 2003/01/24 13:07:33 mattias
fixed TListBox.BorderStyle=bsNone