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

fixed some bugs by Andreas

Browse Source 
git-svn-id: trunk@4793 -
This commit is contained in:
mattias 2003-11-10 19:05:44 +00:00
parent 16f0cc169f
commit 9b34313f6d
5 changed files with 16 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/commctrl.pp
View File

@ -188,7 +188,7 @@ const
TB_GETHOTITEM = WM_USER + 71;
TB_SETHOTITEM = WM_USER + 72;
TB_ADDSTRINGW = WM_USER = 77;
TB_ADDSTRINGW = WM_USER + 77;
TB_INSERTBUTTON = TB_INSERTBUTTONA;

5
lcl/graphmath.pp
View File

@ -618,7 +618,7 @@ begin
If Bottom < Top then begin
Tmp := Bottom;
Bottom := Top;
Top := Bottom;
Top := Tmp;
end;
Result.X := Left + (Right - Left) div 2;
@ -1085,6 +1085,9 @@ end.
{ =============================================================================
$Log$
Revision 1.4 2003/11/10 19:05:44 mattias
fixed some bugs by Andreas
Revision 1.3 2003/08/18 19:24:18 mattias
fixed TCanvas.Pie

6
lcl/include/customnotebook.inc
View File

@ -192,7 +192,7 @@ begin
NewOwner:=fNotebook.Owner;
if NewOwner=nil then
NewOwner:=fNotebook;
tmpPage := fNotebook.PageClass.Create(fNotebook.Owner);
tmpPage := fNotebook.PageClass.Create(NewOwner);
with tmpPage do
begin
Caption := S;
@ -260,6 +260,7 @@ var
NewControlIndex, NewPageIndex: integer;
begin
if CurIndex=NewIndex then exit;
NewPageIndex:=NewIndex;
APage:=TCustomPage(fPageList[CurIndex]);
@ -778,6 +779,9 @@ end;}
{ =============================================================================
$Log$
Revision 1.37 2003/11/10 19:05:44 mattias
fixed some bugs by Andreas
Revision 1.36 2003/09/20 15:24:54 mattias
implemented TPageControl and TTabSheet

2
lcl/include/screen.inc
View File

@ -422,7 +422,7 @@ procedure TScreen.UpdateLastActive;
if Assigned(FOnActiveControlChange) then FOnActiveControlChange(Self);
i:=GetHandlerCount(snActiveControlChanged);
while GetNextHandlerIndex(snActiveControlChanged,i) do begin
Handler:=TScreenFormEvent(FHandlers[snActiveControlChanged][i]);
Handler:=TScreenControlEvent(FHandlers[snActiveControlChanged][i]);
Handler(Self,FLastActiveControl);
end;
end;

5
lcl/interfaces/win32/win32callback.inc
View File

@ -62,6 +62,8 @@ End;
-----------------------------------------------------------------------------}
Function PropEnumProc(Window: Hwnd; Str: PChar; Data: Handle): LongBool; StdCall;
Begin
Result:=false;
if (DWORD(Str) and $FFFF0000) = 0 then Exit; // global atom handle
Assert(False, 'Trace:PropEnumProc - Start');
Assert(False, Format('Trace:PropEnumProc - Property %S (with value 0x%X) from window 0x%X removed', [String(Str), Data, Window]));
RemoveProp(Window, Str);
@ -884,6 +886,9 @@ end;
{
$Log$
Revision 1.68 2003/11/10 19:05:44 mattias
fixed some bugs by Andreas
Revision 1.67 2003/11/08 17:41:03 micha
compiler warning cleanups