~katsuhiko メッセージボード

back 2651-2700

2701-2750

 2751-2800

2750 Re^15: TStringsPrinter Ver3.1について コメント数：　 2件
　 本田勝彦 2003/12/26 (金) 10:48
ウチにも引き延ばし機あります（フジのカラーステーション）
そうかぁ。そういう仕事に携わった方とお話していたとは思いませんでした。

リンクにさせてもらってよろしいですか？


2749 Re^2: TStringsPrinter Ver3.1について コメント数：　 0件
　 本田勝彦 2003/12/26 (金) 10:45
> サンプルをコンパイルしただけですが、上手くいってます。
> もう少し使い込んでみます。

よろしくおねがいします。


2748 Re^14: TStringsPrinter Ver3.1について コメント数：　 3件
　 にしの 2003/12/26 (金) 09:12
　http://www.overs.jp/software/
> サイト見せて頂きました。どうやら、ず〜〜〜っと写真の西野さんと勘違い
> していたような気がします。申し訳ない。

ありゃ。他にも西野さんがいらっしゃったのですか。ハンドル名変えようかな・・。
数年前、写真業界(といっても引き延ばし機の制御系)にすこ〜し関わっただけで、今は全く関わっていません^^;
# そのころはBCBでしたが

サイトは、友人らと立ち上げたんですが、１年ほどで休止状態です。
仕事も一段落しそうなので、そろそろ更新しようかと思ってます。


2747 Re: TStringsPrinter Ver3.1について コメント数：　 22件
　 Km 2003/12/26 (金) 05:39
本田勝彦さん、こんにちは。
> がんばりました。開発日誌のページに stringsprinter32b.lzh を置きました。
> stringsprinter.pas のみになりますが、XP 使いの方々にお試し頂ければ幸いです。

お疲れ様です。
サンプルをコンパイルしただけですが、上手くいってます。
もう少し使い込んでみます。


2746 Re^13: TStringsPrinter Ver3.1について コメント数：　 4件
　 本田勝彦 2003/12/26 (金) 03:03
> 別のにしのさんだったんだべか^^;

サイト見せて頂きました。どうやら、ず〜〜〜っと写真の西野さんと勘違い
していたような気がします。申し訳ない。


2745 Re^12: TStringsPrinter Ver3.1について コメント数：　 28件
　 本田勝彦 2003/12/26 (金) 02:55
> 頑張ってくださいっ！

がんばりました。開発日誌のページに stringsprinter32b.lzh を置きました。
stringsprinter.pas のみになりますが、XP 使いの方々にお試し頂ければ幸いです。

> # ジャンルは違えど、そろそろコンポーネントを公開しようかと・・・。

にしのさんのサイト変わりました？写真工房へ行けなくなってましたが。
別のにしのさんだったんだべか^^;


2744 Re^11: TStringsPrinter Ver3.1について コメント数：　 29件
　 にしの 2003/12/24 (水) 09:59
　http://www.overs.jp/software/
>
> そうか。FillRect せばえぇんですね。領域計算は避けられない情勢っぽいので
> 頑張って見ます。

頑張ってくださいっ！
影ながら応援させていただきます。
# ジャンルは違えど、そろそろコンポーネントを公開しようかと・・・。


2743 Re^10: TStringsPrinter Ver3.1について コメント数：　 30件
　 本田勝彦 2003/12/24 (水) 09:45
> Win9x,Meにバグがあるのであれば、DrawTextで領域を計算し、FillRectなどで背景を書いた後、再度DrawTextするというのはどうでしょう。

そうか。FillRect せばえぇんですね。領域計算は避けられない情勢っぽいので
頑張って見ます。




2742 Re^9: TStringsPrinter Ver3.1について コメント数：　 31件
　 にしの 2003/12/24 (水) 09:18
>
> ExtTextOut バージョンでし。

こちらはOKでした。
Win9x,Meにバグがあるのであれば、DrawTextで領域を計算し、FillRectなどで背景を書いた後、再度DrawTextするというのはどうでしょう。


