{$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,
procedure TEditorForm.FormCreate(Sender: TObject);
var
-// i: Integer;
- u32: Boolean;
wp: TWindowPlacement;
+ hUser32 : HINST;
begin
FWork := False;
Browser.Navigate('about:blank');
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);
Body: string;
s: string;
- posTrip : Integer;
- temp1, temp2 : string;
+ posTrip : Integer;
+ tripOrigin : string;
begin
if FThreadItem = nil then begin
No := '1';
+ '<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;