paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-14 00:22:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: fixed gdkwindow checks

Browse Source 
git-svn-id: trunk@3617 -
This commit is contained in:
lazarus 2002-11-09 18:13:33 +00:00
parent c4dc3239e9
commit c11018887c
2 changed files with 30 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
ide/mainbar.pas
View File

@ -51,21 +51,25 @@ const
Version_String = '0.8.5 alpha';
type
{
The IDE is at anytime in a specific state:
itNone: The default mode. All editing allowed.
itBuilder: compiling the project. Loading/Saving/Debugging is not allowed.
itDebugger: debugging the project. Loading/Saving/Compiling is not allowed.
itCustom: this state is not used yet.
}
TIDEToolStatus = (itNone, itBuilder, itDebugger, itCustom);
// The IDE is at anytime in a specific state:
TIDEToolStatus = (
itNone, // The default mode. All editing allowed.
itBuilder, // compiling the project.
// Loading/Saving/Debugging is not allowed.
itDebugger, // debugging the project.
// Loading/Saving/Compiling is not allowed.
itCodeTools, // the CodeToolBoss is working and has called the progress
// event. This mode can be deactivated at any time.
itCustom // this state is not used yet.
);
// new file flags
TNewFlag = (nfIsPartOfProject // force IsPartOfProject,
// default is to use a heuristic
);
TNewFlags = set of TNewFlag;
// save file flags
TSaveFlag = (sfSaveAs,
sfSaveToTestDir,
sfProjectSaving,
@ -73,6 +77,7 @@ type
);
TSaveFlags = set of TSaveFlag;
// open file flags
TOpenFlag = (ofProjectLoading,// this open is part of opening a whole project
ofOnlyIfExists, // do not auto create non existing files
ofRevert, // reload file if already open
@ -83,16 +88,27 @@ type
);
TOpenFlags = set of TOpenFlag;
// revert file flags
TRevertFlag = (rfQuiet);
TRevertFlags = set of TRevertFlag;
// close file flags
TCloseFlag = (cfSaveFirst, // check if modified and save
cfProjectClosing);
TCloseFlags = set of TCloseFlag;
// load buffer flags
TLoadBufferFlag = (lbfUpdateFromDisk, lbfRevert, lbfCheckIfText);
TLoadBufferFlags = set of TLoadBufferFlag;
// codetools flags
TCodeToolsFlag = (
ctfSwitchToFormSource, // bring source notebook to front and show source of
// current designed form
ctfActivateAbortMode // activate the CodeToolBoss.Abortable mode
);
TCodeToolsFlags = set of TCodeToolsFlag;
{ TMainIDEBar }

6
lcl/include/customform.inc
View File

@ -237,7 +237,8 @@ Begin
Include(FFormState, fsVisible)
else
Exclude(FFormState, fsVisible);
if (fsCreating in FFormState) or FormUpdating then
//writeln('TCustomForm.SetVisible ',Name,':',ClassName,' ',FormUpdating);
if (fsCreating in FFormState) {or FormUpdating} then
else
begin
inherited Visible := Value;
@ -1199,6 +1200,9 @@ end;
{ =============================================================================
$Log$
Revision 1.70 2002/11/09 18:13:33 lazarus
MG: fixed gdkwindow checks
Revision 1.69 2002/11/06 17:46:36 lazarus
MG: reduced showing forms during creation