2741 Re^8: TStringsPrinter Ver3.1について コメント数：　 32件
　 本田勝彦 2003/12/23 (火) 20:11
procedure TForm1.Button1Click(Sender: TObject);
var
MetaFile: TMetaFile;
MetaFileCanvas: TMetaFileCanvas;
S: String;
R: TRect;
TM: TTextMetric;
FontHeight: Integer;
begin
S := 'Happy new year!';
MetaFile := TMetaFile.Create;
try
MetaFile.Width := Screen.Width;
MetaFile.Height := Screen.Height;
MetaFileCanvas := TMetaFileCanvas.Create(MetaFile, 0);
try
MetaFileCanvas.Font.Assign(Self.Font);
MetaFileCanvas.Brush.Color := clBlack;
MetaFileCanvas.Font.Color := clRed;
GetTextMetrics(MetaFileCanvas.Handle, TM);
FontHeight := TM.tmHeight + TM.tmExternalLeading;
R := Rect(0, 0, MetaFileCanvas.TextWidth(S), FontHeight);
ExtTextOut(
MetaFileCanvas.Handle, 0, 0, ETO_CLIPPED or ETO_OPAQUE, @R,
PChar(S), Length(S), nil);
finally
MetaFileCanvas.Free;
end;
Image1.Picture.Graphic := MetaFile;
finally
MetaFile.Free;
end;
end;

ExtTextOut バージョンでし。


2740 Re: Fountainプロパティにコンポーネントを接続したいのですが．．． コメント数：　 0件
　 本田勝彦 2003/12/23 (火) 16:22
TR2Fountain の派生元を TEditorFountain, TEditorParser にすれば
TR2Fountain の published なプロパティに View と同じモノがでるハズです。


2739 Fountainプロパティにコンポーネントを接続したいのですが．．． コメント数：　 1件
　 高橋賢二郎　　|　taka-ken@jcom.home.ne.jp 2003/12/23 (火) 14:13
いつもお世話になりありがとうございます。

TEditorのFountainプロパティにTR2Fountainコンポーネントを
接続して、昨日からいろいろ試しています。

Fountainプロパティにコンポーネントを接続すると、
Viewの各プロパティ値は、Colors.Select, Colors.Hit以外は
無効となってしまいます。（TEditor ヘルプファイル ver 2.47）

本来はTR2Fountainを改造すれば良いのだとは思いますが、
現状のTR2Fountainを接続して、Viewの値を有効とするか、
または新たに設定するための、短時間で可能な方法は無いでしょうか。
年末年始のライティングにぜひ利用したく、御相談いたします。


2738 Re^7: TStringsPrinter Ver3.1について コメント数：　 33件
　 本田勝彦 2003/12/23 (火) 09:22
情報ありがとうございます。で、ExtTextOut だと旨く描画されますか？

中村さんのサイト↓では、Win9X, Me で TMetaFile へ
http://www.asahi-net.or.jp/~HA3T-NKMR/DGS/AfterCare.htm
ExtTextOut 利用は問題ありの記述がありました。

もう少し調べてみます。


2737 Re^6: TStringsPrinter Ver3.1について コメント数：　 34件
　 にしの 2003/12/23 (火) 00:24
少し検索してみたところ、Microsoftのサイトでは、
| DrawTextEx
| 指定された長方形領域内に整形したテキストを表示します。

とあり、背景色に関しては記述がありませんでした。

ちなみに、ExtTextOutは、
| ExtTextOut
| 現在選択されているフォント、背景色、および文字の色を使ってテキストを描画します。
| 必要に応じて、クリッピングしたり不透明にするための長方形領域を指定することもできます。

と、明確に記述がありました。
XPで内部動作に変更があったのかもしれませんね。


2736 Re^5: TStringsPrinter Ver3.1について コメント数：　 35件
　 にしの 2003/12/22 (月) 23:55
> XP では、これもいごかないということかしらん？
> MetaFileCanvas.Brush.Style := bsSolid;
> の１行をどこかに入れると正しく動作するとか？
>
> XP 使いの方がいらっしゃいましたら情報をお願い致します。

XP使いです(笑)
# WinXP Pro + Del7Pro
これ、背景黒の赤字で表示されるべきなんですよね？
XPでは、背景色に変化はありませんでした。
MetaFileCanvas.Brush.Style := bsSolid;
を、DrawTextの前に入れてもダメでした。


