paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-09 18:57:44 +01:00
Code Issues Packages Projects Releases Wiki Activity

Menu editor form anchors from Tony

Browse Source 
git-svn-id: trunk@4788 -
This commit is contained in:
mattias 2003-11-09 10:31:49 +00:00
parent 94359fa79d
commit f0b04df808
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
designer/menueditorform.pas
View File

@ -124,6 +124,7 @@ begin
Width:=400;
Height:=Parent.Height;
Autoscroll:=true;
Anchors := [aktop, akleft, akright,akbottom];
end;
Cmp:=TPanel.Create(self);
@ -146,6 +147,7 @@ begin
Width:=180;
Height:=20;
Text:=lisMenuEditorSelectMenu;
Anchors := [aktop, akright];
end;
List_menus:=TListBox.Create(self);
@ -157,6 +159,7 @@ begin
Width:=180;
Height:=180;
OnClick:=@SelectMenuClick;
Anchors := [akright, aktop, akbottom];
end;
for i:=0 to aDesigner.Form.ComponentCount - 1 do

1
lcl/maskedit.pp
View File

@ -287,7 +287,6 @@ begin
Result := IChar;
case IChar of
mMskTimeSeparator: Result := TimeSeparator;
mMskDateSeparator: Result := DateSeparator;
end;
end;