Home
last modified time | relevance | path

Searched refs:trmsg (Results 1 – 25 of 45) sorted by relevance

12

/dports/lang/fpc-source/fpc-3.2.2/packages/amunits/examples/otherlibs/
H A Ddemo.pas64 trmsg : pTR_Message;
90 trmsg := TR_GetMsg(app);
99 TR_ReplyMsg(trmsg);
113 trmsg : pTR_Message;
203 TR_ReplyMsg(trmsg);
215 trmsg : pTR_Message;
272 TR_ReplyMsg(trmsg);
573 TR_ReplyMsg(trmsg);
630 TR_ReplyMsg(trmsg);
717 TR_ReplyMsg(trmsg);
[all …]
H A Dslider.pas19 trmsg : pTR_Message;
69 trmsg := TR_GetMsg(Triton_App);
70 IF trmsg <> NIL THEN BEGIN
71 IF (trmsg^.trm_Project = Project) THEN BEGIN
72 CASE trmsg^.trm_Class OF
77 TRMS_ERROR: WriteLN(TR_GetErrorString(trmsg^.trm_Data));
79 IF trmsg^.trm_ID = 1 then begin
80 writeln(' The number is: ' ,trmsg^.trm_Data);
81 TR_SetText(Project,2,IntToStr(trmsg^.trm_Data));
86 TR_ReplyMsg(trmsg);
[all …]
H A Dgadgetdemo.pas57 trmsg : pTR_Message;
201 trmsg := TR_GetMsg(Triton_App);
202 IF trmsg <> NIL THEN BEGIN
203 IF (trmsg^.trm_Project = Project) THEN BEGIN
204 CASE trmsg^.trm_Class OF
216 GadID := trmsg^.trm_ID;
221 dummy := trmsg^.trm_Data;
250 TR_SetValue(project,MxGadID,(trmsg^.trm_Data));
258 GadID := trmsg^.trm_ID;
279 TR_ReplyMsg(trmsg);
[all …]
H A Dpalette.pas20 trmsg : pTR_Message;
59 trmsg := TR_GetMsg(Triton_App);
60 IF trmsg <> NIL THEN BEGIN
61 IF (trmsg^.trm_Project = Project) THEN BEGIN
62 CASE trmsg^.trm_Class OF
67 TRMS_ERROR: WriteLN(TR_GetErrorString(trmsg^.trm_Data));
68 … TRMS_NEWVALUE : IF trmsg^.trm_ID = 7 then writeln('You picked colour ',trmsg^.trm_Data);
71 TR_ReplyMsg(trmsg);
73 UNTIL close_me OR (trmsg = NIL);
H A Dscroller.pas19 trmsg : pTR_Message;
62 trmsg := TR_GetMsg(App);
63 IF trmsg <> NIL THEN BEGIN
64 IF (trmsg^.trm_Project = Project) THEN BEGIN
65 CASE trmsg^.trm_Class OF
70 TRMS_ERROR: WriteLN(TR_GetErrorString(trmsg^.trm_Data));
71 … TRMS_NEWVALUE : IF trmsg^.trm_ID = 7 then writeln(' The value is: ' ,trmsg^.trm_Data);
74 TR_ReplyMsg(trmsg);
76 UNTIL close_me OR (trmsg = NIL);
H A Dcheckbox.pas20 trmsg : pTR_Message;
66 trmsg := TR_GetMsg(App);
67 IF trmsg <> NIL THEN BEGIN
68 IF (trmsg^.trm_Project = Project) THEN BEGIN
69 CASE trmsg^.trm_Class OF
77 TRMS_ERROR: WriteLN(TR_GetErrorString(trmsg^.trm_Data));
79 IF trmsg^.trm_ID = 10 then begin
80 if trmsg^.trm_Data = 0 then
88 TR_ReplyMsg(trmsg);
90 UNTIL close_me OR (trmsg = NIL);
H A Dstring.pas19 trmsg : pTR_Message;
57 trmsg := TR_GetMsg(App);
58 IF trmsg <> NIL THEN BEGIN
59 IF (trmsg^.trm_Project = Project) THEN BEGIN
60 CASE trmsg^.trm_Class OF
65 TRMS_ERROR: WriteLN(TR_GetErrorString(trmsg^.trm_Data));
66 …TRMS_NEWVALUE : IF trmsg^.trm_ID = 3 then writeln('<RETURN> or <TAB> was pressed in stringgadge…
69 TR_ReplyMsg(trmsg);
71 UNTIL close_me OR (trmsg = NIL);
H A Dtritongadgets.pas34 trmsg : pTR_Message;
136 trmsg := TR_GetMsg(Triton_App);
137 IF trmsg <> NIL THEN BEGIN
138 IF (trmsg^.trm_Project = Project) THEN BEGIN
139 CASE trmsg^.trm_Class OF
145 case trmsg^.trm_ID of
148 writeln('Slider at level ',trmsg^.trm_Data);
157 if trmsg^.trm_ID = MYGAD_BUTTON then begin
163 TRMS_ERROR: WriteLN(TR_GetErrorString(trmsg^.trm_Data));
166 TR_ReplyMsg(trmsg);
[all …]
H A Dprogindex.pas49 trmsg : pTR_Message;
85 trmsg := TR_GetMsg(Triton_App);
86 IF trmsg <> NIL THEN BEGIN
87 IF (trmsg^.trm_Project = Project) THEN BEGIN
88 CASE trmsg^.trm_Class OF
89 TRMS_ERROR: WriteLN(TR_GetErrorString(trmsg^.trm_Data));
92 CASE trmsg^.trm_ID OF
99 TR_ReplyMsg(trmsg);
101 UNTIL close_me OR (trmsg = NIL);
H A Dlistview.pas31 trmsg : pTR_Message;
89 trmsg := TR_GetMsg(Triton_App);
90 IF trmsg <> NIL THEN BEGIN
91 IF (trmsg^.trm_Project = Project) THEN BEGIN
92 CASE trmsg^.trm_Class OF
99 TRMS_ERROR: WriteLN(TR_GetErrorString(trmsg^.trm_Data));
100 …TRMS_NEWVALUE : IF trmsg^.trm_ID = 7 then writeln('You picked number: ',TR_GetValue(Project,7));
103 TR_ReplyMsg(trmsg);
105 UNTIL close_me OR (trmsg = NIL);
H A Dlinklib.pas180 trmsg : pTR_Message;
228 trmsg := TR_GetMsg(Triton_App);
229 IF trmsg <> NIL THEN BEGIN
230 IF (trmsg^.trm_Project = Project) THEN BEGIN
231 CASE trmsg^.trm_Class OF
233 TRMS_ERROR: WriteLN(TR_GetErrorString(trmsg^.trm_Data));
236 CASE trmsg^.trm_ID OF
249 TR_ReplyMsg(trmsg);
251 UNTIL close_me OR (trmsg = NIL);
H A Denvprint.pas53 trmsg : pTR_Message;
338 trmsg := TR_GetMsg(Triton_App);
339 IF trmsg <> NIL THEN BEGIN
340 IF (trmsg^.trm_Project = Project) THEN BEGIN
341 CASE trmsg^.trm_Class OF
343 TRMS_ERROR: WriteLN(TR_GetErrorString(trmsg^.trm_Data));
346 TR_ReplyMsg(trmsg);
348 UNTIL close_me OR (trmsg = NIL);
/dports/games/hedgewars-server/hedgewars-src-1.0.0/hedgewars/
H A DuGame.pas48 AddCaption(trmsg[sidMute], capcolSetting, capgrpVolume)
52 AddCaption(FormatA(trmsg[sidVolume], s), capcolSetting, capgrpVolume)
59 AddCaption(trmsg[sidMute], capcolSetting, capgrpVolume)
63 AddCaption(FormatA(trmsg[sidVolume], s), capcolSetting, capgrpVolume);
H A DuTeams.pas98 SendStat(siGameResult, shortstring(trmsg[sidDraw]));
116 s:= FormatA(trmsg[sidWinner], s);
130 s:= trmsg[sidWinnerAll];
136 s:= FormatA(trmsg[TMsgStrId(sidWinner2)], ts[0], ts[1])
138 s:= FormatA(trmsg[TMsgStrId(sidWinner3)], ts[0], ts[1], ts[2])
140 s:= FormatA(trmsg[TMsgStrId(sidWinner4)], ts[0], ts[1], ts[2], ts[3])
142 s:= FormatA(trmsg[TMsgStrId(sidWinner5)], ts[0], ts[1], ts[2], ts[3], ts[4])
144 … s:= FormatA(trmsg[TMsgStrId(sidWinner6)], ts[0], ts[1], ts[2], ts[3], ts[4], ts[5])
480 AddCaption(FormatA(trmsg[sidReady], s), capcolDefault, capgrpGameState)
944 AddChatString(#7 + Format('* '+shortstring(trmsg[sidTeamGone]), TeamName));
[all …]
H A DuStore.pas515 PauseTexture:= RenderStringTex(trmsg[sidPaused], cCentralMessageColor, fntBig);
516 AFKTexture:= RenderStringTex(trmsg[sidAFK], cCentralMessageColor, fntBig);
519 …ConfirmTexture:= RenderStringTex(FormatA(trmsg[sidConfirm], ansistring(keyConfirm), ansistring(key…
520 SyncTexture:= RenderStringTex(trmsg[sidSync], cCentralMessageColor, fntBig);
541 …TF_RenderUTF8_Blended(Fontz[CheckCJKFont(trmsg[sidAmmoCount],fnt16)].Handle, Str2PChar(Format(shor…
932 LoadingText:= RenderStringTex(trmsg[sidLoading], $FFF39EE8, fntBig);
1151 extra:= trmsg[sidNotAvailableInSD]
1153 extra:= trmsg[sidNotYetAvailable];
1159 extra:= trmsg[sidNoEndTurn];
H A DuGearsHedgehog.pas54 AddChatString(#2 + Format(shortstring(trmsg[sidAutoSkip]), CurrentTeam^.TeamName));
190 AddCaption(FormatA(trmsg[sidBounce], trmsg[sidBounce1]), color, capgrpAmmostate);
193 AddCaption(FormatA(trmsg[sidBounce], trmsg[sidBounce2]), color, capgrpAmmostate);
196 AddCaption(FormatA(trmsg[sidBounce], trmsg[sidBounce3]), color, capgrpAmmostate);
199 AddCaption(FormatA(trmsg[sidBounce], trmsg[sidBounce4]), color, capgrpAmmostate);
202 AddCaption(FormatA(trmsg[sidBounce], trmsg[sidBounce5]), color, capgrpAmmostate);
574 … AddChatString(#9+Format(shortstring(trmsg[sidChatHog]), Gear^.Hedgehog^.Name, SpeechText));
618 AddCaption(formatA(trmsg[sidRemaining], s), capcolDefault, capgrpAmmostate);
765 s:= trmsg[sidEmptyCrate]
H A DuChat.pas567 AddChatString(#3 + shortstring(trmsg[sidLuaParsingOn]));
572 AddChatString(#3 + shortstring(trmsg[sidLuaParsingOff]));
577 AddChatString(#5 + shortstring(trmsg[sidLuaParsingDenied]));
1165 s:= #1 + Format(shortstring(trmsg[sidChat]), UserNick, s);
1174 s:= #4 + Format(shortstring(trmsg[sidChatTeam]), UserNick, s);
H A DuGears.pas288 … curHandledGear^.Tex:= RenderStringTex(trmsg[sidUnknownGearValue], $ff808080, fntSmall)
449 AddCaption(trmsg[sidRoundSD], capcolDefault, capgrpGameState)
451 AddCaption(FormatA(trmsg[sidRoundsSD], s), capcolDefault, capgrpGameState);
1265 AddCaption(trmsg[sidSuddenDeath], capcolDefault, capgrpGameState);
1379 AddChatString(#9+Format(shortstring(trmsg[sidChatHog]), HH^.Name, text));
H A DuInputHandler.pas133 KeyBindToName:= trmsg[sidUnknownKey]
145 KeyBindToName:= trmsg[sidUnknownKey];
/dports/games/hedgewars/hedgewars-src-1.0.0/hedgewars/
H A DuGame.pas48 AddCaption(trmsg[sidMute], capcolSetting, capgrpVolume)
52 AddCaption(FormatA(trmsg[sidVolume], s), capcolSetting, capgrpVolume)
59 AddCaption(trmsg[sidMute], capcolSetting, capgrpVolume)
63 AddCaption(FormatA(trmsg[sidVolume], s), capcolSetting, capgrpVolume);
H A DuTeams.pas98 SendStat(siGameResult, shortstring(trmsg[sidDraw]));
116 s:= FormatA(trmsg[sidWinner], s);
130 s:= trmsg[sidWinnerAll];
136 s:= FormatA(trmsg[TMsgStrId(sidWinner2)], ts[0], ts[1])
138 s:= FormatA(trmsg[TMsgStrId(sidWinner3)], ts[0], ts[1], ts[2])
140 s:= FormatA(trmsg[TMsgStrId(sidWinner4)], ts[0], ts[1], ts[2], ts[3])
142 s:= FormatA(trmsg[TMsgStrId(sidWinner5)], ts[0], ts[1], ts[2], ts[3], ts[4])
144 … s:= FormatA(trmsg[TMsgStrId(sidWinner6)], ts[0], ts[1], ts[2], ts[3], ts[4], ts[5])
480 AddCaption(FormatA(trmsg[sidReady], s), capcolDefault, capgrpGameState)
944 AddChatString(#7 + Format('* '+shortstring(trmsg[sidTeamGone]), TeamName));
[all …]
H A DuStore.pas515 PauseTexture:= RenderStringTex(trmsg[sidPaused], cCentralMessageColor, fntBig);
516 AFKTexture:= RenderStringTex(trmsg[sidAFK], cCentralMessageColor, fntBig);
519 …ConfirmTexture:= RenderStringTex(FormatA(trmsg[sidConfirm], ansistring(keyConfirm), ansistring(key…
520 SyncTexture:= RenderStringTex(trmsg[sidSync], cCentralMessageColor, fntBig);
541 …TF_RenderUTF8_Blended(Fontz[CheckCJKFont(trmsg[sidAmmoCount],fnt16)].Handle, Str2PChar(Format(shor…
932 LoadingText:= RenderStringTex(trmsg[sidLoading], $FFF39EE8, fntBig);
1151 extra:= trmsg[sidNotAvailableInSD]
1153 extra:= trmsg[sidNotYetAvailable];
1159 extra:= trmsg[sidNoEndTurn];
H A DuGearsHedgehog.pas54 AddChatString(#2 + Format(shortstring(trmsg[sidAutoSkip]), CurrentTeam^.TeamName));
190 AddCaption(FormatA(trmsg[sidBounce], trmsg[sidBounce1]), color, capgrpAmmostate);
193 AddCaption(FormatA(trmsg[sidBounce], trmsg[sidBounce2]), color, capgrpAmmostate);
196 AddCaption(FormatA(trmsg[sidBounce], trmsg[sidBounce3]), color, capgrpAmmostate);
199 AddCaption(FormatA(trmsg[sidBounce], trmsg[sidBounce4]), color, capgrpAmmostate);
202 AddCaption(FormatA(trmsg[sidBounce], trmsg[sidBounce5]), color, capgrpAmmostate);
574 … AddChatString(#9+Format(shortstring(trmsg[sidChatHog]), Gear^.Hedgehog^.Name, SpeechText));
618 AddCaption(formatA(trmsg[sidRemaining], s), capcolDefault, capgrpAmmostate);
765 s:= trmsg[sidEmptyCrate]
H A DuChat.pas567 AddChatString(#3 + shortstring(trmsg[sidLuaParsingOn]));
572 AddChatString(#3 + shortstring(trmsg[sidLuaParsingOff]));
577 AddChatString(#5 + shortstring(trmsg[sidLuaParsingDenied]));
1165 s:= #1 + Format(shortstring(trmsg[sidChat]), UserNick, s);
1174 s:= #4 + Format(shortstring(trmsg[sidChatTeam]), UserNick, s);
H A DuGears.pas288 … curHandledGear^.Tex:= RenderStringTex(trmsg[sidUnknownGearValue], $ff808080, fntSmall)
449 AddCaption(trmsg[sidRoundSD], capcolDefault, capgrpGameState)
451 AddCaption(FormatA(trmsg[sidRoundsSD], s), capcolDefault, capgrpGameState);
1265 AddCaption(trmsg[sidSuddenDeath], capcolDefault, capgrpGameState);
1379 AddChatString(#9+Format(shortstring(trmsg[sidChatHog]), HH^.Name, text));

12