2735 Re^4: TStringsPrinter Ver3.1について コメント数：　 36件
　 本田勝彦 2003/12/22 (月) 22:21
procedure TForm1.Button1Click(Sender: TObject);
var
MetaFile: TMetaFile;
MetaFileCanvas: TMetaFileCanvas;
S: String;
R: TRect;
begin
R := Rect(0, 0, Screen.Width, Screen.Height);
S := 'This is a pen.';
MetaFile := TMetaFile.Create;
try
MetaFile.Width := Screen.Width;
MetaFile.Height := Screen.Height;
MetaFileCanvas := TMetaFileCanvas.Create(MetaFile, 0);
try
MetaFileCanvas.Font.Assign(Self.Font);
MetaFileCanvas.Brush.Color := clBlack;
MetaFileCanvas.Font.Color := clRed;
DrawText(
MetaFileCanvas.Handle, PChar(S), -1, R,
DT_EXPANDTABS or DT_EXTERNALLEADING or DT_LEFT or
DT_NOPREFIX or DT_SINGLELINE);
finally
MetaFileCanvas.Free;
end;
Image1.Picture.Graphic := MetaFile;
finally
MetaFile.Free;
end;
end;

XP では、これもいごかないということかしらん？
MetaFileCanvas.Brush.Style := bsSolid;
の１行をどこかに入れると正しく動作するとか？

XP 使いの方がいらっしゃいましたら情報をお願い致します。


2734 Re^3: TStringsPrinter Ver3.1について コメント数：　 37件
　 KNT 2003/12/22 (月) 21:35
> 何か、Canvas.Brush とは別の原因がありそうな気がします。
> Reserve だけですよね？他のトークンはだいじょぶなんでしょ？

いえ、すべてのトークンで起きる現象です。
例えとして Reserve.BkColor を上げただけですので…
あいまいな表現をして申し訳ありませんでした。

動作はKmさんがおっしゃるとおりです。
コンパイルも問題はないです。
プレビューだけの現象かと思い、実際に印刷もしてみたのですが、プレビューどおり印刷されました。
当たり前といえば当たり前ですが…
やはり XP 側の問題のようですね。


2733 Re^2: 複数の予約語で、別の背景色・文字色・フォントスタイルを指定 コメント数：　 0件
　 高橋賢二郎　　|　taka-ken@jcom.home.ne.jp 2003/12/22 (月) 13:48
> 開発日誌のページに TR2Fountain というのがありまして、予約後リストを２個
> 利用できます。お試しください。

　ありがとうございます。
　さっそくためさせていただきます。

　私は本職ＳＥなのですが、小説などいろいろな文章も書いているものです。
　（そっちはまだアマですが、次回Ｒ賞目指し精進中）

　とにかく『書く』機会が多くて、エディターもMifes、秀丸などいろいろ
　使ってきたのですが、本当に満足出来るものに出会えず、まだ探しているところです。

　


2732 Re^2: TStringsPrinter Ver3.1について コメント数：　 38件
　 本田勝彦 2003/12/22 (月) 13:01
何か、Canvas.Brush とは別の原因がありそうな気がします。
Reserve だけですよね？他のトークンはだいじょぶなんでしょ？



2731 Re: 複数の予約語で、別の背景色・文字色・フォントスタイルを指定 コメント数：　 1件
　 本田勝彦 2003/12/22 (月) 12:59
開発日誌のページに TR2Fountain というのがありまして、予約後リストを２個
利用できます。お試しください。


2730 複数の予約語で、別の背景色・文字色・フォントスタイルを指定 コメント数：　 2件
　 高橋賢二郎　　|　taka-ken@jcom.home.ne.jp 2003/12/22 (月) 11:14
はじめまして。高橋賢二郎と申します。

TEditorを検討させていただいております。
さっそくですが、TEditorにおいて、複数の予約語で、
別の背景色・文字色・フォントスタイルを指定するという機能は、実現できないでしょうか。
これが出来ると、いろいろな文章やプログラムのライティングで、
TEditorの価値が飛躍的に増すとおもうのですが、いかがでしょうか。


2729 Re: TStringsPrinter Ver3.1について コメント数：　 39件
　 Km 2003/12/22 (月) 06:28
本田勝彦さん、KNTさん、こんにちは。

