861(2): 857 [] 2006/05/08(月) 00:49:01 ID:i+FpNsmh(1) AAS
>>859
やっぱ.NETの仮想マシン用実行ファイルを出すのが主目的？
そうだとしたら、なんで自信たっぷりに宣伝してるのか謎ー

>>860
そういう事を聞きたいんじゃなくってさー　みんなそればっかり言う
Delphiの人が作ったから、結果どういう特徴なのか、とかおしえてよ

: 名前は開発中のものです。 [] 2006/05/13(土) 00:38:26 ID:OqxroPQB(1/2) AAS
>>867
一文字ずつ書いて、
スプライトとして拡大と、ちょい小さくスプライトとして拡大

文字と文字の間隔はこの処理を計算して補正

---

872: 名前は開発中のものです。 [sage] 2006/05/13(土) 03:24:07 ID:sDuBiHP4(1) AAS
>>867
もう見てないかもしんないけどあげといた
>>871
それだときっちり重ならなくね？
こんなんなる
画像ﾘﾝｸ

---

873

: 名前は開発中のものです。 [sage] 2006/05/13(土) 05:26:29 ID:W9Udbq51(1) AAS
いや、こうでは？(左の）
画像ﾘﾝｸ


でも、駄目だな。
上下拡大縮小4回くらい(真ん中)ならそこそこ見栄えはする。
菱形に拡大縮小するのを思いついた(右)が、だめぽ

---

874: 名前は開発中のものです。 [] 2006/05/13(土) 07:54:11 ID:GAeAvJcp(1) AAS
全ドットチェックして、現在地が空白ドットで隣が空白ドット以外なら輪郭ドットに変更。
を、欲しい太さだけ繰り返したらいんじゃね？

---

875: 名前は開発中のものです。 [sage] 2006/05/13(土) 08:12:24 ID:pLP2qHsu(1) AAS
procedure TextOutPlus(Str: String; Canvas: TCanvas; TX, TY: Integer; OutLine: Integer);
var
i: Integer;
j: Integer;
o: Integer;
begin
o := OutLine * 2;

for i := 0 to o do
begin
for j := 0 to o do
begin
Canvas.TextOut(TX+j, TY+i, Str);
end;
end;

Canvas.Font.Color := clWhite;
Canvas.TextOut(TX +OutLine, TY+OutLine, Str);
end;

最悪こんなんでよくね？
超格好悪いけど

---

876: 名前は開発中のものです。 [] 2006/05/13(土) 21:03:44 ID:OqxroPQB(2/2) AAS
>>873
その、白い部分と同じ大きさの黒いのを８個配置すればいいんじゃないのか？

---

877