Doblog - ＳＥの良心 -

[ 16:18 ] [ ＰＧのお仕事 ]

[ スライドショウ ]

[関連したBlog：Delphi7のRave Reports5の日本語環境]object RavePreviewForm: TRavePreviewForm
Left = 303
Top = 219
Width = 615
Height = 450
Caption = 'レポートプレビュー'
Color = clBtnFace
Font.Charset = SHIFTJIS_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS UI Gothic'
Font.Style = []
KeyPreview = True
Menu = MainMenu1
OldCreateOrder = True
Position = poScreenCenter
Scaled = False
WindowState = wsMaximized
OnClose = FormClose
OnCreate = FormCreate
OnKeyDown = FormKeyDown
OnKeyPress = FormKeyPress
PixelsPerInch = 96
TextHeight = 16
object ScrollBox1: TScrollBox
Left = 0
Top = 25
Width = 607
Height = 360
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 0
end
object sbarMain: TStatusBar
Left = 0
Top = 385
Width = 607
Height = 19
Panels = <>
SimplePanel = False
end
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 607
Height = 25
ButtonHeight = 24
Caption = 'ToolBar1'
Flat = True
Images = ilstActions
ParentShowHint = False
ShowHint = True
TabOrder = 2
object ToolButton1: TToolButton
Left = 0
Top = 0
Action = actnFile_Open
end
object ToolButton2: TToolButton
Left = 23
Top = 0
Action = actnFile_Save
end
object ToolButton3: TToolButton
Left = 46
Top = 0
Action = actnFile_Print
end
object ToolButton4: TToolButton
Left = 69
Top = 0
Width = 8
Caption = 'ToolButton4'
ImageIndex = 3
Style = tbsSeparator
end
object ToolButton5: TToolButton
Left = 77
Top = 0
Action = actnPage_First
end
object ToolButton6: TToolButton
Left = 100
Top = 0
Action = actnPage_Previous
end
object ToolButton7: TToolButton
Left = 123
Top = 0
Action = actnPage_Next
end
object ToolButton8: TToolButton
Left = 146
Top = 0
Action = actnPage_Last
end
object Panel1: TPanel
Left = 169
Top = 0
Width = 45
Height = 24
BevelOuter = bvNone
BorderWidth = 3
Caption = 'ページ'
TabOrder = 3
end
object PageEdit: TEdit
Left = 214
Top = 0
Width = 49
Height = 24
TabOrder = 1
OnExit = PageEditExit
OnKeyDown = FormKeyDown
OnKeyPress = PageEditKeyPress
end
object PageLabel: TPanel
Left = 263
Top = 0
Width = 51
Height = 24
Alignment = taLeftJustify
BevelOuter = bvNone
BorderWidth = 3
Caption = 'of 3000'
TabOrder = 2
end
object ToolButton10: TToolButton
Left = 314
Top = 0
Width = 8
Caption = 'ToolButton10'
ImageIndex = 8
Style = tbsSeparator
end
object ToolButton11: TToolButton
Left = 322
Top = 0
Action = actnZoom_In
end
object ToolButton12: TToolButton
Left = 345
Top = 0
Action = actnZoom_Out
end
object ToolButton13: TToolButton
Left = 368
Top = 0
Action = actnZoom_PageWidth
end
object ToolButton14: TToolButton
Left = 391
Top = 0
Action = actnZoom_Page
end
object Panel3: TPanel
Left = 414
Top = 0
Width = 42
Height = 24
BevelOuter = bvNone
BorderWidth = 3
Caption = 'ズーム'
TabOrder = 5
end
object ZoomEdit: TEdit
Left = 456
Top = 0
Width = 40
Height = 24
TabOrder = 0
Text = '100.0'
OnExit = ZoomEditExit
OnKeyDown = FormKeyDown
OnKeyPress = ZoomEditKeyPress
end
object Panel2: TPanel
Left = 496
Top = 0
Width = 18
Height = 24
BevelOuter = bvNone
BorderWidth = 3
Caption = '%'
TabOrder = 4
end
object ToolButton9: TToolButton
Left = 514
Top = 0
Width = 8
Caption = 'ToolButton9'
ImageIndex = 31
Style = tbsSeparator
end
object ToolButton15: TToolButton
Left = 522
Top = 0
Action = actnFile_Exit
end
end