> > どうやらうちのPC(WinXP)ではおかしいようです。
> > 他のPC(WinMe)で試してみたら、問題ありませんでした。
> > XPだとダメというのはありえないですよね？
>
> うむ〜・・・ありえないと思いますが。付属のサンプルプロジェクトが
> WinXP で動作しないんですよね？

そうではなくて、動作はするのですが、WinXPとその他のOSで動作が異なるということです。私も試して見ましが、ReserveのBkColorをclBlackにしてコンパイルしてできたexeをWin2KのPCに持っていくと思ったとおりの動きをしますが、WinXPのPCだとKNTさんが言ってるように反映されませんでした。APIのせいなのかな。


2728 Re^3: TStringsPrinter Ver3.1について コメント数：　 40件
　 本田勝彦 2003/12/22 (月) 02:12
> どうやらうちのPC(WinXP)ではおかしいようです。
> 他のPC(WinMe)で試してみたら、問題ありませんでした。
> XPだとダメというのはありえないですよね？

うむ〜・・・ありえないと思いますが。付属のサンプルプロジェクトが
WinXP で動作しないんですよね？

自作アプリの場合、古いユニットファイルを uses している場合もあります。（経験者談）


2727 Re^2: TStringsPrinter Ver3.1について コメント数：　 41件
　 KNT 2003/12/21 (日) 04:33
どうやらうちのPC(WinXP)ではおかしいようです。
他のPC(WinMe)で試してみたら、問題ありませんでした。
XPだとダメというのはありえないですよね？


2726 Re: TStringsPrinter Ver3.1について コメント数：　 42件
　 本田勝彦 2003/12/20 (土) 23:18
付属のサンプルで試して見ましたが、反映されましたよ。
接続されている Fountain コンポの Reserve.BkColor を変更したんですよね？


2725 TStringsPrinter Ver3.1について コメント数：　 43件
　 KNT 2003/12/20 (土) 13:37
TStringsPrinter Ver3.1 のカラー印刷についてなのですが、試しに Reserve.BkColor := clBlue としてみたら反映されませんでした。
トークン毎のColorは問題ないのですが、BkColorはダメなようです。
これは仕様なのでしょうか？
実際にソースを追って見てはいないですが(^^;


2724 Re^2: カーソル位置のカラーについて コメント数：　 0件
　 QubitRX 2003/12/19 (金) 21:45
　http://qubit.zive.net/
本田勝彦さん、Kmさん、ありがとうございます。

自分でもそれなりに実装していたのですが、
TEditorExのSetParenInfoを見て、自分の実装の穴をしっかり見つけてしまいました:-)
とても感謝しつつ、参考にさせて頂きました。

> 少し宣伝になりますが、TEditorExの最新バージョンでは、色々簡単に色付けできます。
> ソースも公開してます。必要な部分だけ使ってもらってかまわないので、何かの参考にでもしてください。＞QubitRXさん。


2723 Re: カーソル位置のカラーについて コメント数：　 1件
　 Km 2003/12/19 (金) 07:31
本田勝彦さん、QubitRXさん、こんにちは。

> あれ？ Km さんところの新バージョンって対応する括弧の強調表示出来たのでは？

できます(^^)。でも、
>キャレットも再描画するので、スタックオーバーフローで怒られてしまいました。
ここの回答が欲しいのかなって思ったんで、ここだけレス付けました。

少し宣伝になりますが、TEditorExの最新バージョンでは、色々簡単に色付けできます。
ソースも公開してます。必要な部分だけ使ってもらってかまわないので、何かの参考にでもしてください。＞QubitRXさん。
では。


2722 Re^3: カーソル位置のカラーについて コメント数：　 2件
　 本田勝彦 2003/12/19 (金) 00:21
あれ？ Km さんところの新バージョンって対応する括弧の強調表示出来たのでは？



2721 Re^2: カーソル位置のカラーについて コメント数：　 3件
　 Qubit 2003/12/18 (木) 23:16
　http://qubit.zive.net/
Kmさん、ありがとうございます。
描画に使われている下の部分をoverrideしようかと思ったのですが、
TEditor.Canvas.TextOut(...)
で、OnCaretMovedを呼ばれることなく描画出来たので、こちらでよいかと思っております。お騒がせしました。
> こんな感じでしょうか。。。
> CaretBeginUpdate;
> try
> ...
> finally
> CaretEndUpdate;
> end;


