paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 15:10:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

added Bart Boersma to the contributors

Browse Source 
git-svn-id: trunk@11491 -
This commit is contained in:
vincents 2007-07-13 12:42:44 +00:00
parent 4750d21b79
commit 3f7cf2ae0c
3 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
docs/Contributors.txt
View File

@ -10,6 +10,7 @@ Andreas Schneider
Andrew Haines Andrew Haines
Andrew Johnson Andrew Johnson
Antonio Galvao Antonio Galvao
Bart Broersma
Bob Wingard Bob Wingard
Boguslaw Brandys Boguslaw Brandys
Boris Arko Boris Arko

2
lcl/dialogs.pp
View File

@ -397,10 +397,8 @@ type
TReplaceDialog = class(TFindDialog) TReplaceDialog = class(TFindDialog)
protected protected
//Bugfix start
procedure ReplaceClick(Sender: TObject); procedure ReplaceClick(Sender: TObject);
procedure ReplaceAllClick(Sender: TObject); procedure ReplaceAllClick(Sender: TObject);
//Bugfix end
function CreateForm: TForm; override; function CreateForm: TForm; override;
procedure SetFormValues; override; procedure SetFormValues; override;
procedure GetFormValues; override; procedure GetFormValues; override;

4
lcl/include/wincontrol.inc
View File

@ -615,7 +615,7 @@ var
crsScaleChilds: crsScaleChilds:
begin begin
{$IFDEF CPU64} {$IFDEF CPU64}
{$NOTE remove this workaround, when comiler bug fixed} {$NOTE remove this workaround, when compiler bug fixed}
if Child.MinimumSize[Orientation]=0 then if Child.MinimumSize[Orientation]=0 then
CurScale:=0 CurScale:=0
else else
@ -636,7 +636,7 @@ var
crsHomogenousChildResize: crsHomogenousChildResize:
begin begin
{$IFDEF CPU64} {$IFDEF CPU64}
{$NOTE remove this workaround, when comiler bug fixed} {$NOTE remove this workaround, when compiler bug fixed}
if Child.MinimumSize[Orientation]=0 then if Child.MinimumSize[Orientation]=0 then
CurScale:=0 CurScale:=0
else else