・ブラウザ(スレ表示)に関するスタイル設定の実装。現状 UI は無し。

[gikonavigoeson/gikonavi.git] / Editor.pas
diff --git a/Editor.pas b/Editor.pas

index c3cec17..283bb49 100644 (file)
--- a/Editor.pas
+++ b/Editor.pas
@@ -10,7 +10,7 @@ uses
  {$ELSE}
         SHDocVw_TLB,
  {$IFEND}
-       ActiveX, {HTTPApp,} YofUtils, IniFiles, StrUtils,
+       ActiveX, {HTTPApp,} YofUtils, Trip, IniFiles, StrUtils,
         GikoSystem, GikoUtil, ImgList, Clipbrd, BoardGroup,
         IdAntiFreezeBase,       IdAntiFreeze, IdBaseComponent, IdComponent,
         IdTCPConnection, IdTCPClient, IdHTTP, ActnList, StdActns, IdIntercept,
@@ -209,9 +209,8 @@ end;}
  
  procedure TEditorForm.FormCreate(Sender: TObject);
  var
-//     i: Integer;
-       u32: Boolean;
         wp: TWindowPlacement;
+    hUser32 : HINST;
  begin
         FWork := False;
         Browser.Navigate('about:blank');
@@ -264,8 +263,14 @@ begin
         NameComboBox.Items.Assign(GikoSys.Setting.NameList);
         MailComboBox.Items.Assign(GikoSys.Setting.MailList);
         SetFont;
-       u32 := GetModuleHandle('User32.dll') <> 0;
-       TransAction.Enabled := u32;
+       //u32 := GetModuleHandle('User32.dll') <> 0;
+    hUser32 := LoadLibrary('User32.dll');
+    if hUser32 <> 0 then
+       TransAction.Enabled := true
+    else
+        TransAction.Enabled := false;
+    FreeLibrary(hUser32);
+
  end;
  
  procedure TEditorForm.SetBoard(Item: TBoard);
@@ -306,8 +311,8 @@ var
         Body: string;
         s: string;
  
-        posTrip : Integer;
-        temp1, temp2 : string;
+                               posTrip : Integer;
+                               tripOrigin : string;
  begin
         if FThreadItem = nil then begin
                 No := '1';
@@ -334,19 +339,18 @@ begin
                         + '<BODY text="#000000" bgcolor="#EFEFEF" link="#0000FF" alink="#FF0000" vlink="#660099">' + #13#10
                         + '<FONT COLOR="#FF0000">' + title + '</FONT>' + #13#10
                         + '<DL>' + #13#10;
-        posTrip := Pos( '#', Namae );
-        if posTrip > 0 then
-        begin
-                //Namae := LeftStr( Namae, posTrip - 1 ) + '\81\9f' + get_2ch_trip( PChar( Copy( Namae, posTrip + 1, Length( Namae ) ) ) );
-                temp1 := Copy( Namae, 1, posTrip - 1 ) + '\81\9f';
-                temp2 := Copy( Namae, posTrip + 1, Length( Namae ) );
-                temp2 := get_2ch_trip( PChar( temp2 ) );
-                Namae := temp1 + temp2;
-        end;
+                               posTrip := Pos( '#', Namae );
+                               if posTrip > 0 then
+                               begin
+                                                               tripOrigin := Copy( Namae, posTrip + 1, Length( Namae ) );
+                                                               Namae :=
+                                                                                               Copy( Namae, 1, posTrip - 1 ) + '</B> \81\9f' +
+                                                                                               get_2ch_trip( PChar( tripOrigin ) ) + '<B>';
+                               end;
         if Mail = '' then
-               s := s + '<DT>' + No + ' \96¼\91O\81F <FONT color="forestgreen"><B>' + Namae + '</B></FONT> \93\8a\8de\93ú\81F ' + DateTime+ '<BR><DD>' + Body + '<BR><BR><BR>' + #13#10
+               s := s + '<DT>' + No + ' \81F <FONT color="forestgreen"><B>' + Namae + '</B></FONT> \81F ' + DateTime+ '<BR><DD>' + Body + '<BR><BR><BR>' + #13#10
         else
-               s := s + '<DT>' + No + ' \96¼\91O\81F <A href="mailto:' + Mail + '"><B>' + Namae + '</B></A> \93\8a\8de\93ú\81F ' + DateTime+ '<BR><DD>' + Body + '<BR><BR><BR>' + #13#10;
+               s := s + '<DT>' + No + ' \81F <A href="mailto:' + Mail + '"><B>' + Namae + '</B></A> [' + Mail + ']\81F ' + DateTime+ '<BR><DD>' + Body + '<BR><BR><BR>' + #13#10;
         s := s + '</BODY></HTML>';
         SetContent(s);
  end;