paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 13:50:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

AJ: fixed GTK DrawText to use WordWrap, and add DT_EditControl

Browse Source 
git-svn-id: trunk@3515 -
This commit is contained in:
lazarus 2002-10-15 17:09:54 +00:00
parent 74f25c29c4
commit 5d6f509d63
2 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/interfaces/gnome/gnomewinapi.inc
View File

@ -203,14 +203,17 @@ begin
If Lines <> nil then begin If Lines <> nil then begin
Line := Lines^.Rows; Line := Lines^.Rows;
While Line <> nil do begin While Line <> nil do begin
If (((Flags and DT_EditControl) = DT_EditControl) and
(tm.tmHeight > (theRect.Bottom - theRect.Top))) or
(theRect.Top > theRect.Bottom)
then
break;
If Line^.Data <> nil then begin If Line^.Data <> nil then begin
LineInfo := PGnomeIconTextInfoRow(Line^.Data)^; LineInfo := PGnomeIconTextInfoRow(Line^.Data)^;
DrawLine(LineInfo.theText, LineInfo.Text_Length, theRect.Top); DrawLine(LineInfo.theText, LineInfo.Text_Length, theRect.Top);
Inc(theRect.Top, TM.tmHeight); Inc(theRect.Top, TM.tmHeight);
end; end;
Line := Line^.Next; Line := Line^.Next;
If theRect.Top > theRect.Bottom then
Break;
end; end;
Result := 1; Result := 1;
end; end;
@ -501,6 +504,9 @@ end;
{ {
$Log$ $Log$
Revision 1.8 2002/10/15 17:09:54 lazarus
AJ: fixed GTK DrawText to use WordWrap, and add DT_EditControl
Revision 1.7 2002/10/14 18:36:57 lazarus Revision 1.7 2002/10/14 18:36:57 lazarus
AJ: Improvements/Fixes to new PromptUser API AJ: Improvements/Fixes to new PromptUser API

4
lcl/lcltype.pp
View File

@ -148,6 +148,7 @@ const
DT_CALCRECT = $400; DT_CALCRECT = $400;
DT_NOPREFIX = $800; DT_NOPREFIX = $800;
DT_INTERNAL = $1000; DT_INTERNAL = $1000;
DT_EDITCONTROL = $2000;
//============================================== //==============================================
// Draw frame constants // Draw frame constants
@ -1621,6 +1622,9 @@ end.
{ {
$Log$ $Log$
Revision 1.22 2002/10/15 17:09:53 lazarus
AJ: fixed GTK DrawText to use WordWrap, and add DT_EditControl
Revision 1.21 2002/10/12 16:36:39 lazarus Revision 1.21 2002/10/12 16:36:39 lazarus
AJ: added new QueryUser/NotifyUser AJ: added new QueryUser/NotifyUser