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

Removed some writelns and changed the property editor for TStrings a bit.

Browse Source 
Shane

git-svn-id: trunk@95 -
This commit is contained in:
lazarus 2001-01-04 16:12:54 +00:00
parent 536fafd89b
commit da8f1b2837
6 changed files with 28 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
designer/propedits.pp
View File

@ -3273,7 +3273,7 @@ initialization
RegisterPropertyEditor(DummyClassForPropTypes.PTypeInfos('shortstring'),
nil,'',TCaptionPropertyEditor);
RegisterPropertyEditor(DummyClassForPropTypes.PTypeInfos('TStrings'),
nil,'Lines',TStringsPropertyEditor);
nil,'',TStringsPropertyEditor);
finalization
PropertyEditorMapperList.Free; PropertyEditorMapperList:=nil;

8
ide/main.pp
View File

@ -238,10 +238,6 @@ constructor TForm1.Create(AOwner: TComponent);
ms.Position:=0;
PixMap.LoadFromStream(ms);
Result:=true;
Writeln('PIXMAP LOADED.');
Writeln('Width='+inttostr(Pixmap.Width));
Writeln('Height='+inttostr(Pixmap.Height));
finally
ms.Free;
end;
@ -1774,6 +1770,10 @@ end.
{ =============================================================================
$Log$
Revision 1.31 2001/01/04 16:12:54 lazarus
Removed some writelns and changed the property editor for TStrings a bit.
Shane
Revision 1.30 2001/01/03 18:44:54 lazarus
The Speedbutton now has a numglyphs setting.
I started the TStringPropertyEditor

9
lcl/include/menuitem.inc
View File

@ -257,7 +257,6 @@ begin
// if FMenu <> nil then Item.FCompStyle := csMenu;
Item.FParent := Self;
Writeln('INDEX = '+inttostr(index));
FItems.Insert(Index, Item);
MenuChanged(FItems.Count = 1);
end;
@ -406,6 +405,10 @@ end;
{ =============================================================================
$Log$
Revision 1.5 2001/01/04 16:12:54 lazarus
Removed some writelns and changed the property editor for TStrings a bit.
Shane
Revision 1.4 2000/12/22 19:55:38 lazarus
Added the Popupmenu code to the LCL.
Now you can right click on the editor and a PopupMenu appears.
@ -446,6 +449,10 @@ end;
$Log$
Revision 1.5 2001/01/04 16:12:54 lazarus
Removed some writelns and changed the property editor for TStrings a bit.
Shane
Revision 1.4 2000/12/22 19:55:38 lazarus
Added the Popupmenu code to the LCL.
Now you can right click on the editor and a PopupMenu appears.

7
lcl/include/pixmap.inc
View File

@ -22,8 +22,6 @@ var
n, BufIndex: Integer;
t : String;
begin
writeln('Entering');
FreeContext;
// Convert a XPM filedata format to a XPM memory format
@ -78,12 +76,15 @@ writeln('Entering');
finally
S.Free;
end;
writeln('leaving');
end;
{ =============================================================================
$Log$
Revision 1.5 2001/01/04 16:12:54 lazarus
Removed some writelns and changed the property editor for TStrings a bit.
Shane
Revision 1.4 2001/01/03 18:44:54 lazarus
The Speedbutton now has a numglyphs setting.
I started the TStringPropertyEditor

6
lcl/include/speedbutton.inc
View File

@ -254,7 +254,9 @@ begin
DrawFlags := DFCS_BUTTONPUSH or DFCS_ADJUSTRECT;
if FState in [bsDown, bsExclusive]
then DrawFlags := DrawFlags or DFCS_PUSHED;
Writeln('calling drawframecontrol');
DrawFrameControl(Canvas.Handle, PaintRect, DFC_BUTTON, DrawFlags);
Writeln('Exiting drawframecontrol');
end
else begin //flat
if (FState in [bsDown, bsExclusive])
@ -524,6 +526,10 @@ end;
{ =============================================================================
$Log$
Revision 1.3 2001/01/04 16:12:54 lazarus
Removed some writelns and changed the property editor for TStrings a bit.
Shane
Revision 1.2 2001/01/03 18:44:54 lazarus
The Speedbutton now has a numglyphs setting.
I started the TStringPropertyEditor

8
lcl/interfaces/gtk/gtkwinapi.inc
View File

@ -791,9 +791,7 @@ const
PUSH_EDGE_FLAG: array[Boolean] of Integer = (EDGE_RAISED, EDGE_SUNKEN);
PUSH_EDGE_FLAG2: array[Boolean] of Integer = (0, BF_FLAT);
begin
Assert(False, 'Trace:************************************************');
Assert(False, 'Trace:DRAWFRAMECONTROL');
Assert(False, 'Trace:************************************************');
writeln('IN DrawFrameControl');
case uType of
DFC_CAPTION:
begin //all draw CAPTION commands here
@ -3116,6 +3114,10 @@ end;
{ =============================================================================
$Log$
Revision 1.11 2001/01/04 16:12:54 lazarus
Removed some writelns and changed the property editor for TStrings a bit.
Shane
Revision 1.10 2001/01/03 18:44:54 lazarus
The Speedbutton now has a numglyphs setting.
I started the TStringPropertyEditor