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;
241241 ShapeCommands.Top := 0 ;
242242 ShapeCommands.Width := ShapeCommands.Parent.Width;
243243 ShapeCommands.Height := ShapeCommands.Parent.Height;
244+
245+ { $IF CompilerVersion >= 34} // Sydney
246+ pnWaitCaption.StyleElements := pnWaitCaption.StyleElements - [seFont];
247+ { $ENDIF}
244248end ;
245249
246250procedure TDelphiAIDevChatView.ConfScreenOnShow ;
Original file line number Diff line number Diff line change @@ -305,6 +305,10 @@ procedure TDelphiAIDevDBChatView.ConfScreenOnCreate;
305305 ShapeCommands.Top := 0 ;
306306 ShapeCommands.Width := ShapeCommands.Parent.Width;
307307 ShapeCommands.Height := ShapeCommands.Parent.Height;
308+
309+ { $IF CompilerVersion >= 34} // Sydney
310+ pnWaitCaption.StyleElements := pnWaitCaption.StyleElements - [seFont];
311+ { $ENDIF}
308312end ;
309313
310314procedure TDelphiAIDevDBChatView.ConfScreenOnShow ;
You can’t perform that action at this time.
0 commit comments