File tree Expand file tree Collapse file tree 2 files changed +8
-0
lines changed Expand file tree Collapse file tree 2 files changed +8
-0
lines changed Original file line number Diff line number Diff line change @@ -241,6 +241,10 @@ procedure TDelphiAIDevChatView.ConfScreenOnCreate;
241
241
ShapeCommands.Top := 0 ;
242
242
ShapeCommands.Width := ShapeCommands.Parent.Width;
243
243
ShapeCommands.Height := ShapeCommands.Parent.Height;
244
+
245
+ { $IF CompilerVersion >= 34} // Sydney
246
+ pnWaitCaption.StyleElements := pnWaitCaption.StyleElements - [seFont];
247
+ { $ENDIF}
244
248
end ;
245
249
246
250
procedure TDelphiAIDevChatView.ConfScreenOnShow ;
Original file line number Diff line number Diff line change @@ -305,6 +305,10 @@ procedure TDelphiAIDevDBChatView.ConfScreenOnCreate;
305
305
ShapeCommands.Top := 0 ;
306
306
ShapeCommands.Width := ShapeCommands.Parent.Width;
307
307
ShapeCommands.Height := ShapeCommands.Parent.Height;
308
+
309
+ { $IF CompilerVersion >= 34} // Sydney
310
+ pnWaitCaption.StyleElements := pnWaitCaption.StyleElements - [seFont];
311
+ { $ENDIF}
308
312
end ;
309
313
310
314
procedure TDelphiAIDevDBChatView.ConfScreenOnShow ;
You can’t perform that action at this time.
0 commit comments