object ActionList1: TActionList
Images = ilstActions
Left = 26
Top = 35
object actnFile_Print: TAction
Category = 'ファイル'
Caption = '印刷(&P)'
Hint = 'レポート印刷'
ImageIndex = 8
ShortCut = 16464
OnExecute = actnFile_PrintExecute
OnUpdate = actnFile_PrintUpdate
end
object actnFile_Save: TAction
Category = 'ファイル'
Caption = '名前を付けて保存(&S)'
Hint = 'レポート保存'
ImageIndex = 6
ShortCut = 16467
OnExecute = actnFile_SaveExecute
OnUpdate = actnFile_SaveUpdate
end
object actnFile_Exit: TAction
Category = 'ファイル'
Caption = '終了(&X)'
Hint = 'ビューの終了'
ImageIndex = 34
OnExecute = actnFile_ExitExecute
end
object actnFile_Open: TAction
Category = 'ファイル'
Caption = '開く(&O)'
Hint = '別のファイルをオープン'
ImageIndex = 22
ShortCut = 16463
OnExecute = actnFile_OpenExecute
end
object actnPage_First: TAction
Category = 'ページ'
Caption = '先頭(&F)'
Hint = '先頭ページに移動'
ImageIndex = 10
ShortCut = 16420
OnExecute = actnPage_FirstExecute
OnUpdate = actnPage_FirstUpdate
end
object actnPage_Next: TAction
Category = 'ページ'
Caption = '次を検索(&N)'
Hint = '次のページに移動'
ImageIndex = 14
ShortCut = 16418
OnExecute = actnPage_NextExecute
OnUpdate = actnPage_NextUpdate
end
object actnPage_Previous: TAction
Category = 'ページ'
Caption = '戻る(&P)'
Hint = '前のページに移動'
ImageIndex = 12
ShortCut = 16417
OnExecute = actnPage_PreviousExecute
OnUpdate = actnPage_PreviousUpdate
end
object actnPage_Last: TAction
Category = 'ページ'
Caption = '最後(&L)'
Hint = '最終ページに移動'
ImageIndex = 16
ShortCut = 16419
OnExecute = actnPage_LastExecute
OnUpdate = actnPage_LastUpdate
end
object actnZoom_In: TAction
Category = 'ズーム'
Caption = '拡大(&I)'
Hint = 'Zoom In (+)'
ImageIndex = 20
OnExecute = actnZoom_InExecute
OnUpdate = actnZoom_InUpdate
end
object actnZoom_Out: TAction
Category = 'ズーム'
Caption = '縮小(&O)'
Hint = 'Zoom Out (-)'
ImageIndex = 0
OnExecute = actnZoom_OutExecute
OnUpdate = actnZoom_OutUpdate
end
object actnZoom_PageWidth: TAction
Category = 'ズーム'
Caption = 'ページ幅に収める(&W)'
Hint = '拡大・縮小してページ幅に収める'
ImageIndex = 32
ShortCut = 16471
OnExecute = actnZoom_PageWidthExecute
OnUpdate = actnZoom_PageWidthUpdate
end
object actnZoom_Page: TAction
Category = 'ズーム'
Caption = 'ページに収める(&F)'
Hint = '拡大・縮小してページに収める'
ImageIndex = 30
ShortCut = 16454
OnExecute = actnZoom_PageExecute
OnUpdate = actnZoom_PageUpdate
end
object actnHelp_About: TAction
Category = 'Help'
Caption = '&About'
Hint = 'Displays about box'
end
end
object MainMenu1: TMainMenu
Images = ilstActions
Left = 24
Top = 128
object File1: TMenuItem
Caption = 'ファイル(&F)'
object Open1: TMenuItem
Action = actnFile_Open
end
object SaveAs1: TMenuItem
Action = actnFile_Save
end
object Print1: TMenuItem
Action = actnFile_Print
end
object N1: TMenuItem
Caption = '-'
end
object Exit1: TMenuItem
Action = actnFile_Exit
end
end
object Page1: TMenuItem
Caption = 'ページ(&P)'
object First1: TMenuItem
Action = actnPage_First
end
object Previous1: TMenuItem
Action = actnPage_Previous
end
object Next1: TMenuItem
Action = actnPage_Next
end
object Last1: TMenuItem
Action = actnPage_Last
end
object N2: TMenuItem
Caption = '-'
end
object GotoPage1: TMenuItem
Caption = 'ページ #に移動'
Hint = 'Go to specified page'
ImageIndex = 18
ShortCut = 16455
OnClick = actnPage_GotoPageExecute
end
end
object Zoom1: TMenuItem
Caption = 'ズーム(&Z)'
object In1: TMenuItem
Action = actnZoom_In
end
object Out1: TMenuItem
Action = actnZoom_Out
end
object N3: TMenuItem
Caption = '-'
end
object Page2: TMenuItem
Action = actnZoom_Page
end
object PageWidth1: TMenuItem
Action = actnZoom_PageWidth
end
end
end
object PopupMenu1: TPopupMenu
Images = ilstActions
Left = 24
Top = 176
object In2: TMenuItem
Action = actnZoom_In
end
object Out2: TMenuItem
Action = actnZoom_Out
end
end
object ilstActions: TImageList
Left = 26
Top = 81
Bitmap = {
（略）

end
object dlogOpen: TOpenDialog
DefaultExt = '.ndr'
Filter = 'Rave スナップショットファイル (*.ndr)|*.ndr|All Files|*.*'
FilterIndex = 3
Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing]
Title = 'ファイルを開く'
Left = 258
Top = 31
end
object dlogSave: TSaveDialog
DefaultExt = '.ndr'
Filter =
'Adobe PDF (*.pdf)|*.pdf|HTML Files (One per page)|*.html;*.htm|R' +
'ave Snapshot Files (*.ndr)|*.ndr|All Files|*.*'
FilterIndex = 3
Options = [ofOverwritePrompt, ofHideReadOnly, ofNoReadOnlyReturn, ofEnableSizing]
Title = 'ファイルを保存'
Left = 258
Top = 79
end
object PreviewTimer: TTimer
Interval = 100
OnTimer = PreviewTimerTimer
Left = 416
Top = 40
end
end

