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

Keith: Fixed some bugs

Browse Source 
git-svn-id: trunk@619 -
This commit is contained in:
lazarus 2002-01-24 07:34:50 +00:00
parent 0df04c9229
commit 2e747471d8
3 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Makefile
View File

@ -156,7 +156,8 @@ override PACKAGE_VERSION=0.7a
ifndef LCLPLATFORM
ifeq ($(OS_TARGET), win32)
LCLPLATFORM=win32
export OPT+=-dSUPPORTS_RESOURCES
override FPCOPT+=-dSUPPORTS_RESOURCES
export FPCOPT
else
LCLPLATFORM=gtk
endif

3
Makefile.fpc
View File

@ -37,7 +37,8 @@ destdir=$(BASEDIR)/dist
ifndef LCLPLATFORM
ifeq ($(OS_TARGET), win32)
LCLPLATFORM=win32
export OPT+=-dSUPPORTS_RESOURCES
override FPCOPT+=-dSUPPORTS_RESOURCES
export FPCOPT
else
LCLPLATFORM=gtk
endif

7
lcl/interfaces/win32/win32object.inc
View File

@ -110,8 +110,8 @@ Begin
{csComboBox, }csEdit, csMemo:
Begin
CapLen := GetWindowTextLength((Sender As TWinControl).Handle);
GetWindowText((Sender As TWinControl).Handle, @Caption, CapLen + 1);
Data := StrPas(PChar(@Caption));
GetWindowText((Sender As TWinControl).Handle, Caption, CapLen + 1);
Data := StrPas(Caption);
End;
csPage:
Begin
@ -2953,6 +2953,9 @@ End;
{
$Log$
Revision 1.10 2002/01/24 07:34:50 lazarus
Keith: Fixed some bugs
Revision 1.9 2002/01/21 08:42:06 lazarus
Keith: Fixed some run-time exceptions for FPC 1.1