Commit MetaInfo

Revisão91fc6e39ec3eaacccf479de23ec65204d1f26319 (tree)
Hora2020-02-02 19:16:26
Autoryamat0jp <terukohietori@gmai...>
Commiteryamat0jp

Mensagem de Log

一応落ち着きました まだファビコンは設定されません なぜでしょう

Mudança Sumário

Diff

--- a/tool/Unit2.pas
+++ b/tool/Unit2.pas
@@ -108,26 +108,25 @@ var
108108 s, s2: string;
109109 t: TMemoryStream;
110110 begin
111+ Button4Click(nil);
111112 if OpenPictureDialog1.Execute = true then
112113 with FDTable1 do
113114 begin
114- i := RecordCount + 1;
115115 t := TMemoryStream.Create;
116116 Image1.Picture.Graphic.SaveToStream(t);
117117 s := TNetEncoding.Base64.EncodeBytesToString(t.Memory, t.Size);
118- AppendRecord([i, 'BBS_bn.jpg', s]);
119- inc(i);
118+ AppendRecord([1, 'BBS_bn.jpg', s]);
120119 t.Position := 0;
121120 Application.Icon.SaveToStream(t);
122121 s := TNetEncoding.Base64.EncodeBytesToString(t.Memory, t.Size);
123- AppendRecord([i, 'favion64.ico', s]);
124- inc(i);
122+ AppendRecord([2, 'favion64.ico', s]);
125123 t.Position := 0;
124+ i:=1;
126125 for s2 in OpenPictureDialog1.Files do
127126 begin
128127 openPicture(t, s2);
129128 s := TNetEncoding.Base64.EncodeBytesToString(t.Memory, t.Size);
130- AppendRecord([i, Format('slide%d.jpg', [i]), s]);
129+ AppendRecord([i+2, Format('slide%d.jpg', [i]), s]);
131130 inc(i);
132131 end;
133132 t.Free;
Show on old repository browser