[ 更新日時：2008/04/04 16:58 ]

この記事のURL： http://www.doblog.com/weblog/myblog/8821/2522846#2522846
トラックバックURL：http://www.doblog.com/weblog/TrackBackServlet/8821/2522846

[ コメントを見る・書く(0) ]
[ トラックバック(関連するBlog)を見る(0) ] [ トラックバック(関連するBlog)を書く ]

[ ↑ページトップ ]

Rave Reports5のOutPut Optionsダイアログの日本語化

[ 11:18 ] [ ＰＧのお仕事 ]

[ スライドショウ ]

[関連したBlog：Delphi7のRave Reports5の日本語環境]object RPSetupForm: TRPSetupForm
Left = 434
Top = 222
BorderStyle = bsDialog
Caption = '出力オプション'
ClientHeight = 242
ClientWidth = 295
Color = clBtnFace
Font.Charset = SHIFTJIS_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'MS UI Gothic'
Font.Style = []
OldCreateOrder = True
Position = poScreenCenter
Scaled = False
OnCreate = FormCreate
OnKeyPress = FormKeyPress
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object bbtnOK: TButton
Left = 209
Top = 52
Width = 75
Height = 25
Caption = ' OK '
Default = True
TabOrder = 0
OnClick = bbtnOKClick
end
object CancelBB: TButton
Left = 209
Top = 84
Width = 75
Height = 25
Cancel = True
Caption = 'キャンセル'
ModalResult = 2
ParentFont = False
TabOrder = 1
end
object SetupBB: TButton
Left = 209
Top = 116
Width = 75
Height = 25
Caption = '設定(&S)'
TabOrder = 2
OnClick = SetupBBClick
end
object GroupBox1: TGroupBox
Left = 8
Top = 3
Width = 281
Height = 36
Caption = '選択されたプリンタ'
TabOrder = 3
object PrinterLabel: TLabel
Left = 10
Top = 15
Width = 250
Height = 13
AutoSize = False
Caption = '(none)'
end
end
object GroupBox2: TGroupBox
Left = 8
Top = 167
Width = 184
Height = 65
Caption = 'オプション'
TabOrder = 4
object CopiesLabel: TLabel
Left = 17
Top = 19
Width = 33
Height = 14
Caption = 'コピー(&C)'
end
object CopiesED: TEdit
Left = 18
Top = 35
Width = 49
Height = 22
TabOrder = 0
OnKeyPress = FormKeyPress
end
object CollateCK: TCheckBox
Left = 75
Top = 17
Width = 105
Height = 17
Caption = '部単位で印刷(&O)'
TabOrder = 1
end
object DuplexCK: TCheckBox
Left = 75
Top = 40
Width = 105
Height = 17
Caption = '二重化(&D)'
TabOrder = 2
end
end
object PageControl1: TPageControl
Left = 4
Top = 40
Width = 193
Height = 121
ActivePage = TabSheet1
Style = tsButtons
TabOrder = 5
object TabSheet1: TTabSheet
Caption = 'TabSheet1'
TabVisible = False
object DestGB: TGroupBox
Left = 0
Top = 0
Width = 185
Height = 111
Align = alClient
Caption = 'レポート転送先'
TabOrder = 0
object FileNameSB: TSpeedButton
Left = 160
Top = 54
Width = 20
Height = 20
Glyph.Data = {（略）

ParentFont = False
OnClick = FileNameSBClick
end
object Label1: TLabel
Left = 8
Top = 82
Width = 36
Height = 14
Caption = 'フォーマット：'
end
object PrinterRB: TRadioButton
Left = 8
Top = 16
Width = 153
Height = 17
Caption = 'プリンター(&P)'
TabOrder = 0
OnClick = PrinterRBClick
end
object PreviewRB: TRadioButton
Left = 8
Top = 36
Width = 153
Height = 17
Caption = 'プレビュー(&V)'
TabOrder = 1
OnClick = PrinterRBClick
end
object FileRB: TRadioButton
Left = 8
Top = 56
Width = 153
Height = 17
Caption = 'ファイル(&F)'
TabOrder = 2
OnClick = FileRBClick
end
object editFileName: TEdit
Left = 76
Top = 54
Width = 83
Height = 22
TabOrder = 3
OnChange = editFileNameChange
end
object cboxFormat: TComboBox
Left = 76
Top = 79
Width = 104
Height = 22
ItemHeight = 14
TabOrder = 4
Text = 'Rave スナップショットファイル(NDR)'
OnChange = cboxFormatChange
Items.Strings = (
'Rave スナップショットファイル(NDR)'
'ネイティブプリンタ出力')
end
end
end
object TabSheet2: TTabSheet
Caption = 'TabSheet2'
ImageIndex = 1
TabVisible = False
object RangeGB: TGroupBox
Left = 0
Top = 0
Width = 185
Height = 111
Align = alClient
Caption = '印刷範囲'
TabOrder = 0
object FromLabel: TLabel
Left = 8
Top = 84
Width = 23
Height = 13
Caption = 'From'
end
object SelectionLabel: TLabel
Left = 8
Top = 84
Width = 44
Height = 13
Caption = 'ページ選択'
end
object ToLabel: TLabel
Left = 88
Top = 84
Width = 9
Height = 13
Caption = 'to'
end
object SelectionED: TEdit
Left = 70
Top = 80
Width = 99
Height = 21
TabOrder = 5
OnKeyPress = SelectionEDKeyPress
end
object AllRB: TRadioButton
Left = 8
Top = 16
Width = 153
Height = 17
Caption = '全て'
Checked = True
TabOrder = 0
TabStop = True
OnClick = AllRBClick
end
object SelectionRB: TRadioButton
Left = 8
Top = 36
Width = 153
Height = 17
Caption = '選択'
TabOrder = 1
OnClick = SelectionRBClick
end
object PagesRB: TRadioButton
Left = 8
Top = 56
Width = 153
Height = 17
Caption = 'ページ'
TabOrder = 2
OnClick = PagesRBClick
end
object FromED: TEdit
Left = 40
Top = 80
Width = 41
Height = 21
TabOrder = 3
OnKeyPress = FormKeyPress
end
object ToED: TEdit
Left = 104
Top = 80
Width = 57
Height = 21
TabOrder = 4
OnKeyPress = FormKeyPress
end
end
end
end
object dlogSave: TSaveDialog
Filter = 'All Files|*.*'
Options = [ofOverwritePrompt, ofPathMustExist, ofNoReadOnlyReturn]
Left = 240
Top = 8
end
end

[ 更新日時：2008/04/04 16:01 ]

この記事のURL： http://www.doblog.com/weblog/myblog/8821/2522845#2522845
トラックバックURL：http://www.doblog.com/weblog/TrackBackServlet/8821/2522845

[ コメントを見る・書く(0) ]
[ トラックバック(関連するBlog)を見る(0) ] [ トラックバック(関連するBlog)を書く ]

[ ↑ページトップ ]

Delphi7のRave Reports5の日本語環境

[ 19:45 ] [ ＰＧのお仕事 ]

[ スライドショウ ]

Delhpi Ver7 + Rave Reports BE 5.0.04 の環境では、OutPut Optionsダイアログと、Report Previewフォームが日本語化されていない。
しかしながら、何故かRave Reportsのデザイン画面では、OutPut OptionsダイアログとReport Previewフォームが日本語化されている。ローカライズした時に忘れたのか？
OutPut OptionsダイアログとReport Previewフォームが英語標記のままだと、お客さんに納品出来たものではないので、日本語化しようと思う。

Delphi7がインストールされている次のフォルダに各フォーム（ダイアログ）のソースがあるので、コレをいじる。

C:\Program Files\Borland\Delphi7\Rave5\Lib

・RpFormSetup.dfm（OutPut Optionsダイアログ）
・RpFormPreview.dfm（Report Previewフォーム）

基本的に、これらのファイルをバックアップを取り（念のため）、テキストエディタでFont関係と英語標記を日本語に直す。具体的には、

Font.Charset = SHIFTJIS_CHARSET
Font.Height = -12
Font.Name = 'MS UI Gothic'
TextHeight = 12

とし、フォーム以外のコントロールのFont情報を削除すればＯＫ。後は英語標記を日本語に直せばいい。
ただし、あくまでも自己責任で作業するように。

[ 更新日時：2008/04/01 19:45 ]

この記事のURL： http://www.doblog.com/weblog/myblog/8821/2522844#2522844
トラックバックURL：http://www.doblog.com/weblog/TrackBackServlet/8821/2522844

[ コメントを見る・書く(0) ]
[ トラックバック(関連するBlog)を見る(2) ] [ トラックバック(関連するBlog)を書く ]

[ ↑ページトップ ]

レッツノートＣＦ－Ｍ１Ｖのハードディスク換装８０ＧＢ編

[ 07:50 ] [ かつてのパソコン少年 ]

[ スライドショウ ]

[関連したBlog：レッツノートＣＦ－Ｍ１Ｖのハードディスク換装（中編）]

とうとうLet's note CF-M1Vがお亡くなりになり、３年ぐらい前に換装した４０ＧＢのハードディスクもブッ壊れた。＿|￣|○
今の私の愛機はLet's note CF-Y7なのだが、私の場合、惚れたマシンにはトコトン愛情を注ぐので、CF-M1Vをまたもや復活させることにした。で、ハードディスクを何とかせにゃならんので、とりあえず池袋のビックカメラのビックパソコン館へ行ってみた。
CF-M1VはUltraATAなのだが、最低容量が８０ＧＢのハードディスクしかなかった。店員に聞くと、（UltraATAの）８０ＧＢ以下の容量のハードディスクはメーカーで作っていないのだと。３年前はドキドキもので４０ＧＢのハードディスクを換装したのだが、いきなり倍の８０ＧＢとは・・・。Σ（￣□￣；
つーか、８０ＧＢつったら今の私の愛機CF-Y7と同じ容量じゃんか。ヽ(゜▽、゜)ノ
もう、ヤケになって買ってきました。８０ＧＢハードディスク。超リスキーですが。

製造：日立
型番：ＨＴＳ５４１６８０Ｊ９ＡＴ００
容量：８０ＧＢ
回転：５，４００rpm／キャッシュメモリ８ＭＢ
店名：ビックパソコン館
金額：７，９８０円（税込）

CF-M1Vのハードディスク換装はお手の物で、短時間で終了。しかし、買ったハードディスクがやや大きめなので、本体をバラしたはいいけど、組み付けるのに時間がかかってしまった。（；´Д｀）
とりあえずＢＩＯＳ画面で確認すると、ハードディスク容量が６５５３５ＭＢになってる（ぉ？）。ええー！？とか思いつつ、Windows2000Proをインストールすると、何やら８０ＧＢ（１ＧＢ＝１０００ＭＢ）を認識してるっぽい。
で、Windows2000Proのみ（ＳＰ４とかはまだインストールしていない状態）で見ると、使用容量が０．９７ＧＢで、ディスク全体の容量が７４．５ＧＢになってる！！＼(^o^)／
なんと！今から１０年近く前のマシンでも８０ＧＢのハードディスクが使えるじゃん！（驚）つーか、ディスク全体の容量がCF-Y7よりも若干多い（Vistaと2000Proの違いなんかのー？）。
大容量になったものの、ハードディスクの回転数が取り立てて速くないし、キャッシュメモリも８ＭＢしかないので、体感速度は大して向上していないが、現役マシンと同じディスク容量というのはスゴイ。まぁ、ノーマルで８．１GBのディスク容量だったから、約１０倍のディスク容量になり、スピードも速くなっているのは確かだ。

つーか、３．５インチハードディスクだが、１ＴＢが３万ちょっとで売ってた。
いくらバルク物だとしても、安すぎる。十数年前で１ＴＢなんて言ったら、大型汎用機かスパコンのディスク容量だった。それが今じゃパソコンのハードディスクなんだから恐れ入るよ。
つい最近、ヤフオクでPC-1501用に大容量１６ＫＢメモリモジュールを落札したのだが、桁が全然違う罠。＿|￣|○

[ 更新日時：2008/03/27 10:35 ]

この記事のURL： http://www.doblog.com/weblog/myblog/8821/2522843#2522843
トラックバックURL：http://www.doblog.com/weblog/TrackBackServlet/8821/2522843

[ コメントを見る・書く(0) ]
[ トラックバック(関連するBlog)を見る(0) ] [ トラックバック(関連するBlog)を書く ]

[ ↑ページトップ ]

つけ麺大臣　鶏白湯つけ麺特盛り

[ 22:04 ] [ メシ(ﾟдﾟ)ｳﾏｰ ]

[ スライドショウ ]

久しぶりにつけ麺のウマイ店を発見！場所は池袋のロサ会館の裏手にある、つけ麺大臣だ。
メニューはつけ麺しかない、まさにつけ麺専門店である。食券制で、「当店一番人気」の札が付いている「鶏白湯つけ麺」をチョイス。ココで驚くのが、並でも大盛でも特盛でも全部値段が同じなのである。Σ（￣□￣；
当然、【特盛り】ボタンを押す。（　´∀｀）

カウンターに座って食券を出すと、「温かい麺にしますか？冷たい麺にしますか？」と聞かれる。通常、つけ麺の麺は冷たいのだが、温かいつけ汁が段々とぬるくなってしまうのがつけ麺の欠点であろう。この店では、温かい麺を温かいつけ汁で食べることが出来るのである。が、私はやはり冷たい麺で食べた。
麺はやや太い中太麺で、麺もさることながらつけ汁が何ともウマイ！トリガラの出汁とカツオ出汁をブレンドしたような味で、ゆず胡椒のような香りと味わいもある。つけ汁の中には刻んだネギとシナチク、それによく煮込まれた柔らかい鶏肉のスライスが入っていて、麺と絡ませて食べるとホントにウマイ。久々に感動する味である。
麺を盛った皿には海苔が添えられているが、その海苔には魚粉が盛られている。この魚粉を海苔と共につけ汁に加えると、また香りと味わいが深くなる。
オススメは、カウンターに置かれている黒七味だ。コレを振って食べると、爽やかな辛さが加わり、さらに麺が進む。

特盛りと言うと、かなりの量だと思われるかも知れないが、つけ麺では是非ともこのぐらいの量の麺は食べておきたい。私のような大食漢ではなくとも、特盛りで丁度良いぐらいの量だと思われる。
で、麺を食べ終わったシメの一品はご飯（１００円）がオススメである。つけ汁にご飯をブチ込んで食べると、これがまた(ﾟдﾟ)ウマーなのである。私の場合は、特盛りでシメにご飯で結構満腹になる。
さすがにメシまでは食えねーって人は、是非お店の人に言ってつけ汁をお湯で割って味わってみて欲しい。やはり、この旨味成分が詰まったつけ汁は最後の最後まで味わわねば。
また今度、行ってみたい気にさせる店である。池袋へお越しの際は、是非寄ってみてはどうだろうか。

店名：つけ麺大臣　池袋西口店
営業：月曜11:00～23:00／火曜～土曜11:00～翌朝3:00／日曜祝日11:00～22:00
定休：なし
住所：豊島区西池袋１－３７－８
電話：03-6904-6661
備考：鶏白湯つけ麺特盛り７３０円

[ 更新日時：2008/03/26 22:04 ]

この記事のURL： http://www.doblog.com/weblog/myblog/8821/2522842#2522842
トラックバックURL：http://www.doblog.com/weblog/TrackBackServlet/8821/2522842

[ コメントを見る・書く(2) ]
[ トラックバック(関連するBlog)を見る(1) ] [ トラックバック(関連するBlog)を書く ]

[ ↑ページトップ ]

SHARP PC-1501

[ 23:28 ] [ かつてのパソコン少年 ]

[ スライドショウ ]

パソコンノスタルジーではないが、最近はPC-6001シリーズやMZ-2000シリーズのソフトやハードを買い漁っているのだが、ヤフオクでもそうは出品数はなく、もっと早くにチェックしてれば、と思ったりもする。
今更、愛機だったPC-6601SRやMZ-2000を復活させても仕方がないのだが、昔のパソコン少年としては、当時叶わぬ思いを今にして叶えたい気持ちはあるのだが、それは結局は自己満足の世界でしかないし、遠いよすがを思い起こさせるだけなのかも知れない。

私は中学生の頃、パソコン少年でパソコン中心に生活をしていたのだが、クラスにポケコン派の友人（パソコンは持ってなかった）がいて、ポケコンにも興味を持った。そこでアキバに小遣いを握り締めて買いに行ったのだが、当時はポケコンの知識が乏しく、一番デラックスで安かったシャープのPC-1501を購入した。ポケコンはシャープ派とカシオ派に二分されていたが、MZ-2000ユーザなのもあり、友人もシャープ派だったのもあってシャープのポケコンを買おうと思っていたのだ。ただ、その友人が持っていたPC-1350を購入するほどの予算はなかったが、往年の名機であるPC-1501が趣味で持つにはいいマシンだと思ったのだ。大きさから言ってポケコンとは言い難いのだが、牛革のケースに入ったPC-1501は、とても高級なポケコンだった（確か定価は69,800円だったハズ）。

PC-1501は8KBの大容量メモリを搭載し、BASICも高級なもので、しかもアセンブラへの道も（当時の月刊Ｉ／Ｏで）開かれていた。また、カナテープをロードするか、カナモジュールを追加するとカタカナも使えるし、１６ＫＢのメモリモジュールや、プロッタプリンタ付きのデータレコーダーＩ／Ｆ付きのCE-150もある（当時は購入しなかったけどね）。

本格的に使おうと思えば（周辺機器は高かったが）十分現役で使えるマシンだったし、液晶画面が１画面なのはポケコンなら当たり前だと思っていた。だから、PC-1260シリーズやPC-1350シリーズは、特に羨ましいとは思わなかったが、やはりゲームの種類はPC-1500シリーズは不利だった。ドット毎にパターンを画面表示できるGPRINTというコマンドがあるのだが、BASICでそれをゲームにしようと思うと遅すぎて使えないものだった。
それでも中学・高校・社会人になっても、PC-1501は私の相棒として活躍してくれた。
簡単な計算はもちろんのこと、ちょっとプログラミングで結果が分からないときは、PC-1501でプログラムして結果を見てから、パソコンでプログラミングすることもあった。

中学から愛用したPC-1501だが、仕事が忙しくなると存在すら忘れてしまい、気が付いたときには単三乾電池４本の液モレで故障してしまった。愛着のあるマシンなのでシャープに修理見積（1,500円かかったが）をすると、５～６万円かかると言う。で、中学生の頃から馴染みの事務機屋のオヤジが言うには「こんなもんに６万近くかけても虚しいだけだから、コレを買っていけ」と、デッドストックだった同じくシャープのPC-1245を手渡された。確か、５千円ぐらいで購入したと思うが、PC-1245には興味がなく、買ったものの、未だに新品未使用（電池交換しただけ）である。
最近、２代目のPC-1501を入手し、またもや往年の名機をいじろうとしている。また、あの楽しかったポケコン・ライフのが始まるのだ。

[ 更新日時：2008/05/03 08:07 ]

この記事のURL： http://www.doblog.com/weblog/myblog/8821/2522841#2522841
トラックバックURL：http://www.doblog.com/weblog/TrackBackServlet/8821/2522841

[ コメントを見る・書く(0) ]
[ トラックバック(関連するBlog)を見る(0) ] [ トラックバック(関連するBlog)を書く ]

[ ↑ページトップ ]

Delphiで文字列の全半角および仮名の変換をする

[ 15:20 ] [ ＰＧのお仕事 ]

[ スライドショウ ]

// MapString関数用変換モード
type TMapString = (msZenkaku, msHankaku, msKatakana, msHiragana);function MapString(strValue: string; udtMode: TMapString): string;
var
strBuffer: array[0..1023] of Char; // 変換バッファ
intFlg: Integer;// 変換フラグ
begin
// 戻り値初期化
Result := strValue;
// 変換フラグセット
case udtMode of
msZenkaku:// 半角→全角
intFlg := LCMAP_FULLWIDTH;
msHankaku:// 全角→半角
intFlg := LCMAP_HALFWIDTH;
msKatakana: // ひらがな→カタカナ
intFlg := LCMAP_KATAKANA;
msHiragana: // カタカナ→ひらがな
intFlg := LCMAP_HIRAGANA;
else
Exit;
end;
// 文字変換
FillChar(strBuffer, SizeOf(strBuffer), #0);
LCMapString($0411, intFlg, PChar(strValue), Length(strValue), strBuffer, SizeOf(strBuffer));
// 戻り値セット
Result := Trim(string(strBuffer));
end;

[ 更新日時：2008/03/19 15:20 ]

この記事のURL： http://www.doblog.com/weblog/myblog/8821/2522840#2522840
トラックバックURL：http://www.doblog.com/weblog/TrackBackServlet/8821/2522840

[ コメントを見る・書く(0) ]
[ トラックバック(関連するBlog)を見る(0) ] [ トラックバック(関連するBlog)を書く ]

[ ↑ページトップ ]

ＳＥ出世双六

[ 16:55 ] [ ＳＥのお仕事 ]

[ スライドショウ ]

[SEの社会人生活を体験できる「SE出世双六」販売開始]

プレスリリースによると、株式会社日立システムアンドサービス（本社：東京都港区、執行役社長：中村博行／以下、日立システム）は、学生などがSEという職業に少しでも興味や親近感を持ち、また、技術者の育成につながることを目的に、SEの仕事に触れ（疑似体験し）ながら、ITSS（*1）に基づいたキャリアアップを体験することができる「SE出世双六(すごろく)」を日立システム　前取締役社長　名内泰藏氏の監修のもと、実際の双六として商品化し、株式会社翔泳社のWebサイト「SEshop.com」、および伊東屋銀座本店で、2007年12月17日から定価1890円(税込)で販売します。
（略）
*1 ITSS：IT Skill Standard（ITスキル標準）。(略）とのこと。
確かに、ひとくちに「ＳＥ」と言っても、昔と違って今では分業化が進んでいて「何を指してＳＥと呼ぶか」でひと論戦できるぐらいに裾野が広がっているし、ＩＴ業界以外の人には分かり難いのは確かだ。
かく言う私もＳＥには違いないが、今後のスキル・パスが思うように描けていないのも事実だったりする。＿|￣|○

それはともかく、ITSSのレベルを上げてゴールを目指すってトコロが今っぽい。
ITSSなんて言い出したのって最近じゃないのかな？
少なくとも、俺は去年まで聞いたことなかったぞ。（＾＾；；
ともあれ、面白そうな双六だと思う。同業者同士でネタにしながら一杯やるのもいいかも知れない。
興味のある方は買ってみてはどうだろう？現実のＳＥの出世は非常に難しいが、双六なら案外すんなり出世したりして（笑）。

「SE出世双六」の購入：SEshop.com，Amazon.co.jp

[ 更新日時：2008/03/13 16:55 ]

この記事のURL： http://www.doblog.com/weblog/myblog/8821/2522839#2522839
トラックバックURL：http://www.doblog.com/weblog/TrackBackServlet/8821/2522839

[ コメントを見る・書く(0) ]
[ トラックバック(関連するBlog)を見る(0) ] [ トラックバック(関連するBlog)を書く ]

[ ↑ページトップ ]

備忘録　Delphiでカレントディレクトリを取得する

[ 10:00 ] [ ＰＧのお仕事 ]

[ スライドショウ ]

function GetAppPath: string;
var
strAppPath: array[0..255] of Char;// カレントディレクトリパス
begin
// カレントディレクトリ取得
GetCurrentDirectory(SizeOf(strAppPath), strAppPath);
// 戻り値セット
Result := strAppPath;
end;

[ 更新日時：2008/05/01 11:06 ]

この記事のURL： http://www.doblog.com/weblog/myblog/8821/2522838#2522838
トラックバックURL：http://www.doblog.com/weblog/TrackBackServlet/8821/2522838

[ コメントを見る・書く(0) ]
[ トラックバック(関連するBlog)を見る(0) ] [ トラックバック(関連するBlog)を書く ]

[ ↑ページトップ ]

第８３回箱根駅伝

[ 23:00 ] [ チーム駿河台 ]

[ スライドショウ ]

明大犬、モモちゃんがプリチー（笑）。
明治大学應援團のところで愛嬌を振りまいてました。ヽ(´ー｀)ﾉ

明治大学應援團の第８５代平原團長のリーダーにより、校歌斉唱！いやが上にも盛り上がる。

日本大学のチアは校歌である「日に日に新たに」を歌ってますた（笑）。

実は当日、日大ＯＢと待ち合わせる予定が、予定のまま終了。久しぶりに日大ＯＢとも会いたかったのだが、残念。

[ 更新日時：2007/01/02 22:59 ]

この記事のURL： http://www.doblog.com/weblog/myblog/8821/2522836#2522836
トラックバックURL：http://www.doblog.com/weblog/TrackBackServlet/8821/2522836

[ コメントを見る・書く(0) ]
[ トラックバック(関連するBlog)を見る(0) ] [ トラックバック(関連するBlog)を書く ]

[ ↑ページトップ ]

1 月	2 月	3 月	4 月
5 月	6 月	7 月	8 月
9 月	10 月	11 月	12 月

ニックネーム：パスワード：
\| MyDoblogトップ \| Doblogポータル \| DoblogMusic \| Doblogガイド \| ユーザ登録 \| 使い方 \| よくある質問 \| ツールバー \| サポート \|

2008 年 4 月
S	M	T	W	T	F	S
		1	2	3	4	5
6	7	8	9	10	11	12
13	14	15	16	17	18	19
20	21	22	23	24	25	26
27	28	29	30