source: cprs/branches/foia-cprs/CPRS-Chart/Consults/FormResize.txt@ 1035

Last change on this file since 1035 was 460, checked in by Kevin Toppenberg, 16 years ago

Uploading from OR_30_258

File size: 241 bytes
RevLine 
[460]1procedure TfrmODCslt.FormResize(Sender: TObject);
2begin
3 inherited;
4 memOrder.Top := pnlReason.Top + pnlReason.Height + 2;
5 pnlMessage.Top := memOrder.Top + 2;
6 cmdAccept.Top := pnlMessage.Top;
7 cmdQuit.Top := cmdAccept.Top;
8end;
Note: See TracBrowser for help on using the repository browser.