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; |