2720 Re: カーソル位置のカラーについて コメント数：　 4件
　 Km 2003/12/18 (木) 20:03
> OnCaretMoved内で、DrawTextRectメソッドを呼び該当する所だけを
> 描画しようとすると、キャレットも再描画するので、スタックオーバーフローで怒られてしまいました。

こんな感じでしょうか。。。
CaretBeginUpdate;
try
...
finally
CaretEndUpdate;
end;


2719 カーソル位置のカラーについて コメント数：　 5件
　 Qubit 2003/12/18 (木) 19:33
　http://qubit.zive.net/
はじめまして、QubitRXと申します。
早速ですが、質問があります。
現在、キャレットがある位置の括弧と対応した括弧を強調表現しようと
してみたのですが、
OnCaretMoved内で、DrawTextRectメソッドを呼び該当する所だけを
描画しようとすると、キャレットも再描画するので、スタックオーバーフローで怒られてしまいました。

根本的にやろうとしていることが間違っていたら、是非ご教授下さい。


2718 Re: ご教授いただきありがとうございます。 コメント数：　 0件
　 Yokka 2003/12/16 (火) 08:15
結局、ずっとソースとにらめっこしておりました。
おかげさまで、希望の動作を実現でき、Reserveが２つできる理由もわかり、いい勉強になりました。
ありがとうございました。


2717 ご教授いただきありがとうございます。 コメント数：　 1件
　 Yokka 2003/12/15 (月) 23:11
ご教授いただきありがとうございます。

正直なところ、今私の力ではなぜReserveが2つできるのか理解できませんが、望みの動作になりました。

本当にありがとうございます。
後は、プロパティの保存などの動作を確認して、テストをしたら完了です。
これで、帰宅できそうです(^-^)。



2716 Re^2: ハイフンを含む文字列をReserveWordListで認識させたい コメント数：　 2件
　 本田勝彦 2003/12/15 (月) 20:22
unit HyphenFountain;

interface

uses
Classes, heFountain, EditorFountain;

type
THyphenFountainParser = class(TEditorParser)
protected
procedure AnkProc; override;
end;

THyphenFountain = class(TEditorFountain)
protected
function GetParserClass: TFountainParserClass; override;
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents('TEditor', [THyphenFountain]);
end;

procedure THyphenFountainParser.AnkProc;
// 'A'..'Z', '_', 'a'..'z', '-':
begin
FToken := toAnk;
while FP^ in [ '0'..'9', 'A'..'Z', '_', 'a'..'z', '-'] do
Inc(FP);
end;

function THyphenFountain.GetParserClass: TFountainParserClass;
begin
Result := THyphenFountainParser;
end;

end.

こんな感じでどうでしょ？ Reserve が２個出来てしまいますが、一応使えます。


2715 Re: ハイフンを含む文字列をReserveWordListで認識させたい コメント数：　 3件
　 本田勝彦 2003/12/15 (月) 20:05
お作りのファウンテンの AnkProc を override して
ハイフンを認識させればオッケーです。

procedure TYourFountainParser.AnkProc;
// 'A'..'Z', '_', 'a'..'z', '-':
begin
FToken := toAnk;
while FP^ in [ '0'..'9', 'A'..'Z', '_', 'a'..'z', '-'] do
Inc(FP);
end;

こうすることによって、ハイフンを含むトークンが得られます。


2714 ハイフンを含む文字列をReserveWordListで認識させたい コメント数：　 4件
　 Yokka 　　|　sqleditor@yokka.com 2003/12/15 (月) 14:36
ソースを公開されているのに、質問を書き込む失礼をお許しください。

今、ある言語(言語をあかすとすぐに社名がばれるくらい少数の言語です)の強調ファイルを作成しようとしています。
この言語の特徴は、関数名に’-’(ハイフン)が含まれることです。
TFountainの強調表示にハイフンを含んだ文字列を設定しても、実際の表示は強調されません(ハイフン前後で別の単語と見なされるようです。)
TFountainParserのソースと格闘しましたが、私の技量では今のところ良い結果が出ません。
過去ログも確認したつもりですが、該当項目は見つけられませんでした。

是非とも、ヒントだけでもいただきたいと思い、書き込ませて頂きました。
どうぞ、よろしくお願いします。

