Subversion Repositories spacemission

Rev

Rev 4 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4 Rev 16
Line 195... Line 195...
195 
  Loc: TRect;
 195 
  Loc: TRect;
196 
  W: Integer;
 196 
  W: Integer;
197 
begin
 197 
begin
198 
  W := FButton.Width;
 198 
  W := FButton.Width;
199 
  if not FButton.Visible then W := 0;
 199 
  if not FButton.Visible then W := 0;
200 
  SendMessage(Handle, EM_GETRECT, 0, LongInt(@Loc));
 200 
  SendMessage(Handle, EM_GETRECT, 0, LPARAM(@Loc));
201 
  Loc.Bottom := ClientHeight + 1; {+1 is workaround for windows paint bug}
 201 
  Loc.Bottom := ClientHeight + 1; {+1 is workaround for windows paint bug}
202 
  Loc.Right := ClientWidth - W - 2;
 202 
  Loc.Right := ClientWidth - W - 2;
203 
  Loc.Top := 0;
 203 
  Loc.Top := 0;
204 
  Loc.Left := 0;
 204 
  Loc.Left := 0;
205 
  SendMessage(Handle, EM_SETRECTNP, 0, LongInt(@Loc));
 205 
  SendMessage(Handle, EM_SETRECTNP, 0, LPARAM(@Loc));
206 
  SendMessage(Handle, EM_GETRECT, 0, LongInt(@Loc)); {debug}
 206 
  SendMessage(Handle, EM_GETRECT, 0, LPARAM(@Loc)); {debug}
207 
end;
 207 
end;
208 
 
 208 
 
209 
procedure TEdit.WMSize(var Message: TWMSize);
 209 
procedure TEdit.WMSize(var Message: TWMSize);
210 
var
 210 
var
211 
  MinHeight: Integer;
 211 
  MinHeight: Integer;