* fixed resize helptext

This commit is contained in:
peter 2004-11-06 22:02:48 +00:00
parent dc5a88c813
commit 2e6f9ff2a0
3 changed files with 20 additions and 9 deletions

View File

@ -294,9 +294,11 @@ begin
V_Used : ClassS:=msg_class_used;
V_Tried : ClassS:=msg_class_tried;
V_Debug : ClassS:=msg_class_debug;
{$endif}
else
ClassS:='???';
{$endif}
else
ClassS:='';
end;
if ClassS<>'' then
ClassS:=RExpand(ClassS,0)+': ';
@ -1294,7 +1296,10 @@ end;
end.
{
$Log$
Revision 1.27 2004-11-06 17:22:52 peter
Revision 1.28 2004-11-06 22:02:48 peter
* fixed resize helptext
Revision 1.27 2004/11/06 17:22:52 peter
* fixes for new fv
Revision 1.26 2004/11/05 00:00:33 peter

View File

@ -491,9 +491,9 @@ begin
NewStatusDef(hcDragging, hcDragging,
NewStatusKey(status_help, kbF1, cmHelp,
StdStatusKeys(
NewStatusKey('~'#24#25#26#27+'~ Move', kbNoKey, 65535,
NewStatusKey('~Shift+'#24#25#26#27+'~ Size', kbNoKey, 65535,
NewStatusKey('~'#17+'ÄŮ~ Done', kbNoKey, 65535,
NewStatusKey('~Cursor~ Move', kbNoKey, 65535,
NewStatusKey('~Shift+Cursor~ Size', kbNoKey, 65535,
NewStatusKey('~<ÄÙ~ Done', kbNoKey, 65535,
NewStatusKey('~Esc~ Cancel', kbNoKey, 65535,
nil)))))),
NewStatusDef(hcStackWindow, hcStackWindow,
@ -1248,7 +1248,10 @@ end;
END.
{
$Log$
Revision 1.28 2004-11-04 20:57:59 peter
Revision 1.29 2004-11-06 22:02:49 peter
* fixed resize helptext
Revision 1.28 2004/11/04 20:57:59 peter
sysmsgs is always available
Revision 1.27 2004/11/02 23:53:19 peter

View File

@ -27,8 +27,8 @@ end;
procedure TIDEApp.ResizeApplication(x, y : longint);
var
OldR, R : TRect;
Mode: TVideoMode;
OldR : TRect;
Mode : TVideoMode;
begin
GetBounds(OldR);
{ adapt to new size }
@ -259,7 +259,10 @@ end;
{
$Log$
Revision 1.4 2002-09-07 15:40:44 peter
Revision 1.5 2004-11-06 22:02:49 peter
* fixed resize helptext
Revision 1.4 2002/09/07 15:40:44 peter
* old logs removed and tabs fixed
Revision 1.3 2002/06/07 14:09:56 pierre