TextHeight = 12
object StatusBar: TStatusBar
Left = 0
- Top = 241
+ Top = 233
Width = 526
Height = 19
Panels = <
Left = 0
Top = 46
Width = 526
- Height = 170
+ Height = 162
Align = alClient
BevelOuter = bvNone
BorderWidth = 2
TabOrder = 4
object tabChannel: TTabControl
Left = 2
- Top = 142
+ Top = 134
Width = 522
Height = 26
Align = alBottom
Left = 2
Top = 2
Width = 522
- Height = 140
+ Height = 132
Cursor = crIBeam
Align = alClient
Caret.AutoCursor = True
end
object pnlPanel: TPanel
Left = 0
- Top = 216
+ Top = 208
Width = 526
Height = 25
Align = alBottom
object mnClear: TMenuItem
Action = actClear
end
- object N9: TMenuItem
- Caption = '-'
- end
- object mnColorScript: TMenuItem
- Caption = #12473#12463#12522#12503#12488#12398#33394#20998#12369#12434#34892#12358'(&F)'
- Checked = True
- Hint = #12473#12463#12522#12503#12488#12398#33394#20998#12369#12434#34892#12358
- ShortCut = 16468
- end
end
object mnHelp: TMenuItem
Caption = #12504#12523#12503'(&H)'
end
object actSend: TAction
Caption = #36865#20449'(&S)'
- Hint = #36865#20449'|Bottle'#12398#36865#20449
+ Hint = #36865#20449'|'#12508#12488#12523#12398#36865#20449
ImageIndex = 10
ShortCut = 120
OnExecute = actSendExecute
end
object actConfirm: TAction
Caption = #30906#35469'(&L)'
- Hint = #30906#35469'|'#12525#12540#12459#12523#12395'SSTP'#12434#30330#34892#12375#12390#25991#12398#30906#35469
+ Hint = #30906#35469'|'#12525#12540#12459#12523#12395'SSTP'#12434#30330#34892#12375#12390#25991#12473#12463#12522#12503#12488#12398#30906#35469
ImageIndex = 13
ShortCut = 16460
OnExecute = actConfirmExecute
OnExecute = actExitClientExecute
end
object actClearBottles: TAction
- Caption = #26410#37197#36865'Bottle'#21066#38500'(&D)'
+ Caption = #26410#37197#36865#12508#12488#12523#21066#38500'(&D)'
Hint = #12414#12384#37197#36865#12373#12428#12390#12356#12394#12356'Bottle'#12364#12354#12428#12400#12289#12381#12428#12434#20840#37096#28040#21435#12375#12414#12377#12290
ImageIndex = 21
OnExecute = actClearBottlesExecute
end
object actReplace: TAction
Caption = #32622#25563'(&H)...'
- Hint = #12473#12463#12522#12503#12488#12398#25991#23383#21015#12398#32622#25563#12434#34892#12356#12414#12377
+ Hint = #12473#12463#12522#12503#12488#25991#23383#21015#12398#32622#25563#12434#34892#12358
OnExecute = actReplaceExecute
end
end
Left = 8
Top = 72
Bitmap = {
- 494C01012C003100040010001000FFFFFFFFFF00FFFFFFFFFFFFFFFF424D3600
+ 494C01012C003100040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
000000000000360000002800000040000000D0000000010020000000000000D0
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
C001FFFFFC018000C001FB7FFC010000C001F93FFC010000C001F81F00010000
C001800F00010001C001800700010003C001800300010003C001800700030003
C001800F00070003C001F81F000F0FC3C001F93F00FF0003C003FB7F01FF8007
- C007FFFF03FFF87FC00FFFFFFFFFFFFF}
+ C007FFFF03FFF87FC00FFFFFFFFFFFFF00000000000000000000000000000000
+ 000000000000}
end
object mnPopupConst: TPopupMenu
Images = imgIcon
end
object IdSLPP20: TIdSLPP20
MaxLineAction = maException
- ReadTimeout = 0
Host = 'bottle.mikage.to'
DebugMode = False
ProxyMode = False
unit MainForm;
+{
+\83A\83v\83\8a\83P\81[\83V\83\87\83\93\82Ì\83\81\83C\83\93\83t\83H\81[\83\80\81B
+\91\97\90M\81E\8eó\90M\81E\83{\83g\83\8b\94z\91\97\8aÖ\8cW\82Ì\82¢\82ë\82¢\82ë\82È\8f\88\97\9d\82ð\8ds\82¤\81B
+}
+
interface
uses
mnSend: TMenuItem;
mnConfirm: TMenuItem;
mnClear: TMenuItem;
- N9: TMenuItem;
imgIcon: TImageList;
mnPopupConst: TPopupMenu;
actEditConst: TAction;
ConstMenuBar: TMenuBar;
mnGoToHP: TMenuItem;
LabelTimer: TTimer;
- mnColorScript: TMenuItem;
mnCopyAll: TMenuItem;
actCopyAll: TAction;
actCopyAllNoReturn: TAction;
procedure ReplaceDialogFind(Sender: TObject);
procedure ReplaceDialogReplace(Sender: TObject);
private
- FSleeping: boolean;
+ FSleeping: boolean; // \94z\91\97\83X\83\8a\81[\83v\92\86\82©\82Ç\82¤\82©
FStatusText: String;
FConnecting: boolean;
FAdded: boolean;
FBooted: boolean; //\8f\89\89ñ\8bN\93®\92Ê\90M\97p
FOriginalCaption: String;
- FAutoAddAfterGetChannel: boolean;
+ FAutoAddAfterGetChannel: boolean; //\83`\83\83\83\93\83l\83\8b\8eæ\93¾\8cã\82É\83_\83C\83A\83\8d\83O\82È\82µ\82É
+ //\83`\83\83\83\93\83l\83\8b\82É\8eQ\89Á\82·\82é\82©\82Ç\82¤\82©
FConstDir: String;
FSppDir: String;
//
FMutex: THandle; //Mutex\83I\83u\83W\83F\83N\83g\81c\93ñ\8fd\8bN\93®\96h\8e~\97p
//
FNowChannel: String; //\8c»\8dÝ\91I\91ð\82³\82ê\82Ä\82¢\82é\83`\83\83\83\93\83l\83\8b
- JoinChannelsBackup: TStringList; //
+ JoinChannelsBackup: TStringList; //\88ê\8e\9e\8eg\97p
//
FScriptModified: boolean; // \83X\83N\83\8a\83v\83g\82ª\95Ï\8dX\82³\82ê\82Ä\82¢\82é\82©\82Ç\82¤\82©\81B
// \83\8d\81[\83J\83\8b\8am\94F\8b\90§\97p\83t\83\89\83O\81BTRichEdit.Modified\82Í
FDragTabIndex: integer; //\83^\83u\83h\83\89\83b\83O\83h\83\8d\83b\83v\8aÖ\98A
FDragTabDest: integer; //\83h\83\8d\83b\83v\82·\82é\88Ê\92u(\82·\82®\89E\82É\82\82é\83^\83u\82Ì\83C\83\93\83f\83b\83N\83X)
//
- FBottleSstp: TBottleSstp; // \83X\83\8c\83b\83h\94Å\8dÄ\91\97\83v\83\8d\83O\83\89\83\80
+ FBottleSstp: TBottleSstp; // \8dÄ\91\97\83v\83\8d\83O\83\89\83\80
//
FHttp: THTTPDownloadThread; //HTTP\83_\83E\83\93\83\8d\81[\83h\83X\83\8c\83b\83h(\83C\83\93\83X\83^\83\93\83X\82Í1\8cÂ\82Ì\82Ý)
FBeginConnectFailCount: integer; //\89½\93x\82à\90Ú\91±\8e¸\94s\82µ\82½\82ç\83\8a\83g\83\89\83C\92\86\8e~
//
FScriptBuffer: TObjectList; //\83X\83N\83\8a\83v\83g\83N\83\8a\83A\83o\83b\83t\83@
//
+ //\88È\89º\81A\8d\91\90¨\92²\8d¸\82ð\89ß\93x\82É\91\97\90M\82µ\82È\82¢\82½\82ß\82Ì\95Ï\90\94
FLastGhostList: String; //\83S\81[\83X\83g\83\8a\83X\83g\82Ì\95¶\8e\9a\97ñ
FLastGhostListSend: Int64; //\8d\91\90¨\92²\8d¸\82ð\8dÅ\8cã\82É\91\97\90M\82µ\82½\8e\9e\8d\8f
//
PanelConnecting = 0; //\81u\90Ú\91±\92\86\81v\95\\8e¦\97p
PanelBytes = 1; //\81\9b\81\9b\83o\83C\83g
PanelCount = 2; //Local Proxy\81A\8c»\8dÝ\81\9b\8c\8f\91Ò\82¿
- PanelMembers = 3;
+ PanelMembers = 3; //\81\9b\81\9b\90l
PanelStatus = 4; //SSTP Bottle\83T\81[\83o\82É\93o\98^\82³\82ê\82Ä\82¢\82Ü\82·\81c\82È\82Ç
IconConnected = 17;
mnStayOnTop.Checked := false;
end;
+ // URL\83W\83\83\83\93\83v\90æ\82ð\83q\83\93\83g\95¶\8e\9a\97ñ\82Æ\82µ\82Ä\90Ý\92è
mnGoToHP.Hint := Pref.HomePage;
mnGotoGlog.Hint := Pref.GLogPage;
mnGotoVote.Hint := Pref.VotePage;
mnGetNewId.Enabled := (Pref.LUID = '');
+ // \82³\82\82ç\83X\83N\83\8a\83v\83g\89ð\90Í\83p\83^\81[\83\93\82ð\93Ç\82Ý\8d\9e\82Ý
try
SsParser.TagPattern.LoadFromFile(ExtractFilePath(Application.Exename) + 'tagpat.txt');
SsParser.MetaPattern.LoadFromFile(ExtractFilePath(Application.ExeName) + 'metapat.txt');
Application.Terminate;
end;
+ // \83\81\83C\83\93\83E\83B\83\93\83h\83E\82Ì\88Ê\92u\82Æ\83T\83C\83Y\82ð\95\9c\8bA
with Pref.SenderWindowPosition do begin
Self.Left := Left;
Self.Top := Top;
// \83^\83X\83N\83o\81[\82Ì\8dÄ\8bN\93®(Explorer\82ª\97\8e\82¿\82½\82Æ\82«)\82ð\8c\9f\8fo\82·\82é
FWM_TaskBarCreated := RegisterWindowMessage('TaskBarCreated');
+ // \83X\83N\83\8a\83v\83g\95¶\8e\9a\97ñ\82Ì\8f\89\8aú\89»
actClearExecute(Sender);
+ // \83^\83X\83N\83g\83\8c\83C\82É\83A\83C\83R\83\93\82ð\92Ç\89Á
ChangeTaskIcon;
+ // \83`\83\83\83\93\83l\83\8b\8eQ\89Á\8aÖ\8cW\82Ì\83^\83u\82Ì\8f\88\97\9d\82È\82Ç(\83`\83\83\83\93\83l\83\8b\95s\8eQ\89Á\82Å\8f\89\8aú\89»)
UpdateJoinChannelList(nil);
// SSTP\8dÄ\91\97\83I\83u\83W\83F\83N\83g
actStart.Enabled := true;
actStop.Enabled := true;
actSend.Enabled := true;
- //actVoteMessage.Enabled := true;
- //actAgreeMessage.Enabled := true;
frmLog.lvwLogChange(Self, nil, ctState);
mnGetNewId.Enabled := Pref.LUID = '';
Screen.Cursor := crDefault;
end;
end;
+// \83\81\83b\83Z\81[\83W\91\97\90M
procedure TfrmSender.actSendExecute(Sender: TObject);
var Talk, Ghost: String;
Command: TStringList;
EditorPreview;
end;
+// \83v\83\89\83O\83C\83\93\83\8a\83Z\83b\83g
procedure TfrmSender.actResetPluginsExecute(Sender: TObject);
begin
Spps.ClearImagePool;
ShowHintLabel('SSTP Bottle\83T\81[\83o\82ª\8c©\82Â\82©\82è\82Ü\82µ\82½');
end;
+// \83X\83N\83\8a\83v\83g\92\86\82Ì\83^\83O\82ð\92u\8a·\82·\82é
+// \83T\83C\83Y\89Â\95Ï\82Ì\94z\97ñ\83p\83\89\83\81\81[\83^\94Å
function TfrmSender.TagReplace(Script: String; Before,
After: array of String): String;
var BeforeList, AfterList: TStringList;
end;
end;
+// \83X\83N\83\8a\83v\83g\92\86\82Ì\83^\83O\82ð\92u\8a·\82·\82é
+// StringReplace\82Æ\88á\82Á\82Ä\90³\8am\82É\83^\83O\82É\83}\83b\83`\82µ\81A
+// \82Ü\82½\83p\83^\81[\83\93\82ð\95¡\90\94\8ew\92è\82Å\82«\82é(\92u\8a·\8cã\82Ì\8c\8b\89Ê\82ª\82Ü\82½\92u\8a·\82³\82ê\82½\82è\82µ\82È\82¢)
function TfrmSender.TagReplace(Script: String; Before,
After: TStrings): String;
var i, j: integer;
end;
end;
+// WndProc\82ð\83I\81[\83o\81[\83\89\83C\83h\82µ\82Ä\81AFWM_TaskBarCraeted\82É
+// \91Î\89\9e\82·\82é
procedure TfrmSender.WndProc(var Message: TMessage);
begin
if (Message.Msg = FWM_TaskBarCreated) and (FWM_TaskBarCreated <> 0) then
inherited;
end;
+// \8c\9f\8dõ\81E\92u\8a·\83_\83C\83A\83\8d\83O\82ð\8f\89\8aú\89»\82µ\82Ä\95\\8e¦
procedure TfrmSender.actReplaceExecute(Sender: TObject);
begin
with ReplaceDialog do
end;
end;
+// \8c\9f\8dõ\81E\92u\8a·
procedure TfrmSender.ReplaceDialogFind(Sender: TObject);
var Opt: TSearchOptions;
begin
memScript.Search(ReplaceDialog.FindText, Opt);
end;
+// \8c\9f\8dõ\81E\92u\8a·
procedure TfrmSender.ReplaceDialogReplace(Sender: TObject);
var Opt: TSearchOptions;
begin
OSDN Git Service
