/dports/lang/fpc-source/fpc-3.2.2/packages/amunits/examples/otherlibs/ |
H A D | demo.pas | 64 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 D | slider.pas | 19 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 D | gadgetdemo.pas | 57 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 D | palette.pas | 20 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 D | scroller.pas | 19 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 D | checkbox.pas | 20 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 D | string.pas | 19 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 D | tritongadgets.pas | 34 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 D | progindex.pas | 49 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 D | listview.pas | 31 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 D | linklib.pas | 180 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 D | envprint.pas | 53 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 D | uGame.pas | 48 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 D | uTeams.pas | 98 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 D | uStore.pas | 515 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 D | uGearsHedgehog.pas | 54 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 D | uChat.pas | 567 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 D | uGears.pas | 288 … 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 D | uInputHandler.pas | 133 KeyBindToName:= trmsg[sidUnknownKey] 145 KeyBindToName:= trmsg[sidUnknownKey];
|
/dports/games/hedgewars/hedgewars-src-1.0.0/hedgewars/ |
H A D | uGame.pas | 48 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 D | uTeams.pas | 98 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 D | uStore.pas | 515 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 D | uGearsHedgehog.pas | 54 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 D | uChat.pas | 567 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 D | uGears.pas | 288 … 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));
|