Procedure

TfrmSurgery.pnlWriteResize

Module

fSurgery

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmSurgery

Declaration

procedure pnlWriteResize(Sender: TObject);


Source

486   procedure TfrmSurgery.pnlWriteResize(Sender: TObject);
487   const
488     LEFT_MARGIN = 4;
489   begin
490     inherited;
491     LimitEditWidth(memNewNote, MAX_ENTRY_WIDTH - 1);
492     memNewNote.Constraints.MinWidth := TextWidthByFont(memNewNote.Font.Handle, StringOfChar('X', MAX_ENTRY_WIDTH)) + (LEFT_MARGIN * 2) + ScrollBarWidth;
493     pnlLeft.Width := self.ClientWidth - pnlWrite.Width - sptHorz.Width;
494   end;