改造・ｿｰｽとかのスレ

■改造・ｿｰｽとかのスレ

46:｀）ノ:04/03/31 19:39
function TForm1.Sikaku(S:String): String;
var　　　　　　 //でかいHintの文字
　B: TBitmap;
　L: PByteArray;
　i,j: Integer;
begin
　B:= TBitmap.Create;
　try
　　FreeMemoryContexts; //１
　　b.Monochrome:= True; //２
　　b.Width := Canvas.TextWidth(S);
　　b.Height:= Canvas.TextHeight(S);
　　b.PixelFormat:= pf8bit;
　　B.Canvas.Brush.Color:= clWhite;
　　B.Canvas.FillRect(rect(0,0,B.Width,B.Height));
　　B.Canvas.Font:= Form1.Font;
　　B.Canvas.TextOut(0,0,S);
　　Result:= '';
　　PaletteChanged(True); //３
　　Application.ProcessMessages; //４

　　for i:=0 to B.Height-1 do
　　begin
　　　L:= B.ScanLine[i];
　　　for j:=0 to B.Width-1 do
　　　　if L[j]<122 then
　　　　　Result:= Result +'■' else
　　　　　Result:= Result +'□';
　　　if i<B.Height-1 then Result:= Result +#13#10;
　　end;
　finally
　　B.Free;
　end;
end;

よく分からないんで、
//1,2,3,4
を追加したら、Okらしい。
3か4だけあればいいのか？

1:1- 2:▲ 3:新
4:前 5:書 6:次
7:写 8:▼ 9:板

Rainboard