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

wince interface: fixed compilation with fpc > 2.3.1

Browse Source 
git-svn-id: trunk@21473 -
This commit is contained in:
vincents 2009-08-28 07:44:15 +00:00
parent 074aa39eb1
commit f00ccb43dd
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/interfaces/wince/wincewsdialogs.pp
View File

@ -236,7 +236,8 @@ begin
FilterComboBox.Left := 0;
FilterComboBox.Height := 20;
FilterComboBox.Top := Height - Panel.Height - FilterComboBox.Height;
if SaveEdit <> nil then Dec(FilterComboBox.Top, SaveEdit.Height);
if SaveEdit <> nil then
FilterComboBox.Top := FilterComboBox.Top - SaveEdit.Height;
FilterComboBox.Width := Width;
FilterComboBox.Align := alBottom;
SetFilter();