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

AJ: fixed GNOME Prompt/Notify dialogs to wrap long messages.

Browse Source 
git-svn-id: trunk@3502 -
This commit is contained in:
lazarus 2002-10-13 16:06:49 +00:00
parent 92e2f6aee5
commit f64fd91acf
1 changed files with 24 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -79,6 +79,9 @@ var
BTNArray : PPgChar; BTNArray : PPgChar;
StockName : PgChar; StockName : PgChar;
I : Longint; I : Longint;
TXTList : PGList;
TXTLayout : PGnomeIconTextInfo;
NewMessage : AnsiString;
begin begin
MsgTitle := nil; MsgTitle := nil;
If (Application.MainForm <> nil) and If (Application.MainForm <> nil) and
@ -124,7 +127,24 @@ begin
end; end;
BTNArray[High(Buttons) - Low(Buttons) + 1] := nil; BTNArray[High(Buttons) - Low(Buttons) + 1] := nil;
Result := gnome_message_box_newv(PgChar(DialogMessage), BoxType, BTNArray); TXTLayout := gnome_icon_layout_text(PGDIObject(GetStockObject(SYSTEM_FONT))^.GDIFontObject,
PgChar(DialogMessage), ' ', Screen.Width div 3, True);
TXTList := TXTLayout^.Rows;
While TXTList <> nil do begin
If TXTList^.Data <> nil then
NewMessage := NewMessage + AnsiString(PGnomeIconTextInfoRow(TXTList^.Data)^.thetext);
TXTList := TXTList^.Next;
If TXTList <> nil then
If NewMessage[Length(NewMessage)] <> #10 then
NewMessage := NewMessage + #10;
end;
NewMessage := Copy(NewMessage, 1, Length(NewMessage));
gnome_icon_text_info_free(TXTLayout);
Result := gnome_message_box_newv(PgChar(NewMessage), BoxType, BTNArray);
If MsgTitle <> nil then If MsgTitle <> nil then
gtk_window_set_title(Result, PgChar(MsgTitle)); gtk_window_set_title(Result, PgChar(MsgTitle));
@ -306,6 +326,9 @@ end;
{ {
$Log$ $Log$
Revision 1.5 2002/10/13 16:06:49 lazarus
AJ: fixed GNOME Prompt/Notify dialogs to wrap long messages.
Revision 1.4 2002/10/12 16:36:40 lazarus Revision 1.4 2002/10/12 16:36:40 lazarus
AJ: added new QueryUser/NotifyUser AJ: added new QueryUser/NotifyUser