ps
本来は、上記少数派言語の強調ファイル作成という目的なのですが、個人的にはCSSファイルの強調表示にも使えると思っております(個人的には、こちらを優先して作りたいです^^)。是非とも、ご教授をお願い致します。


2713 Re^3: 文章変更直後の Row, Col 取得 コメント数：　 0件
　 十五夜るな　　|　jugoya@jcom.home.ne.jp 2003/12/11 (木) 01:26
　http://members.jcom.home.ne.jp/milkymoon/
> 次に Row が設定される OnCaretMoved 発生
> 次に Col が設定される OnCaretMoved 発生

なるほど！
納得しました。これで夜もぐっすりですわ♪
ご返答、どうもありがとうございました。


2712 Re^2: 文章変更直後の Row, Col 取得 コメント数：　 1件
　 本田勝彦 2003/12/10 (水) 00:14
TEditor では、
文字列が更新され OnChange イベント発生。
次に Row が設定される OnCaretMoved 発生
次に Col が設定される OnCaretMoved 発生

という具合で OnCaretMoved が連続して発生します。
なので、

procedure TForm1.Editor1Change(Sender: TObject);
begin
FChanged := True;
FCaretMoveCount := 0;
end;

procedure TForm1.Editor1CaretMoved(Sender: TObject);
begin
if FChanged then
begin
Inc(FCaretMoveCount);
if FCaretMoveCount = 2 then
begin
Log('OnCaretMoved after OnChange');
FChanged := False;
end;
end;
end;

として見て下さい。


2711 Re: 文章変更直後の Row, Col 取得 コメント数：　 2件
　 十五夜るな　　|　jugoya@jcom.home.ne.jp 2003/12/09 (火) 13:46
　http://members.jcom.home.ne.jp/milkymoon/
テストに使ったコードの一部を載せておきます。
（TEditor x 2, TButton x 1 配置）

procedure TForm1.Editor1Change(Sender: TObject);
begin
FChanged := True;
Log('Change');
end;

procedure TForm1.Editor1CaretMoved(Sender: TObject);
begin
if FChanged then
begin
FChanged := False;
Log('Caret');
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Log('Button');
end;

procedure TForm1.Log(Title: String);
var
P: TPoint;
R, C: Integer;
begin
GetCaretPos(P);
Editor1.PosToRowCol(P.X, P.Y, R, C, True);
Editor2.Lines.Insert(0, Title + Format('[Row:%d, Col:%d, X:%d, Y:%d, R:%d, C:%d]',
[Editor1.Row, Editor1.Col, P.X, P.Y, R, C]));
end;


2710 文章変更直後の Row, Col 取得 コメント数：　 3件
　 十五夜るな　　|　jugoya@jcom.home.ne.jp 2003/12/09 (火) 13:46
　http://members.jcom.home.ne.jp/milkymoon/
こんにちは。
お知恵を拝借したいと思います。

文章が変更されたときに Row, Col の値を使った処理をしようと思い、
まず OnChange で取得したところ、Row, Col が更新されていないようなので、
OnChage でフラグを立て、OnCaretMoved でフラグ判定し取得するようにしました。
これでうまくいくように思えたのですが、次のケースで問題が生じます。

Edit↓or1

「↓」位置で改行しキャレットが行の頭にくる場合、
Row は正しいのですが Col が更新されず 4 を示します。
Caret 位置から取得しようと GetCaretPos で座標を取得してみると、
どうやら可視の Caret 位置と得られる座標が食い違っているようです。

この辺の動作は仕様なのでしょうか？
タイトルの動作を実現するにはどうしたら良いのでしょう。
よろしければヒントをお願いします。


2709 TStringsPrinter ver 3.1 コメント数：　 0件
　 本田勝彦 2003/12/08 (月) 01:18
公開しました。PrintMode プロパティ付きです。


2708 Re^3: integer であって、integer でない？？ コメント数：　 0件
　 いくぼ 2003/12/07 (日) 18:10
Editor 生成直後にいきなり空行でインデックスの範囲が
オーバーするのが原因でした。
以下のようにして解決しました。
てきとーですが、全角文字対応です。

