paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 19:09:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Added saving in fixed file

Browse Source
This commit is contained in:
michael 1999-07-16 12:20:57 +00:00
parent 0d6620b1dd
commit 8ea4404607
1 changed files with 44 additions and 12 deletions

56
install/demo/win32/menu.pp
View File

@ -19,6 +19,27 @@ var AMessage:Msg;
Const FileMenus : Array[101..104] of pchar = ('New','Open','Save','Exit');
EditMenus : Array[201..203] of pchar = ('Cut','copy','paste');
Filename = 'edit.txt';
Procedure SaveText;
Var len : longint;
p : pchar;
f : text;
begin
Len:=SendMessage(Hedit,WM_GettextLength,0,0);
If Len=0 then
MessageBox(hWindow,FileMenus[103],'No length received',MB_OK or MB_ICONERROR);
GetMem(P,Len+1);
P[Len]:=#0;
P[SendMessage(HEdit,WM_GetText,LEN,Longint(P))]:=#0;
Assign(F,Filename);
rewrite(f);
Write(f,P);
Close(f);
FreeMem(P,Len);
end;
function WindowProc (Window:HWnd;AMessage,WParam,LParam:Longint):Longint;
stdcall; export;
@ -53,7 +74,8 @@ var dc:hdc;
NrMenu:=WParam and $FFFF;
Case NrMenu of
104 : Halt(0);
101..103: MessageBox(Window,FileMenus[NrMenu],'File Menu click received',MB_OK or MB_ICONINFORMATION);
101..102: MessageBox(Window,FileMenus[NrMenu],'File Menu click received',MB_OK or MB_ICONINFORMATION);
103 : SaveTExt;
201..203: MessageBox(Window,EditMenus[NrMenu],'Edit operation not implemented',MB_OK or MB_ICONINFORMATION);
end;
end;
@ -77,30 +99,38 @@ function WinRegister:Boolean;
end;
Const
CS_Start = ES_AUTOHSCROLL OR ES_AUTOVSCROLL OR ES_MULTILINE;
CS_OFF = CS_OWNDC or CS_CLASSDC or CS_GLOBALCLASS;
CS_ON = CS_VREDRAW or CS_HREDRAW or CS_PARENTDC or WS_CHILD;
CS_Start = WS_CHILD or ES_AUTOHSCROLL OR ES_AUTOVSCROLL OR ES_MULTILINE OR ES_LEFT;
EdiTText : Pchar = 'This is an edit text...';
Matchtext = 'Left align in attribute';
NoMatchText = 'Left align not in attribute';
Function EditCreate (ParentWindow : HWnd) : HWnd;
Var
hedit : HWND;
R : TRect;
DC : HDC;
ta : longint;
Procedure AddText (S : String);
begin
S:=S+#0;
SendMessage(HEdit,em_replacesel,0,longint(pchar(@S[1])));
end;
begin
GetClientRect(ParentWindow,@r);
HEdit:=CreateWindow ('EDIT',EditText, CS_START AND NOT CS_OFF OR CS_ON,
GetClientRect(ParentWindow,@r);
ta:=CS_START; // AND NOT CS_OFF OR CS_ON;
HEdit:=CreateWindow ('EDIT',EditText, ta,
0,0,R.RIght-R.Left,R.Bottom-R.top-16,ParentWindow,0,system.MainInstance,nil);
If Hedit<>0 then begin
showwindow(Hedit,cmdShow);
updateWindow(HEdit);
end;
Result:=HEdit;
dc:=getwindowdc(Hedit);
settextalign (dc,DT_Left);
end;
function WinCreate:HWnd;
@ -168,11 +198,13 @@ Halt (AMessage.wParam);
end.
{
$Log$
Revision 1.3 1999-06-28 16:15:11 peter
Revision 1.4 1999-07-16 12:20:57 michael
+ Added saving in fixed file
Revision 1.3 1999/06/28 16:15:11 peter
* fixed dup id
Revision 1.2 1999/05/03 18:04:39 peter
* updates
}
}