2010-09-29

GoogleChrom6

WindowsXPだとブルー画面、Windows7だと画面が崩れて再起動
原因はドライバーに起因するエラーのようだが
ChromはDirectX辺りを使ってるんだろうか、その辺りでバグがあると思われる
利用を止めてFirefoxに戻る

2010-09-22

雷が激しい

1度停電したが速攻で復帰

PCはその前に運良くブルースクリーンで落ちてたので電源は入っていなかった
(サーバーは残念ながらダウンしたが普通に起動している)

因みにその前におきたブルースクリーンはページングファイルに不具合がある場合に発生するらしい

ネットで調べると対策らしきものがあったので試す

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management\ClearPageFileAtShutdown

の値を 1 にして再起動してみた

2010-09-16

DelphiのStringGridの中に線を引いてみる

例えばこんな感じ


 procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
 var
  wRect:TRect;
 
 begin
  // 縦線を引く
  self.StringGrid1.Canvas.Pen.Width:=2;
  self.StringGrid1.Canvas.Pen.Color:=clGray;
  wRect:=self.NexGrid1.CellRect(2,ARow);
  self.StringGrid1.Canvas.MoveTo((wRect.Left+wRect.Right) div 2,wRect.Top+2);
  self.StringGrid1.Canvas.LineTo((wRect.Left+wRect.Right) div 2,wRect.Bottom-2);
 
  // セル内に斜め線を引く
  self.StringGrid1.Canvas.Pen.Width:=2;
  self.StringGrid1.Canvas.Pen.Color:=clGray;
  wRect:=self.StringGrid1.CellRect(3,ARow);
  self.StringGrid1.Canvas.MoveTo(wRect.Left,wRect.Top);
  self.StringGrid1.Canvas.LineTo(wRect.Right,wRect.Bottom);
 end;