procedure TForm1.Editor1CaretMoved(Sender: TObject);
var
S : String;
I,X : Integer;
begin
with Editor1 do
begin
S := Lines[RowToLines(Row)];
X := ColToChar(Row,Col);
if (S <> '') and (X <> Length(S)) then
begin
I := Ord(S[X+1]);
if (I>=$E0) or ((I<=$9F)and(I>=$80)) then
I := (I shl 8) or (Ord(S[X+2]));
StaticText.Caption
:= Format('%02xh (%02d)',[I,I]);
end else
begin
StaticText.Caption := '0D0Ah';
end;
end;
end;

お騒がせしました。


2707 Re^2: TStringsPrinter について コメント数：　 0件
　 本田勝彦 2003/12/06 (土) 21:25
みなさんご意見ありがとうございます。いゃぁ、やっぱり聞いて見るモンですね。
危うく論理型のプロパティが２個も３個も出来そうになるところでした。

まとめると以下の４パターンかと思います。

Fountain = nil でも可能
・ただの白黒
・BkColor, Font.Color, Font.Style, HeaderColor が尊重される

Fountain 設定済み
・白黒だけど、トークン毎の Font.Style は尊重される
・トークンごとに色分け

TStringsPrinterPrintMode 型といった感じのプロパティを設定して見たいと思います。


2706 Re: TStringsPrinter について コメント数：　 1件
　 Km 2003/12/06 (土) 09:20
本田さん、sakazukiさん　こんにちは。

> 白黒印刷用のオプションは欲しいです。モノクロブリンタしかない環境で使用することもありますので。ただ、その際太字や、斜体などの修飾は活かしたままにできると嬉しいです。

私もこの案に一票です。


2705 Re: TStringsPrinter について コメント数：　 2件
　 sakazuki 2003/12/06 (土) 07:09
　http://homepage2.nifty.com/sakazuki/
> ですが、いかがなもんでしょう？
>
> 私的には、モノクロで印刷したい場合の方が多いので、そういうスイッチが
> 欲しいなと思っていますが、
>
> 例えば ColorPrint プロパティがあって、それをオフにすると、BkColor と Font.Color で印刷される。->白地にブルーやグレーの単色で印刷が可能になる。
>
> 又は、Monocrome プロパティがあってオンにすると白黒印刷される・・・
>
> どんなんが、よろしいでしょう？ちょっと悩んでいます。ご意見をお願いします。

白黒印刷用のオプションは欲しいです。モノクロブリンタしかない環境で使用することもありますので。ただ、その際太字や、斜体などの修飾は活かしたままにできると嬉しいです。


2704 Re: TStringsPrinter について コメント数：　 0件
　 Kaneto 　　|　tkaneto@nifty.com 2003/12/06 (土) 00:16
本田さん、Kanetoです。

トナー（インク）の消費を気にする人も多いと思うので、個人的には

> Monocrome プロパティがあってオンにすると白黒印刷される・・・

が、いいと思います。従来と互換性がありますし。


2703 TStringsPrinter について コメント数：　 4件
　 本田勝彦 2003/12/06 (土) 00:04
ですが、いかがなもんでしょう？

私的には、モノクロで印刷したい場合の方が多いので、そういうスイッチが
欲しいなと思っていますが、

例えば ColorPrint プロパティがあって、それをオフにすると、BkColor と Font.Color で印刷される。->白地にブルーやグレーの単色で印刷が可能になる。

又は、Monocrome プロパティがあってオンにすると白黒印刷される・・・

どんなんが、よろしいでしょう？ちょっと悩んでいます。ご意見をお願いします。


2702 Re^2: integer であって、integer でない？？ コメント数：　 0件
　 いくぼ 2003/12/05 (金) 12:41
ぎゃふん。
わたくしは Delphi 5 Learning 版です。
こんな基本的なところで機能がちがうとは思えないのですが。

あのコメント行の有無だけで、エラーになるかならないか
変わるので、ソースのほかの部分に誤りがあるとも思えなくて。

もうすこし研究してみます。


2701 Re^2: integer であって、integer でない？？ コメント数：　 1件
　 にしの 2003/12/05 (金) 09:25
> ウチでは、ちゃんと動きましたよ。
うちも動きました(Delphi7Pro)。
ただ、
---
abc↓
[EOF]

と入力がある、[EOF]の前ですと、「リストのインデックスが範囲を超えています」と出ます。