paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-21 05:01:50 +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 ifndef LCLPLATFORM
ifeq ($(OS_TARGET), win32) ifeq ($(OS_TARGET), win32)
LCLPLATFORM=win32 LCLPLATFORM=win32
export OPT+=-dSUPPORTS_RESOURCES override FPCOPT+=-dSUPPORTS_RESOURCES
export FPCOPT
else else
LCLPLATFORM=gtk LCLPLATFORM=gtk
endif endif

3
Makefile.fpc
View File

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

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

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